Changeset 8131 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

Timestamp:

2017-06-02T17:14:01+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- DMS add an updated version of ANDERSON sheme

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90 (modified) (3 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

@@ -493 +493 @@
 !!  jdms_input  :  use instant (0) or diel-avg (1) inputs
 !!       jdms_model  :  choice of DMS model passed to atmosphere
-!!                      1 = ANDR, 2 = SIMO, 3 = ARAN, 4 = HALL
+!!                      1 = ANDR, 2 = SIMO, 3 = ARAN, 4 = HALL, 5 = ANDM
 !!
       IF(lwp) THEN
@@ -1026 +1026 @@
             WRITE(numout,*)     &
             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Halloran et al. (2010)'
+    elseif (jdms_model .eq. 5) then
+            WRITE(numout,*)     &
+            &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001; modified)'
          endif
 !!
@@ -2095 +2098 @@
           med_diag%DMS_HALL%dgsave = .FALSE.
       ENDIF
+      IF  (iom_use("DMS_ANDM")) THEN 
+          med_diag%DMS_ANDM%dgsave = .TRUE.
+      ELSE 
+          med_diag%DMS_ANDM%dgsave = .FALSE.
+      ENDIF
       IF  (iom_use("ATM_XCO2")) THEN 
           med_diag%ATM_XCO2%dgsave = .TRUE.