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

Fix coupled DMS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.