Changeset 8607 for branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

Timestamp:

2017-10-10T12:43:01+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- enable to scale Chl sent to the UM and choose between surf or MLD chl

File:

• branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90 (modified) (5 diffs)

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

@@ -85 +85 @@
       &  jriver_n,jriver_si,jriver_c,jriver_alk,jriver_dep,   &
       &  xsdiss,                                              &
-      &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model
+      &  sedlam,sedlostpoc,jpkb,jdms,jdms_input,jdms_model,   &
+      &  scl_chl, chl_out
 #if defined key_roam
       NAMELIST/natroam/ xthetaphy,xthetazoo,xthetanit,        &
@@ -246 +247 @@
       jdms_input  = 0
       jdms_model  = 0
+      scl_chl     = 0.5
+      chl_out     = 1
             
       !REWIND(numnatm)
@@ -400 +403 @@
 !!                      1 = ANDR, 2 = SIMO, 3 = ARAN, 4 = HALL, 5 = ANDM
 !!
+!! UKESM1 - exported Chl to UM
+!!       scl_chl     : scaling factor to tune the chl field sent to the UM
+!!       chl_out     : select the chl field to send at the UM:
+!!                     1- Surf Chl ; 2- MLD Chl 
+
       IF(lwp) THEN
 !!
@@ -909 +917 @@
 !!
 !! UKESM1 - new diagnostics  !! Jpalm; AXY (08/07/15)
-         WRITE(numout,*) '=== UKESM1-related parameters'
+         WRITE(numout,*) '=== UKESM1-related parameters ==='
+         WRITE(numout,*) ' ---- --- ---'
+         WRITE(numout,*) '=== UKESM1 --  coupled DMS to the UM'
          WRITE(numout,*)     &
          &   ' include DMS diagnostic?,                                   jdms        = ', jdms
@@ -935 +945 @@
             &   ' choice of DMS model passed to atmosphere,                  jdms_model  = Anderson et al. (2001; modified)'
          endif
+         WRITE(numout,*) '=== UKESM1 --  coupled Chl to the UM'
+         WRITE(numout,*)        &
+            &   ' Scaling factor to export tuned Chl to the UM               scl_chl  = ', scl_chl
+         IF (chl_out .eq. 1) THEN
+            WRITE(numout,*)        &
+            &   ' Chl field to be scaled and sent to the UM:                 chl_out  = Surface Chl field '
+         ELSEIF (chl_out .eq. 2) THEN
+            WRITE(numout,*)        &
+            &   ' Chl field to be scaled and sent to the UM:                 chl_out  = MLD Chl field '
+         ENDIF
 !!
       ENDIF