Changeset 9053 for branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

Timestamp:

2017-12-14T15:58:09+01:00 (6 years ago)

Author:

frrh

Message:

Protect instances of chloro_out_cpl from being referenced by
non-coupled models.

File:

• branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90 (modified) (1 diff)

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

@@ -284 +284 @@
             CALL iom_put( "CHL_MLD"  , fchl_ml )
          ENDIF
-         IF ( med_diag%CHL_CPL%dgsave ) THEN
-            CALL iom_put( "CHL_CPL"  , chloro_out_cpl )
+         IF (lk_oasis) THEN
+            IF ( med_diag%CHL_CPL%dgsave ) THEN
+               CALL iom_put( "CHL_CPL"  , chloro_out_cpl )
+            ENDIF
          ENDIF
          IF ( med_diag%PN_JLIM%dgsave ) THEN