Changeset 12407 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

Timestamp:

2020-02-19T16:14:31+01:00 (4 years ago)

Author:

frrh

Message:

Apply fix for DMS coupling in MEDUSA from Met Office
GMED ticket 514. Merge command:
svn merge -r 12215:12308 ​svn+ssh://frrh@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/NERC/dev_r5518_GO6_DmsOutFix

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/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) )