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.
par_sed.F90 in NEMO/trunk/src/TOP/PISCES/SED – NEMO

source: NEMO/trunk/src/TOP/PISCES/SED/par_sed.F90

Last change on this file was 15450, checked in by cetlod, 2 years ago

Some updates to make the PISCES/SED module usable. Totally orthogonal with no effect on other parts of the code

  • Property svn:keywords set to Id
File size: 2.2 KB
Line 
1MODULE par_sed
2   !!======================================================================
3   !!                        ***  par_sed  ***
4   !! Sediment :   set sediment parameter
5   !!======================================================================
6   !! History :
7   !!        !  06-12  (C. Ethe)  Orignal
8   !!----------------------------------------------------------------------
9   !! $Id$
10
11   !! Domain characteristics
12   USE par_kind
13   USE par_oce , ONLY :       &
14      jpi      =>   jpi   ,  & !: first  dimension of grid --> i
15      jpj      =>   jpj   ,  & !: second dimension of grid --> j
16      jpij     =>   jpij  ,  & !: jpi x jpj
17      jp_tem   =>   jp_tem,  & !: indice of temperature
18      jp_sal   =>   jp_sal     !: indice of salintity
19
20   INTEGER, PARAMETER :: jpdta = 18
21
22   ! Vertical sediment geometry
23   INTEGER, PUBLIC   ::      &
24      jpksed   = 11 ,        &
25      jpksedm1 = 10
26
27   ! sediment tracer species
28   INTEGER, PARAMETER ::    &
29      jpsol =  8,           &  !: number of solid component
30      jpwat = 11,           &   !: number of pore water component
31      jpads = 2 ,           &   !! number adsorbed species
32      jpwatp1 = jpwat +1,   &
33      jpsol1 = jpsol - 1
34
35   
36   ! pore water components       
37   INTEGER, PARAMETER :: &
38      jwoxy  = 1,        & !: oxygen
39      jwno3  = 2,        & !: nitrate
40      jwpo4  = 3,        & !: phosphate
41      jwnh4  = 4,        & !: Ammonium
42      jwh2s  = 5,        & !: Sulfate
43      jwso4  = 6,        & !: H2S
44      jwfe2  = 7,        & !: Fe2+
45      jwalk  = 8,        & !: Alkalinity
46      jwlgw  = 9,        & !: Alkalinity
47      jwdic  = 10,       & !: DIC
48      jwsil  = 11          !: Silicate
49
50   ! solid components       
51   INTEGER, PARAMETER ::  &
52      jsfeo   = 1,        & !: iron hydroxides
53      jsfes   = 2,        & !: FeS
54      jspoc   = 3,        & !: organic carbon
55      jspos   = 4,        & !: semi-ref POC
56      jspor   = 5,        & !: refractory POC
57      jscal   = 6,        & !: Calcite
58      jsopal  = 7,        & !: Opal
59      jsclay  = 8           !: clay
60
61   INTEGER, PARAMETER ::  &
62      jptrased   = jpsol + jpwat , &
63      jpvode     = jptrased - 11  , &
64      jpdia3dsed = 3             , &
65      jpdia2dsed = 22 
66
67END MODULE par_sed
Note: See TracBrowser for help on using the repository browser.