New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
sms_pisces.F90 in trunk/NEMO/TOP_SRC/PISCES – NEMO

source: trunk/NEMO/TOP_SRC/PISCES/sms_pisces.F90 @ 1359

Last change on this file since 1359 was 1288, checked in by cetlod, 15 years ago

flag to allow or not damping of passive tracers in PISCEs model, see ticket:317
  • Property svn:keywords set to Id
File size: 3.6 KB
Line 
1MODULE sms_pisces   
2   !!----------------------------------------------------------------------
3   !!                     ***  sms_pisces.F90  *** 
4   !! TOP :   PISCES Source Minus Sink variables
5   !!----------------------------------------------------------------------
6   !! History :   1.0  !  2000-02 (O. Aumont) original code
7   !!----------------------------------------------------------------------
8
9#if defined key_pisces
10   !!----------------------------------------------------------------------
11   !!   'key_pisces'                                         PISCES model
12   !!----------------------------------------------------------------------
13   USE par_oce
14   USE par_trc
15
16   IMPLICIT NONE
17   PUBLIC
18
19   !!----------------------------------------------------------------------
20   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
21   !! $Id$
22   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
23   !!----------------------------------------------------------------------
24
25   !!----------------------------------------------------------------------
26   !! Variable for chemistry of the CO2 cycle
27   !! ---------------------------------------------------------------------
28   !
29   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   akb3, ak13, ak23, aksp, akw3             !: ???
30   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   hi, borat                                !: ???
31
32   !!----------------------------------------------------------------------
33   !!  Time variables
34   !! ---------------------------------------------------------------------
35   INTEGER  ::   nrdttrc, ndayflxtr       !: ???
36   REAL(wp) ::   rfact, rfactr, rfact2, rfact2r   !: ???
37
38   !!---------------------------------------
39   !!  Biological parameters
40   !! --------------------------------------
41   !
42   REAL(wp) ::   part, rno3, o2ut, po4r, rdenit, o2nit     !: ???
43   REAL(wp) ::   wsbio, wsbio2, xkmort, ferat3                     !: ???
44
45   !!---------------------------------------------
46   !!  Biological fluxes for light
47   !!---------------------------------------------
48   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   etot3                 !: ???
49   INTEGER , DIMENSION(jpi,jpj)     ::   neln    !: number of levels in the euphotic layer
50   REAL(wp), DIMENSION(jpi,jpj)     ::   heup    !: euphotic layer depth
51
52   !!----------------------------------------------------------
53   !!  Biological fluxes for primary production
54   !!----------------------------------------------------------
55   REAL(wp), DIMENSION(jpi,jpj) :: xksi, xksimax
56   !
57   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xnanono3, xdiatno3, xnanonh4, xdiatnh4       !: ???
58   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xlimphy, xlimdia, concdfe, concnfe !: ???
59
60   !!---------------------------------------------
61   !!  SMS for the organic matter
62   !!---------------------------------------------
63   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xfracal, nitrfac, xlimbac, xdiss                  !: ??
64
65   !!---------------------------------------------
66   !! Damping
67   !!---------------------------------------------
68   LOGICAL  :: ln_pisdmp
69
70#if defined key_kriest
71   !!---------------------------------------------------------
72   !!  Kriest parameter for aggregation
73   !!---------------------------------------------------------
74   REAL(wp) ::  xkr_eta, xkr_zeta
75   REAL(wp) ::  xkr_mass_min, xkr_mass_max, xkr_massp
76#endif
77
78#else
79   !!----------------------------------------------------------------------   
80   !!  Empty module :                                     NO PISCES model
81   !!----------------------------------------------------------------------
82#endif
83   
84   !!======================================================================   
85END MODULE sms_pisces   
Note: See TracBrowser for help on using the repository browser.