source: trunk/NEMO/TOP_SRC/PISCES/sms_pisces.h90 @ 935

Last change on this file since 935 was 935, checked in by cetlod, 13 years ago

adding modules for PISCES SMS model, see ticket 141

File size: 2.7 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                     ***  sms_pisces.h90  *** 
3   !! TOP :   PISCES Source Minus Sink variables
4   !!----------------------------------------------------------------------
5   !! History :   1.0  !  2000-02 (O. Aumont) original code
6   !!----------------------------------------------------------------------
7
8   !!----------------------------------------------------------------------
9   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)
10   !! $Header$
11   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
12   !!----------------------------------------------------------------------
13
14   !!----------------------------------------------------------------------
15   !! Variable for chemistry of the CO2 cycle
16   !! ---------------------------------------------------------------------
17   !
18   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   akb3, ak13, ak23, aksp, akw3             !: ???
19   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   hi, borat                                !: ???
20
21   !!----------------------------------------------------------------------
22   !!  Time variables
23   !! ---------------------------------------------------------------------
24   INTEGER  ::   nrdttrc, ndayflxtr       !: ???
25   REAL(wp) ::   rfact, rfactr, rfact2, rfact2r   !: ???
26
27   !!---------------------------------------
28   !!  Biological parameters
29   !! --------------------------------------
30   !
31   REAL(wp) ::   part, rno3, o2ut, po4r, rdenit, o2nit     !: ???
32   REAL(wp) ::   wsbio, wsbio2, xkmort, ferat3                     !: ???
33
34   !!---------------------------------------------
35   !!  Biological fluxes for light
36   !!---------------------------------------------
37   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   etot3                 !: ???
38
39!!----------------------------------------------------------
40!!  Biological fluxes for primary production
41!!----------------------------------------------------------
42   REAL(wp), DIMENSION(jpi,jpj) :: xksi, xksimax
43   !
44   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xnanono3, xdiatno3, xnanonh4, xdiatnh4       !: ???
45   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xlimphy, xlimdia, concdfe, concnfe !: ???
46
47   !!---------------------------------------------
48   !!  SMS for the organic matter
49   !!---------------------------------------------
50   !
51   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xfracal, nitrfac, xlimbac, xdiss                  !: ??
52
53#if defined key_kriest
54   !!---------------------------------------------------------
55   !!  Kriest parameter for aggregation
56   !!---------------------------------------------------------
57   REAL(wp) ::  xkr_eta, xkr_zeta
58   REAL(wp) ::  xkr_mass_min, xkr_mass_max, xkr_massp
59#endif
60
Note: See TracBrowser for help on using the repository browser.