Changeset 9053 for branches

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.

Location:

branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC

Files:

• MEDUSA/bio_medusa_fin.F90 (modified) (1 diff)
• trcrst.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

branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -301 +301 @@
       call trc_rst_dia_stat(zn_dms_srf(:,:), 'DMS surf')
       call trc_rst_dia_stat(zn_co2_flx(:,:), 'CO2 flux')
-      call trc_rst_dia_stat(chloro_out_cpl(:,:), 'CHL  cpl')
+      IF (lk_oasis) THEN
+         call trc_rst_dia_stat(chloro_out_cpl(:,:), 'CHL  cpl')
+      END IF
       !!  
       !! JPALM 14-06-2016 -- add Carbonate chenistry variables through the restart