Changeset 10045 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcctl_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/trcctl_medusa.F90 (modified) (3 diffs)

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

@@ -9 +9 @@
    !!              -   !  2008-11  (A. Yool) continuing adaptation for MEDUSA
    !!              -   !  2010-03  (A. Yool) updated for branch inclusion
+   !!              -   !  2018-08  (A. Yool) add OMIP preindustrial DIC
    !!----------------------------------------------------------------------
-
 #if defined key_medusa
 
@@ -45 +45 @@
 ! -----------------------
 # if defined key_roam
+#  if defined key_omip_dic     
+      IF (jp_medusa /= 16) THEN 
+          IF (lwp) THEN 
+              WRITE (numout,*) ' ===>>>> : W A R N I N G '
+              WRITE (numout,*) ' =======   ============= '
+              WRITE (numout,*)                             &
+              &   ' STOP, change jp_medusa to 16 in '      &
+              &  ,' par_medusa.F90 '  
+          END IF 
+          STOP 'TRC_CTL'
+      END IF 
+#  else
       IF (jp_medusa /= 15) THEN 
           IF (lwp) THEN 
@@ -55 +67 @@
           STOP 'TRC_CTL'
       END IF 
+#  endif
 # else
       IF (jp_medusa /= 11) THEN