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