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 branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/TOP_SRC/PISCES/SED – NEMO

source: branches/UKMO/dev_r8864_restart_date/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/par_sed.F90 @ 9235

Last change on this file since 9235 was 9235, checked in by davestorkey, 6 years ago

UKMO/dev_r8864_restart_date : clear SVN keywords.

File size: 2.0 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#if defined key_sed
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#if ! defined key_sed_off
23   USE par_pisces
24#endif
25
26   INTEGER, PARAMETER :: jpdta = 12
27
28
29   ! Vertical sediment geometry
30   INTEGER, PARAMETER :: &
31      jpksed   = 11         ,   & !: number of sediment layers
32      jpksedm1 = jpksed - 1 
33     
34   ! sediment tracer species
35   INTEGER, PARAMETER :: &
36      jpsol = 4,         &  !: number of solid component
37      jpwat = 7,         &   !: number of pore water component
38      jpwatp1 = jpwat + 1
39
40   
41   ! pore water components       
42   INTEGER, PARAMETER :: &
43      jwsil  = 1,        & !: silic acid
44      jwoxy  = 2,        & !: oxygen
45      jwdic  = 3,        & !: dissolved inorganic carbon
46      jwno3  = 4,        & !: nitrate
47      jwpo4  = 5,        & !: phosphate
48      jwalk  = 6,        & !: alkalinity
49      jwc13  = 7           !: dissolved inorganic carbon 13
50
51   ! solid components       
52   INTEGER, PARAMETER ::  &
53      jsopal  = 1,        & !: opal sediment
54      jsclay  = 2,        & !: clay
55      jspoc   = 3,        & !: organic carbon
56      jscal   = 4           !: calcite
57
58   INTEGER, PARAMETER ::  &
59      jptrased   = jpsol + jpwat , &
60      jpdia3dsed = 3          , &
61      jpdia2dsed = 7
62#endif
63END MODULE par_sed
Note: See TracBrowser for help on using the repository browser.