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.h90 in branches/dev_001_GM/NEMO/TOP_SRC/SMS – NEMO

source: branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms_pisces.h90 @ 763

Last change on this file since 763 was 763, checked in by gm, 16 years ago

dev_001_GM - Style only addition in TOP F90 h90 routines

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 8.5 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                     ***  sms_pisces.h90  *** 
3   !! TOP :   PISCES Source Minus Sink valiables
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   REAL(wp) ::   atcco2, atcox
18   !
19   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   akb3, ak13, ak23, aksp, akw3             !: ???
20   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   akp13, akp23, akp33, aksi3, aks3, akf3   !: ???
21   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   hi, borat                                !: ???
22
23   !!----------------------------------------------------------------------
24   !!  Variable for chemistry of the CO2 cycle
25   !! ---------------------------------------------------------------------
26   REAL(wp), DIMENSION(10) ::   devk1, devk2, devk3, devk4, devk5     
27   !
28   REAL(wp) ::   akcc1, akcc2, akcc3, akcc4,akcc5, akcc6, akcc7, akcc8, akcc9     !: ???
29   REAL(wp) ::   bor1, bor2, c00, c01, c02, c03, c04, c05, c10, c11               !: ???
30   REAL(wp) ::   c12, c13, c20, c21, c22, c23, cb0, cb1, cb2, cb3                 !: ???
31   REAL(wp) ::   cb4, cb5, cb6, cb7, cb8, cb9, cb10, cb11, c14                    !: ???
32   REAL(wp) ::   cw3, cw4, cw5, cw6, cw0, cw1, cw2, ox0, ox1, ox2, ox3, ox4,ox5   !: ???
33   REAL(wp) ::   salchl, rgas, oxyco, ca0, ca1, ca2, ca3, ca4, ca5, ca6           !: ???
34   REAL(wp) ::   cp10, cp11, cp12, cp13, cp14, cp15, cp16, cp20, cp21             !: ???
35   REAL(wp) ::   cp22, cp23, cp24, cp25, cp26, cp30, cp31, cp32, cp33             !: ???
36   REAL(wp) ::   cp34, cp35, cs10, cs11, cs12, cs13, cs14, cs15, cs16             !: ???
37   REAL(wp) ::   cs17, cs18, cs19, cs20, cs21                                     !: ???
38   REAL(wp) ::   st1, st2, ft1, ft2, ks0, ks1, ks2, ks3, ks4, ks5                 !: ???
39   REAL(wp) ::   ks6, ks7, ks8, ks9, ks10, ks11, ks12, kf0, kf1                   !: ???
40   REAL(wp) ::   kf2, kf3, kf4
41   !
42   REAL(wp), DIMENSION(jpi,jpj,3) ::   chemc   !: ???
43
44   !!----------------------------------------------------------------------
45   !!  Variable for chemistry of Fe and SIO3
46   !! ---------------------------------------------------------------------
47   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   sio3eq   !: ???
48   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   fekeq    !: ???
49
50   !!----------------------------------------------------------------------
51   !!  Time variables
52   !! ---------------------------------------------------------------------
53   INTEGER  ::   iabsyr, nrdttrc, ndayflxtr       !: ???
54   REAL(wp) ::   tspyr, absyr, xtvit              !: ???
55   REAL(wp) ::   rfact, rfactr, rfact2, rfact2r   !: ???
56
57
58   !!----------------------------------------------------------------------
59   !!  Gas exchange
60   !! ---------------------------------------------------------------------
61   REAL(wp), DIMENSION(jpi,jpj) ::   strn         !: ???
62   
63   !!---------------------------------------
64   !!  Biological parameters
65   !! --------------------------------------
66   INTEGER ::   jkopt    !: ???
67   !
68   REAL(wp) ::   caco3r, kdca, nca, part, rno3, o2ut, po4r               !: ???
69   REAL(wp) ::   sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput     !: ???
70   REAL(wp) ::   calcon, rivpo4input,nitdepinput,oxymin,spocri           !: ???
71   REAL(wp) ::   nitrif,rdenit,o2nit,concnnh4,concdnh4                   !: ???
72   REAL(wp) ::   pislope,excret,wsbio,resrat,mprat,wchl,wchld            !: ???
73   REAL(wp) ::   mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort         !: ???
74   REAL(wp) ::   xksi1,xksi2,sicmax,xremik,xremip,xkdoc1                 !: ???
75   REAL(wp) ::   xkdoc2,grosip,resrat2,excret2,mprat2,mzrat2,xprefz      !: ???
76   REAL(wp) ::   xkgraz2,grazrat2,xlam1,conc1,conc2,conc3                !: ???
77   REAL(wp) ::   unass2,xprefpoc,epsher,epsher2,pislope2,mpratm          !: ???
78   REAL(wp) ::   sigma1, sigma2, zprefc, zprefp, zprefd, wchl2, ferat3   !: ???
79   REAL(wp) ::   xsirem, fecnm, fecdm, chlcnm, chlcdm                    !: ???
80
81   !!---------------------------------------------
82   !!  Biological fluxes for light
83   !!---------------------------------------------
84   REAL(wp), DIMENSION(3,61)        ::   xkrgb                 !: ???
85   REAL(wp), DIMENSION(jpi,jpj)     ::   zmeu                  !: ???
86   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   etot, etot3, emoy     !: ???
87
88!!----------------------------------------------------------
89!!  Biological fluxes for primary production
90!!----------------------------------------------------------
91   REAL(wp), DIMENSION(jpi,jpj) ::   xksimax, xksi
92   !
93   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   prmax, tgfunc, tgfunc2                       !: ???
94   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   prcaca, prorca, prorca2, prorca3             !: ???
95   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   prorca4, prorca5, prorca6, prorca7           !: ???
96   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   pronew, pronew2, proreg, proreg2             !: ???
97   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xnanono3, xdiatno3, xnanonh4, xdiatnh4       !: ???
98   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xlimphy, xlimdia, concdfe, concnfe, znegtr   !: ???
99
100   !!------------------------------------------
101   !! Sinks for phytoplankton
102   !!------------------------------------------
103   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   tortp, tortnf, tortnch            !: ???
104   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   respp, respp2, respnch, respdch   !: ???
105   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   tortp2, tortdf, tortdch, tortds   !: ???
106   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   respds, respdf, respnf            !: ???
107
108   !!------------------------------------
109   !!  SMS for zooplankton
110   !!-------------------------------------
111   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   respz, tortz, grazp, grazpf                   !: ???
112   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grazpch, grazm, grazmf, grazsd                !: ???
113   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grazsf, grazss, grazsch, grarem               !: ???
114   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grafer,respz2,tortz2,grazd, grazz,grazn       !: ???
115   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grazpoc,graznf, graznch, grazs, grazf         !: ???
116   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grazdch, grazpof, grarem2, grafer2, grapoc2   !: ???
117   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   grapoc, grazffe, grazfff                      !: ???
118
119   !!---------------------------------------------
120   !!  SMS for the organic matter
121   !!---------------------------------------------
122   REAL(wp) ::   wsbio2
123   !
124   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xagg, xaggfe, zdiss, xaggdoc, xaggdfe, xbactfer   !: ???
125   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   xscave, olimi, orem, orem2, ofer, ofer2           !: ???
126   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   osil, xaggdoc2, nitrfac, xlimbac                  !: ???
127   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   wsbio4, wsbio3, wscal                             !: ???
128
129   !!---------------------------------------------------------
130   !! External sources of nutrients in ocean
131   !!---------------------------------------------------------
132   LOGICAL ::   bdustfer, briver, bndepo, bsedinput   !: ???
133   !
134   REAL(wp) ::   areacot                              !: ???
135   !
136   REAL(wp), DIMENSION(jpi,jpj)     ::   dust, cotdep, nitdep, rivinp   !: ???
137   REAL(wp), DIMENSION(jpi,jpj,12)  ::   dustmo                         !: ???
138   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   onitr, denitr, ironsed         !: ???
139
140#if defined key_trc_kriest
141   !!---------------------------------------------------------
142   !!  Kriest parameter for aggregation
143   !!---------------------------------------------------------
144   REAL(wp) ::   xkr_eta, xkr_zeta, xkr_sfact, xkr_stick            !: ???
145   REAL(wp) ::   xkr_mass_min, xkr_mass_max, xkr_massp, xkr_frac    !: ???
146   REAL(wp) ::   xkr_dnano, xkr_ddiat, xkr_dmeso, xkr_daggr         !: ???
147   REAL(wp) ::   xkr_nnano, xkr_ndiat, xkr_nmeso, xkr_naggr         !: ???
148   REAL(wp) ::   xkr_wsbio_min, xkr_wsbio_max
149   ! 
150   REAL(wp), DIMENSION(jpk) ::   xnumm      !: ???
151#endif
152
Note: See TracBrowser for help on using the repository browser.