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

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

@@ -471 +471 @@
                   !!
                   !! 2D diag through iom_use
-                  IF( med_diag%DMS_SURF%dgsave ) THEN
-                     dms_surf2d(ji,jj) = dms_surf
-                  ENDIF
+                  !! JPALM --08-01-2020 -- DMS coupling without asking for diags
+                  !!       -- needs to extract dms_surf2d from diag condition   
+                  !! 
+                  dms_surf2d(ji,jj) = dms_surf
+                  !! 
                   IF( med_diag%DMS_ANDR%dgsave ) THEN
                      dms_andr2d(ji,jj) = dms_andr