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 | !! TOP 1.0 , LOCEAN-IPSL (2005) |
---|
16 | !! $Header$ |
---|
17 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
---|
18 | !!--------------------------------------------------------------------- |
---|
19 | !! |
---|
20 | #if defined key_trc_pisces |
---|
21 | !! |
---|
22 | !!---------------------------------------------------------------------- |
---|
23 | !! |
---|
24 | !! COMMON/cchem1/ : Variable for chemistry of the CO2 cycle |
---|
25 | !! |
---|
26 | !! --------------------------------------------------------------------- |
---|
27 | !! |
---|
28 | REAL akb3(jpi,jpj,jpk), ak13(jpi,jpj,jpk), ak23(jpi,jpj,jpk) |
---|
29 | REAL aksp(jpi,jpj,jpk), co3(jpi,jpj,jpk), hi(jpi,jpj,jpk) |
---|
30 | REAL borat(jpi,jpj,jpk), akw3(jpi,jpj,jpk), h2co3(jpi,jpj) |
---|
31 | REAL fugaci(jpi,jpj), atcco2, atcox |
---|
32 | |
---|
33 | COMMON/cchem1/ akb3,ak13,ak23,aksp,co3,hi,borat,akw3,h2co3, & |
---|
34 | fugaci, atcco2, atcox |
---|
35 | !! |
---|
36 | !!---------------------------------------------------------------------- |
---|
37 | !! |
---|
38 | !! COMMON/cchem2/ : Variable for chemistry of the CO2 cycle |
---|
39 | !! |
---|
40 | !! --------------------------------------------------------------------- |
---|
41 | !! |
---|
42 | REAL akcc1, akcc2, akcc3, akcc4, devk1(4), devk2(4) |
---|
43 | REAL devk3(4), devk4(4), devk5(4), devkst, devks |
---|
44 | REAL bor1, bor2, c00, c01, c02, c03, c04, c05, c10, c11 |
---|
45 | REAL c12, c13, c20, c21, c22, c23, cb0, cb1, cb2, cb3 |
---|
46 | REAL cb4, cb5, cb6, cb7, cb8, cb9, cb10, cb11, c14 |
---|
47 | REAL cw3, cw4, cw5, cw6, cw0, cw1, cw2, ox0, ox1 |
---|
48 | REAL ox2, ox3, ox4, salchl, rgas, oxyco, ox5 |
---|
49 | REAL ca0, ca1, ca2, ca3, ca4, ca5, ca6, chemc(jpi,jpj,3) |
---|
50 | REAL cp10, cp11, cp12, cp13, cp14, cp15, cp16, cp20, cp21 |
---|
51 | REAL cp22, cp23, cp24, cp25, cp26, cp30, cp31, cp32, cp33 |
---|
52 | REAL cp34, cp35, cs10, cs11, cs12, cs13, cs14, cs15, cs16 |
---|
53 | REAL cs17, cs18, cs19 |
---|
54 | |
---|
55 | COMMON/cchem2/ akcc1, akcc2, akcc3, akcc4, devk1, devk2, & |
---|
56 | devk3, devk4, devk5, devkst, devks, & |
---|
57 | bor1, bor2, c00, c01, c02, c03, c04, c05, c10, c11, & |
---|
58 | c12, c13, c20, c21, c22, c23, cb0, cb1, cb2, cb3, & |
---|
59 | c14, cb4, cb5, ca0, ca1, ca2, ca3, ca4, ca5, ca6, & |
---|
60 | cb6, cb7, cb8, cb9, cb10, cb11, cw3, cw4, cw5, cw6, & |
---|
61 | cw0, cw1, cw2, ox0, ox1, ox2, ox3, ox4, ox5, salchl, & |
---|
62 | cp10, cp11, cp12, cp13, cp14, cp15, cp16, cp20, cp21, & |
---|
63 | cp22, cp23, cp24, cp25, cp26, cp30, cp31, cp32, cp33, & |
---|
64 | cp34, cp35, cs10, cs11, cs12, cs13, cs14, cs15, cs16, & |
---|
65 | cs17, cs18, cs19, rgas, oxyco, chemc |
---|
66 | !! |
---|
67 | !! COMMON/cchem3/ : Variable for chemistry of Fe and SIO3 |
---|
68 | !! |
---|
69 | !! --------------------------------------------------------------------- |
---|
70 | !! |
---|
71 | REAL sio3eq(jpi,jpj,jpk),fekeq(jpi,jpj,jpk) |
---|
72 | |
---|
73 | COMMON/cchem3/ sio3eq, fekeq |
---|
74 | !! |
---|
75 | !!---------------------------------------------------------------------- |
---|
76 | !! |
---|
77 | !! COMMON/cotsedim/ : Variable for simplified sediments |
---|
78 | !! |
---|
79 | !! --------------------------------------------------------------------- |
---|
80 | !! |
---|
81 | REAL sedpoc(jpi,jpj),sedcal(jpi,jpj),sedsil(jpi,jpj) |
---|
82 | REAL sedlam,sedlostpoc, sedlostsil,sedlostcal |
---|
83 | |
---|
84 | COMMON/cotsedim/sedpoc,sedcal,sedsil,sedlam, & |
---|
85 | sedlostpoc, sedlostsil,sedlostcal |
---|
86 | !! |
---|
87 | !!---------------------------------------------------------------------- |
---|
88 | !! |
---|
89 | !! COMMON/cotcon/ : Time variables |
---|
90 | !! |
---|
91 | !! --------------------------------------------------------------------- |
---|
92 | !! |
---|
93 | |
---|
94 | INTEGER iabsyr, nrdttrc, ndayflxtr |
---|
95 | REAL tspyr, absyr, xtvit |
---|
96 | REAL rfact, rfactr, rfact2, rfact2r |
---|
97 | |
---|
98 | COMMON/cottim/iabsyr,nrdttrc,tspyr, absyr,xtvit, ndayflxtr, & |
---|
99 | rfact, rfactr, rfact2, rfact2r |
---|
100 | |
---|
101 | !! |
---|
102 | !!---------------------------------------------------------------------- |
---|
103 | !! |
---|
104 | !! COMMON/cotgas/ : Gas exchange |
---|
105 | !! |
---|
106 | !! --------------------------------------------------------------------- |
---|
107 | !! |
---|
108 | INTEGER igaswind,icice |
---|
109 | REAL gasfac, strn(jpi,jpj) |
---|
110 | REAL wind(jpi,jpj), kgwanin(jpi,jpj) |
---|
111 | REAL wsmo(jpi,jpj,12), kgwanmo(jpi,jpj,12) |
---|
112 | REAL cicemo(jpi,jpj,12) |
---|
113 | REAL patm(jpi,jpj),ppres(jpi,jpj,12) |
---|
114 | |
---|
115 | COMMON/cotgas/ gasfac, igaswind, icice, & |
---|
116 | wind, kgwanin, wsmo, kgwanmo, cicemo, & |
---|
117 | patm,ppres,strn |
---|
118 | |
---|
119 | !!--------------------------------------- |
---|
120 | !! |
---|
121 | !! COMMON/cotham/ : biological parameters |
---|
122 | !! |
---|
123 | !! -------------------------------------- |
---|
124 | !! |
---|
125 | INTEGER jkopt |
---|
126 | REAL caco3r, rno3, o2ut, po4r |
---|
127 | REAL sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput |
---|
128 | REAL calcon, rivpo4input,nitdepinput,oxymin,spocri |
---|
129 | REAL nitrif,rdenit,o2nit,concnnh4,concdnh4 |
---|
130 | REAL pislope,excret,wsbio,wchl,resrat,mprat,wchld |
---|
131 | REAL mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort |
---|
132 | REAL xksi1,xksi2,sicmax,xremik,xremip,xkdoc1 |
---|
133 | REAL xkdoc2,grosip,resrat2,excret2,mprat2,mzrat2,xprefz |
---|
134 | REAL xkgraz2,grazrat2,xlam1,conc1,conc2,conc3 |
---|
135 | REAL unass2,xprefpoc,epsher,epsher2,pislope2,mpratm |
---|
136 | REAL sigma1, sigma2, zprefc, zprefp, zprefd, wchl2, ferat3 |
---|
137 | REAL xsirem, fecnm, fecdm, chlcnm, chlcdm |
---|
138 | |
---|
139 | |
---|
140 | COMMON/cotham/jkopt,caco3r, rno3, o2ut, po4r, & |
---|
141 | sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput, & |
---|
142 | calcon, rivpo4input,nitdepinput,oxymin,spocri, & |
---|
143 | nitrif,rdenit,o2nit,concnnh4,concdnh4, & |
---|
144 | pislope,excret,wsbio,wchl,resrat,mprat,wchld, & |
---|
145 | mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort, & |
---|
146 | xksi1,xksi2,sicmax,xremik,xremip,xkdoc1, & |
---|
147 | xkdoc2,grosip,resrat2,excret2,mprat2,mzrat2,xprefz, & |
---|
148 | xkgraz2,grazrat2,xlam1,conc1,conc2,conc3, & |
---|
149 | unass2,xprefpoc,epsher,epsher2,pislope2,mpratm, & |
---|
150 | sigma1,sigma2, zprefc, zprefp, zprefd, wchl2, ferat3, & |
---|
151 | xsirem, fecnm, fecdm, chlcnm, chlcdm |
---|
152 | |
---|
153 | !! |
---|
154 | !!--------------------------------------------- |
---|
155 | !! |
---|
156 | !! COMMON/cotpar/ : Biological fluxes for light |
---|
157 | !! |
---|
158 | !!--------------------------------------------- |
---|
159 | !! |
---|
160 | REAL etot(jpi,jpj,jpk),etot3(jpi,jpj,jpk),emoy(jpi,jpj,jpk) |
---|
161 | REAL xkrgb(3,61),zmeu(jpi,jpj) |
---|
162 | |
---|
163 | COMMON/cotpar/etot,etot3,emoy,xkrgb,zmeu |
---|
164 | !! |
---|
165 | !!---------------------------------------------------------- |
---|
166 | !! |
---|
167 | !! COMMON/cotppp/ : Biological fluxes for primary production |
---|
168 | !! |
---|
169 | !!---------------------------------------------------------- |
---|
170 | !! |
---|
171 | REAL prmax(jpi,jpj,jpk),tgfunc(jpi,jpj,jpk), tgfunc2(jpi,jpj,jpk) |
---|
172 | REAL prcaca(jpi,jpj,jpk), silpro(jpi,jpj,jpk), prorca(jpi,jpj,jpk) |
---|
173 | REAL prorca2(jpi,jpj,jpk),prorca3(jpi,jpj,jpk) |
---|
174 | REAL prorca4(jpi,jpj,jpk),prorca5(jpi,jpj,jpk) |
---|
175 | REAL prorca6(jpi,jpj,jpk),prorca7(jpi,jpj,jpk) |
---|
176 | REAL pronew(jpi,jpj,jpk),pronew2(jpi,jpj,jpk) |
---|
177 | REAL proreg(jpi,jpj,jpk),proreg2(jpi,jpj,jpk) |
---|
178 | REAL xnanono3(jpi,jpj,jpk),xdiatno3(jpi,jpj,jpk) |
---|
179 | REAL xnanonh4(jpi,jpj,jpk),xdiatnh4(jpi,jpj,jpk) |
---|
180 | REAL xlimphy(jpi,jpj,jpk),xlimdia(jpi,jpj,jpk) |
---|
181 | REAL xksimax(jpi,jpj), xksi(jpi,jpj) |
---|
182 | REAL concdfe(jpi,jpj,jpk),xlimdia2(jpi,jpj,jpk) |
---|
183 | REAL concnfe(jpi,jpj,jpk),znegtr(jpi,jpj,jpk) |
---|
184 | |
---|
185 | |
---|
186 | |
---|
187 | COMMON/cotppp/prmax,tgfunc,prcaca,silpro,prorca,prorca2, & |
---|
188 | prorca3,prorca4,prorca5,prorca6,prorca7,pronew, & |
---|
189 | pronew2,proreg,proreg2,xnanono3,xdiatno3,tgfunc2, & |
---|
190 | xnanonh4,xdiatnh4,xlimphy,xlimdia,xksimax,xksi, & |
---|
191 | concdfe, xlimdia2, concnfe, znegtr |
---|
192 | !! |
---|
193 | !!------------------------------------------ |
---|
194 | !! |
---|
195 | !! COMMON/cotmorp/ : sinks for phytoplankton |
---|
196 | !! |
---|
197 | !!------------------------------------------ |
---|
198 | !! |
---|
199 | REAL tortp(jpi,jpj,jpk),tortnf(jpi,jpj,jpk) |
---|
200 | REAL tortnch(jpi,jpj,jpk),respp(jpi,jpj,jpk) |
---|
201 | REAL respnch(jpi,jpj,jpk),respdch(jpi,jpj,jpk) |
---|
202 | REAL tortp2(jpi,jpj,jpk),tortdf(jpi,jpj,jpk) |
---|
203 | REAL tortdch(jpi,jpj,jpk),respp2(jpi,jpj,jpk) |
---|
204 | REAL tortds(jpi,jpj,jpk),respds(jpi,jpj,jpk) |
---|
205 | REAL respdf(jpi,jpj,jpk),respnf(jpi,jpj,jpk) |
---|
206 | |
---|
207 | COMMON/cotmorp/tortp,tortnf,tortnch,respp,respnch, & |
---|
208 | respdch,tortp2,tortdf,tortdch,respp2,tortds, & |
---|
209 | respds,respdf,respnf |
---|
210 | !! |
---|
211 | !!------------------------------------ |
---|
212 | !! |
---|
213 | !! COMMON/cotzoo/ : SMS for zooplankton |
---|
214 | !! |
---|
215 | !!------------------------------------- |
---|
216 | !! |
---|
217 | REAL respz(jpi,jpj,jpk),tortz(jpi,jpj,jpk) |
---|
218 | REAL grazp(jpi,jpj,jpk),grazpf(jpi,jpj,jpk) |
---|
219 | REAL grazpch(jpi,jpj,jpk),grazm(jpi,jpj,jpk) |
---|
220 | REAL grazmf(jpi,jpj,jpk),grazsd(jpi,jpj,jpk) |
---|
221 | REAL grazsf(jpi,jpj,jpk),grazss(jpi,jpj,jpk) |
---|
222 | REAL grazsch(jpi,jpj,jpk),grarem(jpi,jpj,jpk) |
---|
223 | REAL grafer(jpi,jpj,jpk),respz2(jpi,jpj,jpk) |
---|
224 | REAL tortz2(jpi,jpj,jpk),grazd(jpi,jpj,jpk) |
---|
225 | REAL grazz(jpi,jpj,jpk),grazn(jpi,jpj,jpk) |
---|
226 | REAL grazpoc(jpi,jpj,jpk),graznf(jpi,jpj,jpk) |
---|
227 | REAL graznch(jpi,jpj,jpk),grazs(jpi,jpj,jpk) |
---|
228 | REAL grazf(jpi,jpj,jpk),grazdch(jpi,jpj,jpk) |
---|
229 | REAL grazpof(jpi,jpj,jpk),grarem2(jpi,jpj,jpk) |
---|
230 | REAL grafer2(jpi,jpj,jpk),grapoc2(jpi,jpj,jpk) |
---|
231 | REAL grapoc(jpi,jpj,jpk) |
---|
232 | REAL grazffe(jpi,jpj,jpk),grazfff(jpi,jpj,jpk) |
---|
233 | |
---|
234 | COMMON/cotzoo/respz,tortz,grazp,grazpf,grazpch,grazm, & |
---|
235 | grazmf,grazsd,grazsf,grazss,grazsch,grarem,grafer, & |
---|
236 | respz2,tortz2,grazd,grazz,grazn,grazpoc,graznf, & |
---|
237 | graznch,grazs,grazf,grazdch,grazpof,grarem2, & |
---|
238 | grafer2,grapoc2,grapoc,grazffe,grazfff |
---|
239 | !! |
---|
240 | !!--------------------------------------------- |
---|
241 | !! |
---|
242 | !! COMMON/cotpdom/ : SMS for the organic matter |
---|
243 | !! |
---|
244 | !!--------------------------------------------- |
---|
245 | !! |
---|
246 | REAL sinking2(jpi,jpj,jpk),phymoy(jpi,jpj) |
---|
247 | REAL sinking(jpi,jpj,jpk),sinkfer(jpi,jpj,jpk) |
---|
248 | REAL sinkfer2(jpi,jpj,jpk),zdiss(jpi,jpj,jpk) |
---|
249 | REAL xagg(jpi,jpj,jpk),xaggfe(jpi,jpj,jpk) |
---|
250 | REAL xbact(jpi,jpj,jpk),xaggdoc(jpi,jpj,jpk) |
---|
251 | REAL xaggdfe(jpi,jpj,jpk),xbactfer(jpi,jpj,jpk) |
---|
252 | REAL xscave(jpi,jpj,jpk),olimi(jpi,jpj,jpk) |
---|
253 | REAL orem(jpi,jpj,jpk),orem2(jpi,jpj,jpk) |
---|
254 | REAL ofer(jpi,jpj,jpk),ofer2(jpi,jpj,jpk) |
---|
255 | REAL osil(jpi,jpj,jpk),xaggdoc2(jpi,jpj,jpk) |
---|
256 | REAL wsbio4(jpi,jpj,jpk),wsbio3(jpi,jpj,jpk),wsbio2 |
---|
257 | REAL sinksil(jpi,jpj,jpk),sinkcal(jpi,jpj,jpk) |
---|
258 | REAL nitrfac(jpi,jpj,jpk),xlimbac(jpi,jpj,jpk) |
---|
259 | REAL wscal(jpi,jpj,jpk) |
---|
260 | |
---|
261 | COMMON/cotpdom/sinking2,phymoy,sinking,sinkfer,sinkfer2, & |
---|
262 | xagg,xaggfe,xbact,xaggdoc,xaggdfe,xbactfer,xscave, & |
---|
263 | olimi,orem,orem2,ofer,ofer2,osil,xaggdoc2,wsbio4, & |
---|
264 | wsbio3,wsbio2,sinksil,sinkcal,nitrfac,xlimbac,zdiss, & |
---|
265 | wscal |
---|
266 | !! |
---|
267 | !!--------------------------------------------------------- |
---|
268 | !! |
---|
269 | !! COMMON/cotesms/ : external sources of nutrients in ocean |
---|
270 | !! |
---|
271 | !!--------------------------------------------------------- |
---|
272 | !! |
---|
273 | REAL onitr(jpi,jpj,jpk),denitr(jpi,jpj,jpk) |
---|
274 | REAL dust(jpi,jpj),dustmo(jpi,jpj,12) |
---|
275 | REAL cmask(jpi,jpj,jpk),areacot,cotdep(jpi,jpj) |
---|
276 | REAL nitdep(jpi,jpj) |
---|
277 | REAL ironsed(jpi,jpj,jpk),rivinp(jpi,jpj) |
---|
278 | LOGICAL bdustfer, briver, bndepo, bsedinput |
---|
279 | |
---|
280 | COMMON/cotesms/onitr,denitr,dust,dustmo,cmask,areacot, & |
---|
281 | cotdep,nitdep,ironsed,rivinp,bdustfer,briver, & |
---|
282 | bndepo,bsedinput |
---|
283 | |
---|
284 | #endif |
---|
285 | |
---|