Changeset 12407


Ignore:
Timestamp:
2020-02-19T16:14:31+01:00 (10 months 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

Location:
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r10149 r12407  
    471471                  !! 
    472472                  !! 2D diag through iom_use 
    473                   IF( med_diag%DMS_SURF%dgsave ) THEN 
    474                      dms_surf2d(ji,jj) = dms_surf 
    475                   ENDIF 
     473                  !! JPALM --08-01-2020 -- DMS coupling without asking for diags 
     474                  !!       -- needs to extract dms_surf2d from diag condition    
     475                  !!  
     476                  dms_surf2d(ji,jj) = dms_surf 
     477                  !!  
    476478                  IF( med_diag%DMS_ANDR%dgsave ) THEN 
    477479                     dms_andr2d(ji,jj) = dms_andr 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

    r10020 r12407  
    166166         ENDIF 
    167167         IF (jdms .eq. 1) THEN 
     168            !! JPALM (12/12/19): put DMS (dms_surf2d) alloc/unalloc/pass  
     169            !!                   to zn out of diag list request  
     170            CALL lbc_lnk(dms_surf2d(:,:),'T',1. ) 
    168171            IF( med_diag%DMS_SURF%dgsave ) THEN 
    169                CALL lbc_lnk(dms_surf2d(:,:),'T',1. ) 
    170172               CALL iom_put( "DMS_SURF"  , dms_surf2d ) 
    171                zb_dms_srf = zn_dms_srf 
    172                zn_dms_srf = dms_surf2d 
    173                IF (lk_oasis) THEN 
    174                   DMS_out_cpl = zn_dms_srf 
    175                ENDIF 
    176                DEALLOCATE( dms_surf2d )  
    177             ENDIF 
     173            ENDIF 
     174            zb_dms_srf = zn_dms_srf 
     175            zn_dms_srf = dms_surf2d 
     176            IF (lk_oasis) THEN 
     177               DMS_out_cpl = zn_dms_srf 
     178            ENDIF 
     179            DEALLOCATE( dms_surf2d )  
     180            !! 
    178181            IF( med_diag%DMS_ANDR%dgsave ) THEN 
    179182               CALL iom_put( "DMS_ANDR"  , dms_andr2d ) 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r10149 r12407  
    609609!! 
    610610         IF (jdms .eq. 1) THEN 
    611             IF( med_diag%DMS_SURF%dgsave ) THEN 
     611            !! JPALM -- 12-12-19 -- put dms_surf2d alloc out of diag request 
     612            !!                   needed for coupling/passed through restart 
     613 
     614            !! IF( med_diag%DMS_SURF%dgsave ) THEN 
    612615               ALLOCATE( dms_surf2d(1:jpi, 1:jpj) ) 
    613616               dms_surf2d(:,:)      = 0.0 !! 
    614             ENDIF 
     617            !! ENDIF 
    615618            IF( med_diag%DMS_ANDR%dgsave ) THEN 
    616619               ALLOCATE( dms_andr2d(1:jpi, 1:jpj) ) 
Note: See TracChangeset for help on using the changeset viewer.