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

Ignore:
Timestamp:
2007-12-13T14:52:50+01:00 (16 years ago)
Author:
gm
Message:

dev_001_GM - Style only addition in TOP F90 h90 routines

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_001_GM/NEMO/TOP_SRC/SMS/sms_pisces.h90

    r730 r763  
    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 
     1   !!---------------------------------------------------------------------- 
     2   !!                     ***  sms_pisces.h90  ***   
     3   !! TOP :   PISCES Source Minus Sink valiables 
     4   !!---------------------------------------------------------------------- 
     5   !! History :   1.0  !  2000-02 (O. Aumont) original code 
     6   !!---------------------------------------------------------------------- 
    277 
    28       REAL :: & 
    29          atcco2, atcox 
     8   !!---------------------------------------------------------------------- 
     9   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
     10   !! $Header$  
     11   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     12   !!---------------------------------------------------------------------- 
    3013 
    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 
     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                                !: ??? 
    5522 
    56       REAL(wp), DIMENSION(jpi,jpj,3) :: & 
    57          chemc 
     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   !: ??? 
    5843 
    59 !! 
    60 !!---------------------------------------------------------------------- 
    61 !! 
    62 !!  Variable for chemistry of Fe and SIO3 
    63 !! 
    64 !! --------------------------------------------------------------------- 
    65 !! 
    66       REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 
    67          sio3eq, fekeq 
     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    !: ??? 
    6849 
    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 
     50   !!---------------------------------------------------------------------- 
     51   !!  Time variables 
     52   !! --------------------------------------------------------------------- 
     53   INTEGER  ::   iabsyr, nrdttrc, ndayflxtr       !: ??? 
     54   REAL(wp) ::   tspyr, absyr, xtvit              !: ??? 
     55   REAL(wp) ::   rfact, rfactr, rfact2, rfact2r   !: ??? 
    8356 
    8457 
    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 
     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                    !: ??? 
    10280 
    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 
     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     !: ??? 
    11687 
     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   !: ??? 
    11799 
     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            !: ??? 
    118107 
    119 !! 
    120 !!--------------------------------------------- 
    121 !! 
    122 !!  Biological fluxes for light 
    123 !! 
    124 !!--------------------------------------------- 
    125 !! 
    126       REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 
    127          etot, etot3, emoy 
     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                      !: ??? 
    128118 
    129       REAL(wp), DIMENSION(jpi,jpj) :: & 
    130          zmeu 
     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                             !: ??? 
    131128 
    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  
     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         !: ??? 
    228139 
    229140#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 
     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      !: ??? 
    246151#endif 
    247152 
    248 #endif 
    249  
Note: See TracChangeset for help on using the changeset viewer.