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 15075 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/SED/par_sed.F90 – NEMO

Ignore:
Timestamp:
2021-07-02T17:15:57+02:00 (3 years ago)
Author:
aumont
Message:

major update of the sediment module

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/PISCES/SED/par_sed.F90

    r14385 r15075  
    2020      jp_sal   =>   jp_sal     !: indice of salintity 
    2121 
    22    INTEGER, PUBLIC, PARAMETER :: jpdta = 17 
     22   INTEGER, PARAMETER :: jpdta = 18 
    2323 
    2424   ! Vertical sediment geometry 
    25    INTEGER, PUBLIC  :: jpksed  = 11  
    26    INTEGER, PUBLIC  :: jpksedm1  
     25   INTEGER, PUBLIC   ::      & 
     26      jpksed   = 11 ,        & 
     27      jpksedm1 = 10 
    2728 
    2829   ! sediment tracer species 
    29    INTEGER, PUBLIC, PARAMETER ::    & 
     30   INTEGER, PARAMETER ::    & 
    3031      jpsol =  8,           &  !: number of solid component 
    31       jpwat = 10,           &   !: number of pore water component 
     32      jpwat = 11,           &   !: number of pore water component 
     33      jpads = 2 ,           &   !! number adsorbed species 
    3234      jpwatp1 = jpwat +1,   & 
    3335      jpsol1 = jpsol - 1 
    … …  
    3537    
    3638   ! pore water components        
    37    INTEGER, PUBLIC, PARAMETER :: & 
    38       jwsil  = 1,        & !: silic acid 
    39       jwoxy  = 2,        & !: oxygen 
    40       jwdic  = 3,        & !: dissolved inorganic carbon 
    41       jwno3  = 4,        & !: nitrate 
    42       jwpo4  = 5,        & !: phosphate 
    43       jwalk  = 6,        & !: alkalinity 
    44       jwnh4  = 7,        & !: Ammonium 
    45       jwh2s  = 8,        & !: Sulfate 
    46       jwso4  = 9,        & !: H2S 
    47       jwfe2  = 10          !: Fe2+ 
     39   INTEGER, PARAMETER :: & 
     40      jwoxy  = 1,        & !: oxygen 
     41      jwno3  = 2,        & !: nitrate 
     42      jwpo4  = 3,        & !: phosphate 
     43      jwnh4  = 4,        & !: Ammonium 
     44      jwh2s  = 5,        & !: Sulfate 
     45      jwso4  = 6,        & !: H2S 
     46      jwfe2  = 7,        & !: Fe2+ 
     47      jwalk  = 8,        & !: Alkalinity 
     48      jwlgw  = 9,        & !: Alkalinity 
     49      jwdic  = 10,       & !: DIC 
     50      jwsil  = 11          !: Silicate 
    4851 
    4952   ! solid components        
    50    INTEGER, PUBLIC, PARAMETER ::  & 
    51       jsopal  = 1,        & !: opal sediment 
    52       jsclay  = 2,        & !: clay 
     53   INTEGER, PARAMETER ::  & 
     54      jsfeo   = 1,        & !: iron hydroxides 
     55      jsfes   = 2,        & !: FeS 
    5356      jspoc   = 3,        & !: organic carbon 
    54       jscal   = 4,        & !: calcite 
    55       jspos   = 5,        & !: semi-ref POC 
    56       jspor   = 6,        & !: refractory POC 
    57       jsfeo   = 7,        & !: iron hydroxides 
    58       jsfes   = 8           !: FeS 
     57      jspos   = 4,        & !: semi-ref POC 
     58      jspor   = 5,        & !: refractory POC 
     59      jscal   = 6,        & !: Calcite 
     60      jsopal  = 7,        & !: Opal 
     61      jsclay  = 8           !: clay 
    5962 
    60    INTEGER, PUBLIC, PARAMETER ::  & 
     63   INTEGER, PARAMETER ::  & 
    6164      jptrased   = jpsol + jpwat , & 
    62       jpdia3dsed = 4             , & 
    63       jpdia2dsed = 20  
     65      jpvode     = jptrased - 11 , & 
     66      jpdia3dsed = 3             , & 
     67      jpdia2dsed = 21  
    6468 
    6569END MODULE par_sed 
Note: See TracChangeset for help on using the changeset viewer.