Changeset 8490 for branches/NERC/dev_r5518_GO6_MEDUSA_conserv/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

Timestamp:

2017-09-01T17:28:24+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- mld chl -- remove quick and dirty hacks

File:

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

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

@@ -256 +256 @@
          ENDIF
          IF ( med_diag%OCAL_LVL%dgsave ) THEN
-       !! AXY (16/08/17): hijack!
-            CALL iom_put( "OCAL_LVL"  , fchl_ml )
-            !! CALL iom_put( "OCAL_LVL"  , fccd )
+            CALL iom_put( "OCAL_LVL"  , fccd )
+         ENDIF
+         IF ( med_diag%CHL_MLD%dgsave ) THEN
+            CALL iom_put( "CHL_MLD"  , fchl_ml )
          ENDIF
          IF ( med_diag%PN_JLIM%dgsave ) THEN