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.
Changeset 336 for trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90 – NEMO

Ignore:
Timestamp:
2005-11-14T13:13:26+01:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_update_024 : CE + RB + CT : new evolution of modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90

    r274 r336  
    1313!! 
    1414!!--------------------------------------------------------------------- 
    15 !!  TOP 1.0,  LOCEAN-IPSL (2005) 
    16 !! $Header$ 
    17 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
     15!!  opa8, ipsl (11/96) 
    1816!!--------------------------------------------------------------------- 
    1917!! 
    … …  
    4038!! --------------------------------------------------------------------- 
    4139!! 
    42       REAL akcc1, akcc2, akcc3, akcc4, devk1, devk2, devkb 
    43       REAL devk1t, devk2t, devkbt, devkst, devks 
     40      REAL akcc1, akcc2, akcc3, akcc4, devk1(4), devk2(4) 
     41      REAL devk3(4), devk4(4), devk5(4), devkst, devks 
    4442      REAL bor1, bor2, c00, c01, c02, c03, c04, c05, c10, c11 
    4543      REAL c12, c13, c20, c21, c22, c23, cb0, cb1, cb2, cb3 
    46       REAL c14, c15, c16, c17, c24, c25, c26, c27 
    47       REAL cb4, cb5, cb6, cb7, cb8, cb9, cb10, cb11 
     44      REAL cb4, cb5, cb6, cb7, cb8, cb9, cb10, cb11, c14 
    4845      REAL cw3, cw4, cw5, cw6, cw0, cw1, cw2, ox0, ox1 
    4946      REAL ox2, ox3, ox4, salchl, rgas, oxyco, ox5 
    50       REAL chemc(jpi,jpj,3) 
    51  
    52       COMMON/cchem2/ akcc1, akcc2, akcc3, akcc4, devk1, devk2,  & 
    53       devkb, devk1t, devk2t, devkbt, devkst, devks,  & 
    54       bor1, bor2, c00, c01, c02, c03, c04, c05, c10, c11,  & 
    55       c12, c13, c20, c21, c22, c23, cb0, cb1, cb2, cb3,  & 
    56       c14, c15, c16, c17, c24, c25, c26, c27, cb4, cb5,  & 
    57       cb6, cb7, cb8, cb9, cb10, cb11,  cw3, cw4, cw5, cw6,  & 
    58       cw0, cw1, cw2, ox0, ox1, ox2, ox3, ox4, ox5, salchl,  & 
    59       rgas, oxyco, chemc 
     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 
    6064!! 
    6165!! COMMON/cchem3/ : Variable for chemistry of Fe and SIO3 
    … …  
    8690!! 
    8791 
    88       INTEGER iabsyr, nrdttrc 
     92      INTEGER iabsyr, nrdttrc, ndayflxtr 
    8993      REAL tspyr, absyr, xtvit 
    9094      REAL rfact, rfactr, rfact2, rfact2r 
    9195 
    92       COMMON/cottim/iabsyr,nrdttrc,tspyr, absyr,xtvit, & 
     96      COMMON/cottim/iabsyr,nrdttrc,tspyr, absyr,xtvit, ndayflxtr, & 
    9397                    rfact, rfactr, rfact2, rfact2r 
    9498 
    … …  
    120124      REAL caco3r, rno3, o2ut, po4r 
    121125      REAL sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput 
    122       REAL calcon, rivpo4input,rivnitinput,oxymin,spocri 
     126      REAL calcon, rivpo4input,nitdepinput,oxymin,spocri 
    123127      REAL nitrif,rdenit,o2nit,concnnh4,concdnh4 
    124       REAL pislope,excret,wsbio,wchl,resrat,mprat 
     128      REAL pislope,excret,wsbio,wchl,resrat,mprat,wchld 
    125129      REAL mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort 
    126130      REAL xksi1,xksi2,sicmax,xremik,xremip,xkdoc1 
    … …  
    129133      REAL unass2,xprefpoc,epsher,epsher2,pislope2,mpratm 
    130134      REAL sigma1, sigma2, zprefc, zprefp, zprefd, wchl2, ferat3 
    131       REAL xsirem 
     135      REAL xsirem, fecnm, fecdm, chlcnm, chlcdm 
    132136 
    133137 
    134138      COMMON/cotham/jkopt,caco3r, rno3, o2ut, po4r,   & 
    135139                    sco2, dispo0, conc0,sumdepsi,rivalkinput,sedfeinput,   & 
    136                     calcon, rivpo4input,rivnitinput,oxymin,spocri,   & 
     140                    calcon, rivpo4input,nitdepinput,oxymin,spocri,   & 
    137141                    nitrif,rdenit,o2nit,concnnh4,concdnh4, & 
    138                     pislope,excret,wsbio,wchl,resrat,mprat,   & 
     142                    pislope,excret,wsbio,wchl,resrat,mprat,wchld,   & 
    139143                    mzrat,grazrat,xprefc,xprefp,unass,xkgraz,xkmort,   & 
    140144                    xksi1,xksi2,sicmax,xremik,xremip,xkdoc1,   & 
    … …  
    143147                    unass2,xprefpoc,epsher,epsher2,pislope2,mpratm, & 
    144148                    sigma1,sigma2, zprefc, zprefp, zprefd, wchl2, ferat3, & 
    145                     xsirem 
     149                    xsirem, fecnm, fecdm, chlcnm, chlcdm 
    146150 
    147151!! 
    … …  
    163167!!---------------------------------------------------------- 
    164168!! 
    165       REAL prmax(jpi,jpj,jpk),tgfunc(jpi,jpj,jpk) 
     169      REAL prmax(jpi,jpj,jpk),tgfunc(jpi,jpj,jpk), tgfunc2(jpi,jpj,jpk) 
    166170      REAL prcaca(jpi,jpj,jpk), silpro(jpi,jpj,jpk), prorca(jpi,jpj,jpk) 
    167171      REAL prorca2(jpi,jpj,jpk),prorca3(jpi,jpj,jpk) 
    … …  
    174178      REAL xlimphy(jpi,jpj,jpk),xlimdia(jpi,jpj,jpk) 
    175179      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 
    176183 
    177184 
    178185      COMMON/cotppp/prmax,tgfunc,prcaca,silpro,prorca,prorca2,  & 
    179186          prorca3,prorca4,prorca5,prorca6,prorca7,pronew,  & 
    180           pronew2,proreg,proreg2,xnanono3,xdiatno3,  & 
    181           xnanonh4,xdiatnh4,xlimphy,xlimdia,xksimax,xksi 
     187          pronew2,proreg,proreg2,xnanono3,xdiatno3,tgfunc2,  & 
     188          xnanonh4,xdiatnh4,xlimphy,xlimdia,xksimax,xksi,  & 
     189          concdfe, xlimdia2, concnfe, znegtr 
    182190!! 
    183191!!------------------------------------------ 
    … …  
    247255      REAL sinksil(jpi,jpj,jpk),sinkcal(jpi,jpj,jpk) 
    248256      REAL nitrfac(jpi,jpj,jpk),xlimbac(jpi,jpj,jpk) 
     257      REAL wscal(jpi,jpj,jpk) 
    249258 
    250259      COMMON/cotpdom/sinking2,phymoy,sinking,sinkfer,sinkfer2,  & 
    251260          xagg,xaggfe,xbact,xaggdoc,xaggdfe,xbactfer,xscave,  & 
    252261          olimi,orem,orem2,ofer,ofer2,osil,xaggdoc2,wsbio4,  & 
    253           wsbio3,wsbio2,sinksil,sinkcal,nitrfac,xlimbac,zdiss 
     262          wsbio3,wsbio2,sinksil,sinkcal,nitrfac,xlimbac,zdiss, & 
     263          wscal 
    254264!! 
    255265!!--------------------------------------------------------- 
    … …  
    261271      REAL onitr(jpi,jpj,jpk),denitr(jpi,jpj,jpk) 
    262272      REAL dust(jpi,jpj),dustmo(jpi,jpj,12) 
    263       REAL cmask(jpi,jpj,jpk),areacot,cotdep(jpi,jpj,jpk) 
    264       REAL nitdep(jpi,jpj,jpk) 
    265       REAL ironsed(jpi,jpj,jpk),po4dep(jpi,jpj,jpk) 
     273      REAL cmask(jpi,jpj,jpk),areacot,cotdep(jpi,jpj) 
     274      REAL nitdep(jpi,jpj)  
     275      REAL ironsed(jpi,jpj,jpk),rivinp(jpi,jpj) 
    266276      LOGICAL bdustfer, briver, bndepo, bsedinput 
    267277 
    268278      COMMON/cotesms/onitr,denitr,dust,dustmo,cmask,areacot, & 
    269                      cotdep,nitdep,ironsed,po4dep,bdustfer,briver, & 
     279                     cotdep,nitdep,ironsed,rivinp,bdustfer,briver, & 
    270280                     bndepo,bsedinput 
    271281 
    272  
    273282#endif 
    274283 
Note: See TracChangeset for help on using the changeset viewer.