Changeset 10045 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90

Timestamp:

2018-08-07T14:19:25+02:00 (6 years ago)

Author:

jpalmier

Message:

Andrew's changes to add the OMIP double_DIC (activated with key_omip_dic)

File:

• branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90 (modified) (4 diffs)

branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90

@@ -10 +10 @@
    !!              -   !  2011-04  (A. Yool) updated for ROAM project
    !!       -   !  2013-03  (A. Yool) updated for v3.5 NEMO
+   !!              -   !  2018-08  (A. Yool) add OMIP preindustrial DIC
    !!----------------------------------------------------------------------
    !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
@@ -33 +34 @@
    LOGICAL, PUBLIC, PARAMETER ::   lk_medusa     = .TRUE.   !: PTS flag 
 # if defined key_roam
+#  if defined key_omip_dic
+   INTEGER, PUBLIC, PARAMETER ::   jp_medusa     =  16      !: number of PTS tracers
+#  else
    INTEGER, PUBLIC, PARAMETER ::   jp_medusa     =  15      !: number of PTS tracers
+#  endif
    INTEGER, PUBLIC, PARAMETER ::   jp_medusa_2d  =  225     !: additional 2d output arrays (used if ln_diatrc=T)
    INTEGER, PUBLIC, PARAMETER ::   jp_medusa_3d  =  5       !: additional 3d output arrays (used if ln_diatrc=T)
@@ -61 +66 @@
    INTEGER, PUBLIC, PARAMETER ::   jpalk  =  jp_lm + 14     !: alkalinity
    INTEGER, PUBLIC, PARAMETER ::   jpoxy  =  jp_lm + 15     !: dissolved oxygen concentration
+#  if defined key_omip_dic
+   INTEGER, PUBLIC, PARAMETER ::   jpomd  =  jp_lm + 16     !: OMIP preindustrial DIC
+#  end   
 # endif
 
@@ -80 +88 @@
    INTEGER, PUBLIC, PARAMETER ::   jpalk_lc  =  14     !: alkalinity
    INTEGER, PUBLIC, PARAMETER ::   jpoxy_lc  =  15     !: dissolved oxygen concentration
+#  if defined key_omip_dic
+   INTEGER, PUBLIC, PARAMETER ::   jpomd_lc  =  16     !: OMIP preindustrial DIC
+#  end   
 # endif