source: NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/SED/par_sed.F90 @ 10345

Last change on this file since 10345 was 10345, checked in by smasson, 2 years ago

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10344, see #2133

  • 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      jpim1    =>   jpim1 ,  & !: jpi - 1
17      jpjm1    =>   jpjm1 ,  & !: jpj - 1
18      jpij     =>   jpij  ,  & !: jpi x jpj
19      jp_tem   =>   jp_tem,  & !: indice of temperature
20      jp_sal   =>   jp_sal     !: indice of salintity
21
22   INTEGER, PARAMETER :: jpdta = 17
23
24   ! Vertical sediment geometry
25   INTEGER, PUBLIC   ::      &
26      jpksed   = 11 ,        &
27      jpksedm1 = 10
28
29   ! sediment tracer species
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
36   
37   ! pore water components       
38   INTEGER, PARAMETER :: &
39      jwsil  = 1,        & !: silic acid
40      jwoxy  = 2,        & !: oxygen
41      jwdic  = 3,        & !: dissolved inorganic carbon
42      jwno3  = 4,        & !: nitrate
43      jwpo4  = 5,        & !: phosphate
44      jwalk  = 6,        & !: alkalinity
45      jwnh4  = 7,        & !: Ammonium
46      jwh2s  = 8,        & !: Sulfate
47      jwso4  = 9,        & !: H2S
48      jwfe2  = 10          !: Fe2+
49
50   ! solid components       
51   INTEGER, PARAMETER ::  &
52      jsopal  = 1,        & !: opal sediment
53      jsclay  = 2,        & !: clay
54      jspoc   = 3,        & !: organic carbon
55      jscal   = 4,        & !: calcite
56      jspos   = 5,        & !: semi-ref POC
57      jspor   = 6,        & !: refractory POC
58      jsfeo   = 7,        & !: iron hydroxides
59      jsfes   = 8           !: FeS
60
61   INTEGER, PARAMETER ::  &
62      jptrased   = jpsol + jpwat , &
63      jpdia3dsed = 2             , &
64      jpdia2dsed = 12
65
66END MODULE par_sed
Note: See TracBrowser for help on using the repository browser.