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

Last change on this file since 10068 was 10068, checked in by nicolasmartin, 2 years ago

First part of modifications to have a common default header : fix typos and SVN keywords properties

  • Property svn:keywords set to Id
File size: 2.5 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   !!----------------------------------------------------------------------
11   !!   'key_sed'                                                  Sediment
12   !!----------------------------------------------------------------------
13
14   !! Domain characteristics
15   USE par_kind
16   USE par_oce , ONLY :       &
17      jpi      =>   jpi   ,  & !: first  dimension of grid --> i
18      jpj      =>   jpj   ,  & !: second dimension of grid --> j
19      jpim1    =>   jpim1 ,  & !: jpi - 1
20      jpjm1    =>   jpjm1 ,  & !: jpj - 1
21      jpij     =>   jpij       !: jpi x jpj
22      jp_tem   =>   jp_tem     !: indice of temperature
23      jp_sal   =>   jp_sal     !: indice of salintity
24
25#if ! defined key_sed_off
26   USE par_pisces
27#endif
28
29   INTEGER, PARAMETER :: jpdta = 12
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   ! pore water components       
44   INTEGER, PARAMETER :: &
45      jwsil  = 1,        & !: silic acid
46      jwoxy  = 2,        & !: oxygen
47      jwdic  = 3,        & !: dissolved inorganic carbon
48      jwno3  = 4,        & !: nitrate
49      jwpo4  = 5,        & !: phosphate
50      jwalk  = 6,        & !: alkalinity
51      jwc13  = 7           !: dissolved inorganic carbon 13
52
53   ! solid components       
54   INTEGER, PARAMETER ::  &
55      jsopal  = 1,        & !: opal sediment
56      jsclay  = 2,        & !: clay
57      jspoc   = 3,        & !: organic carbon
58      jscal   = 4           !: calcite
59
60   INTEGER, PARAMETER ::  &
61      jptrased   = jpsol + jpwat , &
62      jpdia3dsed = 3          , &
63      jpdia2dsed = 7
64#endif
65
66   !!----------------------------------------------------------------------
67   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
68   !! $Id$
69   !! Software governed by the CeCILL license (see ./LICENSE)
70   !!======================================================================
71END MODULE par_sed
Note: See TracBrowser for help on using the repository browser.