Changeset 12090 for NEMO/branches/2019/dev_r11943_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/par_pisces.F90

Timestamp:

2019-12-06T14:37:33+01:00 (4 years ago)

Author:

cetlod

Message:

dev_r11943_TOP-01_ENHANCE-11_CEthe

File:

• NEMO/branches/2019/dev_r11943_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/par_pisces.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11943_TOP-01_ENHANCE-11_CEthe/src/TOP/PISCES/par_pisces.F90

@@ -6 +6 @@
    !! History :   2.0  !  2007-12  (C. Ethe, G. Madec)  revised architecture
    !!----------------------------------------------------------------------
+   USE par_kind
 
    IMPLICIT NONE
@@ -60 +61 @@
    !!   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
+   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
 
    !!----------------------------------------------------------------------