source: branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/par_sed.F90 @ 5600

Last change on this file since 5600 was 5600, checked in by andrewryan, 5 years ago

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

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