Changeset 12231


Ignore:
Timestamp:
2019-12-12T19:08:36+01:00 (8 months ago)
Author:
jpalmier
Message:

Fix coupled DMS

Location:
branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

    r10020 r12231  
    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/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r10149 r12231  
    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.