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 5266 for branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/par_pisces.F90 – NEMO

Ignore:
Timestamp:
2015-05-13T10:37:43+02:00 (9 years ago)
Author:
cetlod
Message:

PISCES_QUOTA : First commits, see ticket #1516

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/par_pisces.F90

    r3680 r5266  
    1717   !!   'key_pisces_reduced'   :                                LOBSTER bio-model 
    1818   !!--------------------------------------------------------------------- 
    19    LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag  
    20    LOGICAL, PUBLIC, PARAMETER ::   lk_p4z        = .FALSE. !: p4z flag  
     19   INTEGER, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag  
     20   INTEGER, PUBLIC, PARAMETER ::   nn_p4z        =  1      !: p4z flag  
    2121   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     =  6      !: number of passive tracers 
    2222   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_2d  =  19     !: additional 2d output  
    … …  
    4141   !!--------------------------------------------------------------------- 
    4242   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag  
    43    LOGICAL, PUBLIC, PARAMETER ::   lk_p4z        = .TRUE. !: p4z flag  
     43   INTEGER, PUBLIC, PARAMETER ::   nn_p4z        =  2      !: p4z flag  
    4444   LOGICAL, PUBLIC, PARAMETER ::   lk_kriest     = .TRUE.  !: Kriest flag  
    4545   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     =  23     !: number of passive tracers 
    … …  
    8080   !!--------------------------------------------------------------------- 
    8181   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag  
    82    LOGICAL, PUBLIC, PARAMETER ::   lk_p4z        = .TRUE.  !: p4z flag  
     82   INTEGER, PUBLIC, PARAMETER ::   nn_p4z        =  2  !: p4z flag  
    8383   LOGICAL, PUBLIC, PARAMETER ::   lk_kriest     = .FALSE. !: Kriest flag  
    8484   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     = 24      !: number of PISCES passive tracers 
    … …  
    115115   INTEGER, PUBLIC, PARAMETER ::   jpnh4 = 24    !: Ammonium Concentration 
    116116 
     117#elif defined key_pisces_quota  &&  defined key_kriest 
     118   !!--------------------------------------------------------------------- 
     119   !!   'key_pisces' & 'key_kriest'                 PISCES bio-model + ??? 
     120   !!--------------------------------------------------------------------- 
     121   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag  
     122   INTEGER, PUBLIC, PARAMETER ::   nn_p4z        =  3 !: p4z flag  
     123   LOGICAL, PUBLIC, PARAMETER ::   lk_kriest     = .TRUE.  !: Kriest flag  
     124   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     =  36     !: number of passive tracers 
     125   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_2d  =  13     !: additional 2d output  
     126   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_3d  =  18     !: additional 3d output  
     127   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_trd =   1     !: number of sms trends for PISCES 
     128 
     129   ! assign an index in trc arrays for each LOBSTER prognostic variables 
     130   !    WARNING: be carefull about the order when reading the restart 
     131        !   !!gm  this warning should be obsolet with IOM 
     132   INTEGER, PUBLIC, PARAMETER ::   jpdic =  1    !: dissolved inoganic carbon concentration  
     133   INTEGER, PUBLIC, PARAMETER ::   jptal =  2    !: total alkalinity  
     134   INTEGER, PUBLIC, PARAMETER ::   jpoxy =  3    !: oxygen carbon concentration  
     135   INTEGER, PUBLIC, PARAMETER ::   jpcal =  4    !: calcite  concentration  
     136   INTEGER, PUBLIC, PARAMETER ::   jppo4 =  5    !: phosphate concentration  
     137   INTEGER, PUBLIC, PARAMETER ::   jppoc =  6    !: small particulate organic phosphate concentration 
     138   INTEGER, PUBLIC, PARAMETER ::   jpsil =  7    !: silicate concentration 
     139   INTEGER, PUBLIC, PARAMETER ::   jpphy =  8    !: phytoplancton concentration  
     140   INTEGER, PUBLIC, PARAMETER ::   jpzoo =  9    !: zooplancton concentration 
     141   INTEGER, PUBLIC, PARAMETER ::   jpdoc = 10    !: dissolved organic carbon concentration  
     142   INTEGER, PUBLIC, PARAMETER ::   jpdia = 11    !: Diatoms Concentration 
     143   INTEGER, PUBLIC, PARAMETER ::   jpmes = 12    !: Mesozooplankton Concentration 
     144   INTEGER, PUBLIC, PARAMETER ::   jpdsi = 13    !: (big) Silicate Concentration 
     145   INTEGER, PUBLIC, PARAMETER ::   jpfer = 14    !: Iron Concentration 
     146   INTEGER, PUBLIC, PARAMETER ::   jpnum = 15    !: Big iron particles Concentration 
     147   INTEGER, PUBLIC, PARAMETER ::   jpsfe = 16    !: number of particulate organic phosphate concentration 
     148   INTEGER, PUBLIC, PARAMETER ::   jpdfe = 17    !: Diatoms iron Concentration 
     149   INTEGER, PUBLIC, PARAMETER ::   jpgsi = 18    !: Diatoms Silicate Concentration 
     150   INTEGER, PUBLIC, PARAMETER ::   jpnfe = 19    !: Nano iron Concentration 
     151   INTEGER, PUBLIC, PARAMETER ::   jpnch = 20    !: Nano Chlorophyll Concentration 
     152   INTEGER, PUBLIC, PARAMETER ::   jpdch = 21    !: Diatoms Chlorophyll Concentration 
     153   INTEGER, PUBLIC, PARAMETER ::   jpno3 = 22    !: Nitrates Concentration 
     154   INTEGER, PUBLIC, PARAMETER ::   jpnh4 = 23    !: Ammonium Concentration 
     155   INTEGER, PUBLIC, PARAMETER ::   jpdon = 24    !: dissolved organic nitrogen concentration 
     156   INTEGER, PUBLIC, PARAMETER ::   jpdop = 25    !: dissolved organic phosphorus concentration 
     157   INTEGER, PUBLIC, PARAMETER ::   jppon = 26    !: small particulate organic nitrogen concentration 
     158   INTEGER, PUBLIC, PARAMETER ::   jppop = 27    !: small particulate organic phosphorus concentration 
     159   INTEGER, PUBLIC, PARAMETER ::   jpnph = 28    !: small particulate organic phosphorus concentration 
     160   INTEGER, PUBLIC, PARAMETER ::   jppph = 29    !: small particulate organic phosphorus concentration 
     161   INTEGER, PUBLIC, PARAMETER ::   jpndi = 30    !: small particulate organic phosphorus concentration 
     162   INTEGER, PUBLIC, PARAMETER ::   jppdi = 31    !: small particulate organic phosphorus concentration 
     163   INTEGER, PUBLIC, PARAMETER ::   jppic = 32    !: small particulate organic phosphorus concentration 
     164   INTEGER, PUBLIC, PARAMETER ::   jpnpi = 33    !: small particulate organic phosphorus concentration 
     165   INTEGER, PUBLIC, PARAMETER ::   jpppi = 34    !: small particulate organic phosphorus concentration 
     166   INTEGER, PUBLIC, PARAMETER ::   jppfe = 35    !: small particulate organic phosphorus concentration 
     167   INTEGER, PUBLIC, PARAMETER ::   jppch = 36    !: small particulate organic phosphorus concentration 
     168 
     169#elif defined key_pisces_quota 
     170   !!--------------------------------------------------------------------- 
     171   !!   'key_pisces'   :                         standard PISCES bio-model 
     172   !!--------------------------------------------------------------------- 
     173   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .TRUE.  !: PISCES flag  
     174   INTEGER, PUBLIC, PARAMETER ::   nn_p4z        =  3  !: p4z flag  
     175   LOGICAL, PUBLIC, PARAMETER ::   lk_kriest     = .FALSE. !: Kriest flag  
     176   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     = 39      !: number of PISCES passive tracers 
     177   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_2d  = 13      !: additional 2d output  
     178   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_3d  = 11      !: additional 3d output  
     179   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_trd =  1      !: number of sms trends for PISCES 
     180 
     181   ! assign an index in trc arrays for each LOBSTER prognostic variables 
     182   !    WARNING: be carefull about the order when reading the restart 
     183        !   !!gm  this warning should be obsolet with IOM 
     184   INTEGER, PUBLIC, PARAMETER ::   jpdic =  1    !: dissolved inoganic carbon concentration  
     185   INTEGER, PUBLIC, PARAMETER ::   jptal =  2    !: total alkalinity  
     186   INTEGER, PUBLIC, PARAMETER ::   jpoxy =  3    !: oxygen carbon concentration  
     187   INTEGER, PUBLIC, PARAMETER ::   jpcal =  4    !: calcite  concentration  
     188   INTEGER, PUBLIC, PARAMETER ::   jppo4 =  5    !: phosphate concentration  
     189   INTEGER, PUBLIC, PARAMETER ::   jppoc =  6    !: small particulate organic phosphate concentration 
     190   INTEGER, PUBLIC, PARAMETER ::   jpsil =  7    !: silicate concentration 
     191   INTEGER, PUBLIC, PARAMETER ::   jpphy =  8    !: phytoplancton concentration  
     192   INTEGER, PUBLIC, PARAMETER ::   jpzoo =  9    !: zooplancton concentration 
     193   INTEGER, PUBLIC, PARAMETER ::   jpdoc = 10    !: dissolved organic carbon concentration  
     194   INTEGER, PUBLIC, PARAMETER ::   jpdia = 11    !: Diatoms Concentration 
     195   INTEGER, PUBLIC, PARAMETER ::   jpmes = 12    !: Mesozooplankton Concentration 
     196   INTEGER, PUBLIC, PARAMETER ::   jpdsi = 13    !: (big) Silicate Concentration 
     197   INTEGER, PUBLIC, PARAMETER ::   jpfer = 14    !: Iron Concentration 
     198   INTEGER, PUBLIC, PARAMETER ::   jpbfe = 15    !: Big iron particles Concentration 
     199   INTEGER, PUBLIC, PARAMETER ::   jpgoc = 16    !: big particulate organic phosphate concentration 
     200   INTEGER, PUBLIC, PARAMETER ::   jpsfe = 17    !: Small iron particles Concentration 
     201   INTEGER, PUBLIC, PARAMETER ::   jpdfe = 18    !: Diatoms iron Concentration 
     202   INTEGER, PUBLIC, PARAMETER ::   jpgsi = 19    !: Diatoms Silicate Concentration 
     203   INTEGER, PUBLIC, PARAMETER ::   jpnfe = 20    !: Nano iron Concentration 
     204   INTEGER, PUBLIC, PARAMETER ::   jpnch = 21    !: Nano Chlorophyll Concentration 
     205   INTEGER, PUBLIC, PARAMETER ::   jpdch = 22    !: Diatoms Chlorophyll Concentration 
     206   INTEGER, PUBLIC, PARAMETER ::   jpno3 = 23    !: Nitrates Concentration 
     207   INTEGER, PUBLIC, PARAMETER ::   jpnh4 = 24    !: Ammonium Concentration 
     208   INTEGER, PUBLIC, PARAMETER ::   jpdon = 25    !: dissolved organic nitrogen concentration 
     209   INTEGER, PUBLIC, PARAMETER ::   jpdop = 26    !: dissolved organic phosphorus concentration 
     210   INTEGER, PUBLIC, PARAMETER ::   jppon = 27    !: small particulate organic nitrogen concentration 
     211   INTEGER, PUBLIC, PARAMETER ::   jppop = 28    !: small particulate organic phosphorus concentration 
     212   INTEGER, PUBLIC, PARAMETER ::   jpgon = 29    !: big particulate organic nitrogen concentration 
     213   INTEGER, PUBLIC, PARAMETER ::   jpgop = 30    !: big particulate organic phosphate concentration 
     214   INTEGER, PUBLIC, PARAMETER ::   jpnph = 31    !: big particulate organic phosphate concentration 
     215   INTEGER, PUBLIC, PARAMETER ::   jppph = 32    !: big particulate organic phosphate concentration 
     216   INTEGER, PUBLIC, PARAMETER ::   jpndi = 33    !: big particulate organic phosphate concentration 
     217   INTEGER, PUBLIC, PARAMETER ::   jppdi = 34    !: big particulate organic phosphate concentration 
     218   INTEGER, PUBLIC, PARAMETER ::   jppic = 35    !: big particulate organic phosphate concentration 
     219   INTEGER, PUBLIC, PARAMETER ::   jpnpi = 36    !: big particulate organic phosphate concentration 
     220   INTEGER, PUBLIC, PARAMETER ::   jpppi = 37    !: big particulate organic phosphate concentration 
     221   INTEGER, PUBLIC, PARAMETER ::   jppfe = 38    !: big particulate organic phosphate concentration 
     222   INTEGER, PUBLIC, PARAMETER ::   jppch = 39    !: big particulate organic phosphate concentration 
     223 
     224 
    117225#else 
    118226   !!--------------------------------------------------------------------- 
    … …  
    120228   !!--------------------------------------------------------------------- 
    121229   LOGICAL, PUBLIC, PARAMETER ::   lk_pisces     = .FALSE.  !: PISCES flag  
    122    LOGICAL, PUBLIC, PARAMETER ::   lk_p4z        = .FALSE.  !: p4z flag  
     230   LOGICAL, PUBLIC, PARAMETER ::   nn_p4z        =  0  !: p4z flag  
    123231   INTEGER, PUBLIC, PARAMETER ::   jp_pisces     =  0       !: No CFC tracers 
    124232   INTEGER, PUBLIC, PARAMETER ::   jp_pisces_2d  =  0       !: No CFC additional 2d output arrays  
Note: See TracChangeset for help on using the changeset viewer.