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 10324 for NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/TOP/PISCES/SED/par_sed.F90 – NEMO

Ignore:
Timestamp:
2018-11-16T16:16:27+01:00 (5 years ago)
Author:
davestorkey
Message:

UKMO/dev_r9950_old_tidal_mixing: Update to be relative to rev 10321 of NEMO4_beta_mirror branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/src/TOP/PISCES/SED/par_sed.F90

    r9950 r10324  
    77   !!        !  06-12  (C. Ethe)  Orignal 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_sed 
    10    !!---------------------------------------------------------------------- 
    11    !!   'key_sed'                                                  Sediment  
    12    !!---------------------------------------------------------------------- 
     9   !! $Id$ 
    1310 
    1411   !! Domain characteristics 
     
    1916      jpim1    =>   jpim1 ,  & !: jpi - 1 
    2017      jpjm1    =>   jpjm1 ,  & !: jpj - 1 
    21       jpij     =>   jpij      !: jpi x jpj 
    22       jp_tem   =>   jp_tem    !: indice of temperature 
     18      jpij     =>   jpij  ,  & !: jpi x jpj 
     19      jp_tem   =>   jp_tem,  & !: indice of temperature 
    2320      jp_sal   =>   jp_sal     !: indice of salintity 
    2421 
    25 #if ! defined key_sed_off 
    26    USE par_pisces 
    27 #endif 
    28  
    29    INTEGER, PARAMETER :: jpdta = 12 
    30  
     22   INTEGER, PARAMETER :: jpdta = 17 
    3123 
    3224   ! Vertical sediment geometry 
    33    INTEGER, PARAMETER :: & 
    34       jpksed   = 11         ,   & !: number of sediment layers 
    35       jpksedm1 = jpksed - 1  
    36        
     25   INTEGER, PUBLIC   ::      & 
     26      jpksed   = 11 ,        & 
     27      jpksedm1 = 10 
     28 
    3729   ! sediment tracer species 
    38    INTEGER, PARAMETER :: & 
    39       jpsol = 4,         &  !: number of solid component 
    40       jpwat = 7,         &   !: number of pore water component 
    41       jpwatp1 = jpwat + 1 
     30   INTEGER, PARAMETER ::    & 
     31      jpsol =  8,           &  !: number of solid component 
     32      jpwat = 10,           &   !: number of pore water component 
     33      jpwatp1 = jpwat +1,   & 
     34      jpsol1 = jpsol - 1 
     35 
    4236    
    4337   ! pore water components        
     
    4943      jwpo4  = 5,        & !: phosphate 
    5044      jwalk  = 6,        & !: alkalinity 
    51       jwc13  = 7           !: dissolved inorganic carbon 13 
     45      jwnh4  = 7,        & !: Ammonium 
     46      jwh2s  = 8,        & !: Sulfate 
     47      jwso4  = 9,        & !: H2S 
     48      jwfe2  = 10          !: Fe2+ 
    5249 
    5350   ! solid components        
     
    5653      jsclay  = 2,        & !: clay 
    5754      jspoc   = 3,        & !: organic carbon 
    58       jscal   = 4           !: calcite 
     55      jscal   = 4,        & !: calcite 
     56      jspos   = 5,        & !: semi-ref POC 
     57      jspor   = 6,        & !: refractory POC 
     58      jsfeo   = 7,        & !: iron hydroxides 
     59      jsfes   = 8           !: FeS 
    5960 
    6061   INTEGER, PARAMETER ::  & 
    6162      jptrased   = jpsol + jpwat , & 
    62       jpdia3dsed = 3          , & 
    63       jpdia2dsed = 7 
    64 #endif 
     63      jpdia3dsed = 2             , & 
     64      jpdia2dsed = 12 
    6565 
    66    !!---------------------------------------------------------------------- 
    67    !! NEMO/TOP 4.0 , NEMO Consortium (2018) 
    68    !! $Id$ 
    69    !! Software governed by the CeCILL licence (./LICENSE) 
    70    !!====================================================================== 
    7166END MODULE par_sed 
Note: See TracChangeset for help on using the changeset viewer.