Changeset 8607 for branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.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/bio_medusa_fin.F90 (modified) (2 diffs)

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

@@ -51 +51 @@
                                    zb_sed_n, zb_sed_si,                 &
                                    zn_sed_c, zn_sed_ca, zn_sed_fe,      &
-                                   zn_sed_n, zn_sed_si
+                                   zn_sed_n, zn_sed_si, zn_chl_srf
       USE trc,               ONLY: med_diag, nittrc000 
       USE trcnam_trp,        ONLY: ln_trcadv_cen2, ln_trcadv_tvd
@@ -241 +241 @@
 #   endif
          IF ( med_diag%INVTN%dgsave ) THEN
-            CALL iom_put( "INVTN"  , ftot_n )
+            !! HACK - Coupled Chl sent to UM    
+            CALL iom_put( "INVTN"  , zn_chl_srf )
+            !! CALL iom_put( "INVTN"  , ftot_n )
          ENDIF
          IF ( med_diag%INVTSI%dgsave ) THEN