source: NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/par_pisces.F90 @ 12110

Last change on this file since 12110 was 12110, checked in by cetlod, 8 months ago

merge dev_r11219_TOP-01_cethe_PISCES_LBC onto dev_r12072_TOP-01_ENHANCE-11_CEthe

  • Property svn:keywords set to Id
File size: 4.7 KB
Line 
1MODULE par_pisces
2   !!======================================================================
3   !!                        ***  par_pisces  ***
4   !! TOP :   set the PISCES parameters
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
7   !!----------------------------------------------------------------------
8   USE par_kind
9
10   IMPLICIT NONE
11
12   ! productive layer depth
13   INTEGER, PUBLIC ::   jpkb       !: first vertical layers where biology is active
14   INTEGER, PUBLIC ::   jpkbm1     !: first vertical layers where biology is active
15
16   ! assign an index in trc arrays for each LOBSTER prognostic variables
17   INTEGER, PUBLIC ::   jpdet     !: detritus                   
18   INTEGER, PUBLIC ::   jpdom     !: dissolved organic matter
19   INTEGER, PUBLIC ::   jpdic     !: dissolved inoganic carbon concentration
20   INTEGER, PUBLIC ::   jptal     !: total alkalinity
21   INTEGER, PUBLIC ::   jpoxy     !: oxygen carbon concentration
22   INTEGER, PUBLIC ::   jpcal     !: calcite  concentration
23   INTEGER, PUBLIC ::   jppo4     !: phosphate concentration
24   INTEGER, PUBLIC ::   jppoc     !: small particulate organic phosphate concentration
25   INTEGER, PUBLIC ::   jpsil     !: silicate concentration
26   INTEGER, PUBLIC ::   jpphy     !: phytoplancton concentration
27   INTEGER, PUBLIC ::   jpzoo     !: zooplancton concentration
28   INTEGER, PUBLIC ::   jpdoc     !: dissolved organic carbon concentration
29   INTEGER, PUBLIC ::   jpdia     !: Diatoms Concentration
30   INTEGER, PUBLIC ::   jpmes     !: Mesozooplankton Concentration
31   INTEGER, PUBLIC ::   jpdsi     !: Diatoms Silicate Concentration
32   INTEGER, PUBLIC ::   jpfer     !: Iron Concentration
33   INTEGER, PUBLIC ::   jpbfe     !: Big iron particles Concentration
34   INTEGER, PUBLIC ::   jpgoc     !: big particulate organic phosphate concentration
35   INTEGER, PUBLIC ::   jpsfe     !: Small iron particles Concentration
36   INTEGER, PUBLIC ::   jpdfe     !: Diatoms iron Concentration
37   INTEGER, PUBLIC ::   jpgsi     !: (big) Silicate Concentration
38   INTEGER, PUBLIC ::   jpnfe     !: Nano iron Concentration
39   INTEGER, PUBLIC ::   jpnch     !: Nano Chlorophyll Concentration
40   INTEGER, PUBLIC ::   jpdch     !: Diatoms Chlorophyll Concentration
41   INTEGER, PUBLIC ::   jpno3     !: Nitrates Concentration
42   INTEGER, PUBLIC ::   jpnh4     !: Ammonium Concentration
43   INTEGER, PUBLIC ::   jpdon     !: dissolved organic nitrogen concentration
44   INTEGER, PUBLIC ::   jpdop     !: dissolved organic phosphorus concentration
45   INTEGER, PUBLIC ::   jppon     !: small particulate organic nitrogen concentration
46   INTEGER, PUBLIC ::   jppop     !: small particulate organic phosphorus concentration
47   INTEGER, PUBLIC ::   jpnph     !: small particulate organic phosphorus concentration
48   INTEGER, PUBLIC ::   jppph     !: small particulate organic phosphorus concentration
49   INTEGER, PUBLIC ::   jpndi     !: small particulate organic phosphorus concentration
50   INTEGER, PUBLIC ::   jppdi     !: small particulate organic phosphorus concentration
51   INTEGER, PUBLIC ::   jppic     !: small particulate organic phosphorus concentration
52   INTEGER, PUBLIC ::   jpnpi     !: small particulate organic phosphorus concentration
53   INTEGER, PUBLIC ::   jpppi     !: small particulate organic phosphorus concentration
54   INTEGER, PUBLIC ::   jppfe     !: small particulate organic phosphorus concentration
55   INTEGER, PUBLIC ::   jppch     !: small particulate organic phosphorus concentration
56   INTEGER, PUBLIC ::   jpgon     !: Big nitrogen particles Concentration
57   INTEGER, PUBLIC ::   jpgop     !: Big phosphorus particles Concentration
58   INTEGER, PUBLIC ::   jplgw     !: Weak Ligands
59
60   !!---------------------------------------------------------------------
61   !!   Default                                   No CFC geochemical model
62   ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done)
63   INTEGER, PUBLIC  ::  jp_pcs0  !: First index of PISCES tracers
64   INTEGER, PUBLIC  ::  jp_pcs1  !: Last  index of PISCES tracers
65
66   REAL(wp), PUBLIC ::  mMass_C  = 12.00      ! Molar mass of carbon
67   REAL(wp), PUBLIC ::  mMass_N  = 14.00      ! Molar mass of nitrogen
68   REAL(wp), PUBLIC ::  mMass_P  = 31.00      ! Molar mass of phosphorus
69   REAL(wp), PUBLIC ::  mMass_Fe = 55.85      ! Molar mass of iron
70   REAL(wp), PUBLIC ::  mMass_Si = 28.00      ! Molar mass of silver
71
72   !!----------------------------------------------------------------------
73   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
74   !! $Id$
75   !! Software governed by the CeCILL license (see ./LICENSE)
76   !!======================================================================
77END MODULE par_pisces
Note: See TracBrowser for help on using the repository browser.