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