Changeset 12231 for branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

Timestamp:

2019-12-12T19:08:36+01:00 (4 years ago)

Author:

jpalmier

Message:

Fix coupled DMS

File:

• branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

@@ -609 +609 @@
 !!
          IF (jdms .eq. 1) THEN
-            IF( med_diag%DMS_SURF%dgsave ) THEN
+            !! JPALM -- 12-12-19 -- put dms_surf2d alloc out of diag request
+            !!                   needed for coupling/passed through restart
+
+            !! IF( med_diag%DMS_SURF%dgsave ) THEN
                ALLOCATE( dms_surf2d(1:jpi, 1:jpj) )
                dms_surf2d(:,:)      = 0.0 !!
-            ENDIF
+            !! ENDIF
             IF( med_diag%DMS_ANDR%dgsave ) THEN
                ALLOCATE( dms_andr2d(1:jpi, 1:jpj) )