source: trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/par_sed.F90 @ 4528

Last change on this file since 4528 was 3443, checked in by cetlod, 9 years ago

branch:2012/dev_r3438_LOCEAN15_PISLOB : 1st step of the merge, see ticket #972

File size: 2.1 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#if defined key_sed
10   !! Domain characteristics
11   USE par_kind
12   USE par_oce , ONLY :       &
13      jpi      =>   jpi   ,  & !: first  dimension of grid --> i
14      jpj      =>   jpj   ,  & !: second dimension of grid --> j
15      jpim1    =>   jpim1 ,  & !: jpi - 1
16      jpjm1    =>   jpjm1 ,  & !: jpj - 1
17      jpij     =>   jpij       !: jpi x jpj
18      jp_tem   =>   jp_tem     !: indice of temperature
19      jp_sal   =>   jp_sal     !: indice of salintity
20
21#if ! defined key_sed_off
22   USE par_pisces
23#endif
24
25#if defined key_kriest
26   INTEGER, PARAMETER :: jpdta = 11
27#else
28   INTEGER, PARAMETER :: jpdta = 12
29#endif
30
31
32   ! Vertical sediment geometry
33   INTEGER, PARAMETER :: &
34      jpksed   = 11         ,   & !: number of sediment layers
35      jpksedm1 = jpksed - 1 
36     
37   ! 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
42
43   
44   ! pore water components       
45   INTEGER, PARAMETER :: &
46      jwsil  = 1,        & !: silic acid
47      jwoxy  = 2,        & !: oxygen
48      jwdic  = 3,        & !: dissolved inorganic carbon
49      jwno3  = 4,        & !: nitrate
50      jwpo4  = 5,        & !: phosphate
51      jwalk  = 6,        & !: alkalinity
52      jwc13  = 7           !: dissolved inorganic carbon 13
53
54   ! solid components       
55   INTEGER, PARAMETER ::  &
56      jsopal  = 1,        & !: opal sediment
57      jsclay  = 2,        & !: clay
58      jspoc   = 3,        & !: organic carbon
59      jscal   = 4           !: calcite
60
61   INTEGER, PARAMETER ::  &
62      jptrased   = jpsol + jpwat , &
63      jpdia3dsed = 3          , &
64      jpdia2dsed = 7
65#endif
66END MODULE par_sed
Note: See TracBrowser for help on using the repository browser.