Changeset 12407 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.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_diag_slice.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

@@ -166 +166 @@
          ENDIF
          IF (jdms .eq. 1) THEN
+            !! JPALM (12/12/19): put DMS (dms_surf2d) alloc/unalloc/pass 
+            !!                   to zn out of diag list request 
+            CALL lbc_lnk(dms_surf2d(:,:),'T',1. )
             IF( med_diag%DMS_SURF%dgsave ) THEN
-               CALL lbc_lnk(dms_surf2d(:,:),'T',1. )
                CALL iom_put( "DMS_SURF"  , dms_surf2d )
-               zb_dms_srf = zn_dms_srf
-               zn_dms_srf = dms_surf2d
-               IF (lk_oasis) THEN
-                  DMS_out_cpl = zn_dms_srf
-               ENDIF
-               DEALLOCATE( dms_surf2d ) 
-            ENDIF
+            ENDIF
+            zb_dms_srf = zn_dms_srf
+            zn_dms_srf = dms_surf2d
+            IF (lk_oasis) THEN
+               DMS_out_cpl = zn_dms_srf
+            ENDIF
+            DEALLOCATE( dms_surf2d ) 
+            !!
             IF( med_diag%DMS_ANDR%dgsave ) THEN
                CALL iom_put( "DMS_ANDR"  , dms_andr2d )