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 trunk/NEMO/TOP_SRC/SMS – NEMO

source: trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90 @ 899

Last change on this file since 899 was 730, checked in by cetlod, 17 years ago

remove unused variables, see ticket:19
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 6.6 KB
Line 
1!!---------------------------------------------------------------------
2!!
3!!                         COMMON passivetrc.pisces.h
4!!                       ******************************
5!!
6!!  purpose :
7!!  ---------
8!!     INCLUDE COMMON FILE for PISCES biological model
9!!
10!!  modifications :
11!!   -------------
12!!      original    : 00-02 (O. Aumont)
13!!
14!!
15#if defined key_trc_pisces
16!!
17!!----------------------------------------------------------------------
18!!
19!! Variable for chemistry of the CO2 cycle
20!!
21!! ---------------------------------------------------------------------
22!!
23      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
24         akb3, ak13, ak23, aksp, akw3, &
25         akp13, akp23, akp33, aksi3, aks3, akf3, &
26         hi, borat
27
28      REAL :: &
29         atcco2, atcox
30
31!!
32!!----------------------------------------------------------------------
33!!
34!!  Variable for chemistry of the CO2 cycle
35!!
36!! ---------------------------------------------------------------------
37!!
38      REAL(wp), DIMENSION(10)  :: &
39         devk1, devk2, devk3, devk4, devk5     
40   
41      REAL(wp) :: &
42         akcc1, akcc2, akcc3, akcc4,akcc5, akcc6, akcc7, akcc8, akcc9 , &
43         bor1, bor2, c00, c01, c02, c03, c04, c05, c10, c11, &
44         c12, c13, c20, c21, c22, c23, cb0, cb1, cb2, cb3, &
45         cb4, cb5, cb6, cb7, cb8, cb9, cb10, cb11, c14, &
46         cw3, cw4, cw5, cw6, cw0, cw1, cw2, ox0, ox1, ox2, ox3, ox4,ox5, &
47         salchl, rgas, oxyco, ca0, ca1, ca2, ca3, ca4, ca5, ca6, &
48         cp10, cp11, cp12, cp13, cp14, cp15, cp16, cp20, cp21, &
49         cp22, cp23, cp24, cp25, cp26, cp30, cp31, cp32, cp33, &
50         cp34, cp35, cs10, cs11, cs12, cs13, cs14, cs15, cs16, &
51         cs17, cs18, cs19, cs20, cs21, &
52         st1, st2, ft1, ft2, ks0, ks1, ks2, ks3, ks4, ks5, &
53         ks6, ks7, ks8, ks9, ks10, ks11, ks12, kf0, kf1, &
54         kf2, kf3, kf4
55
56      REAL(wp), DIMENSION(jpi,jpj,3) :: &
57         chemc
58
59!!
60!!----------------------------------------------------------------------
61!!
62!!  Variable for chemistry of Fe and SIO3
63!!
64!! ---------------------------------------------------------------------
65!!
66      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
67         sio3eq, fekeq
68
69!!
70!!----------------------------------------------------------------------
71!!
72!!  Time variables
73!!
74!! ---------------------------------------------------------------------
75!!
76
77      INTEGER :: &
78         iabsyr, nrdttrc, ndayflxtr
79
80      REAL(wp) :: &
81         tspyr, absyr, xtvit , &
82         rfact, rfactr, rfact2, rfact2r
83
84
85!!
86!!----------------------------------------------------------------------
87!!
88!!  Gas exchange
89!!
90!! ---------------------------------------------------------------------
91!!
92      REAL(wp), DIMENSION(jpi,jpj) :: &
93         strn
94!!---------------------------------------
95!!
96!!  Biological parameters
97!!
98!! --------------------------------------
99!!
100      INTEGER :: &
101         jkopt
102
103      REAL(wp) :: &
104         caco3r, kdca, nca, part, rno3, o2ut, po4r,  &
105         sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput, &
106         calcon, rivpo4input,nitdepinput,oxymin,spocri, &
107         nitrif,rdenit,o2nit,concnnh4,concdnh4, &
108         pislope,excret,wsbio,resrat,mprat,wchl,wchld, &
109         mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort, &
110         xksi1,xksi2,sicmax,xremik,xremip,xkdoc1, &
111         xkdoc2,grosip,resrat2,excret2,mprat2,mzrat2,xprefz, &
112         xkgraz2,grazrat2,xlam1,conc1,conc2,conc3, &
113         unass2,xprefpoc,epsher,epsher2,pislope2,mpratm, &
114         sigma1, sigma2, zprefc, zprefp, zprefd, wchl2, ferat3, &
115         xsirem, fecnm, fecdm, chlcnm, chlcdm
116
117
118
119!!
120!!---------------------------------------------
121!!
122!!  Biological fluxes for light
123!!
124!!---------------------------------------------
125!!
126      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
127         etot, etot3, emoy
128
129      REAL(wp), DIMENSION(jpi,jpj) :: &
130         zmeu
131
132      REAL(wp), DIMENSION(3,61) :: &
133         xkrgb
134
135
136!!
137!!----------------------------------------------------------
138!!
139!!  Biological fluxes for primary production
140!!
141!!----------------------------------------------------------
142!!
143      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
144         prmax, tgfunc, tgfunc2, &
145         prcaca, prorca, prorca2, prorca3, &
146         prorca4, prorca5, prorca6, prorca7, &
147         pronew, pronew2, proreg, proreg2, &
148         xnanono3, xdiatno3, xnanonh4, xdiatnh4, &
149         xlimphy, xlimdia, concdfe, concnfe, znegtr
150
151      REAL(wp), DIMENSION(jpi,jpj) :: &     
152         xksimax, xksi
153
154
155
156!!
157!!------------------------------------------
158!!
159!! Sinks for phytoplankton
160!!
161!!------------------------------------------
162!!
163      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &     
164         tortp, tortnf, tortnch, &
165         respp, respp2, respnch, respdch, &
166         tortp2, tortdf, tortdch, tortds, &
167         respds, respdf, respnf
168
169
170!!
171!!------------------------------------
172!!
173!!  SMS for zooplankton
174!!
175!!-------------------------------------
176!!
177      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &   
178         respz, tortz, grazp, grazpf, &
179         grazpch, grazm, grazmf, grazsd, &
180         grazsf, grazss, grazsch, grarem, &
181         grafer,respz2,tortz2,grazd, grazz,grazn, &
182         grazpoc,graznf, graznch, grazs, grazf, &
183         grazdch, grazpof, grarem2, grafer2, grapoc2, &
184         grapoc, grazffe, grazfff
185
186
187!!
188!!---------------------------------------------
189!!
190!!  SMS for the organic matter
191!!
192!!---------------------------------------------
193!!
194      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &   
195         xagg, xaggfe, zdiss, xaggdoc, xaggdfe, xbactfer, &
196         xscave, olimi, orem, orem2, ofer, ofer2, &
197         osil, xaggdoc2, nitrfac, xlimbac, &
198         wsbio4, wsbio3, wscal
199
200      REAL(wp) :: &
201         wsbio2
202
203
204 
205!!
206!!---------------------------------------------------------
207!!
208!! External sources of nutrients in ocean
209!!
210!!---------------------------------------------------------
211!!
212      REAL(wp), DIMENSION(jpi,jpj,jpk) :: &         
213         onitr, denitr, ironsed
214
215      REAL(wp), DIMENSION(jpi,jpj) :: &
216         dust, cotdep, nitdep, rivinp
217
218      REAL(wp), DIMENSION(jpi,jpj,12) ::  & 
219         dustmo
220
221      REAL(wp) :: &
222         areacot
223
224      LOGICAL :: &
225         bdustfer, briver, bndepo, bsedinput
226
227
228
229#if defined key_trc_kriest
230!!
231!!---------------------------------------------------------
232!!
233!!  Kriest parameter for aggregation
234!!
235!!---------------------------------------------------------
236!!
237      REAL(wp) :: &
238         xkr_eta, xkr_zeta, xkr_sfact, xkr_stick,  &
239         xkr_mass_min, xkr_mass_max, xkr_massp, xkr_frac, &
240         xkr_dnano, xkr_ddiat, xkr_dmeso, xkr_daggr, &
241         xkr_nnano, xkr_ndiat, xkr_nmeso, xkr_naggr, &
242         xkr_wsbio_min, xkr_wsbio_max
243     
244      REAL(wp), DIMENSION(jpk) :: &
245         xnumm
246#endif
247
248#endif
249
Note: See TracBrowser for help on using the repository browser.