Changeset 12231 for branches/NERC/dev_r5518_GO6_DmsOutFix
- Timestamp:
- 2019-12-12T19:08:36+01:00 (4 years ago)
- 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 166 166 ENDIF 167 167 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. ) 168 171 IF( med_diag%DMS_SURF%dgsave ) THEN 169 CALL lbc_lnk(dms_surf2d(:,:),'T',1. )170 172 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 !! 178 181 IF( med_diag%DMS_ANDR%dgsave ) THEN 179 182 CALL iom_put( "DMS_ANDR" , dms_andr2d ) -
branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90
r10149 r12231 609 609 !! 610 610 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 612 615 ALLOCATE( dms_surf2d(1:jpi, 1:jpj) ) 613 616 dms_surf2d(:,:) = 0.0 !! 614 ENDIF617 !! ENDIF 615 618 IF( med_diag%DMS_ANDR%dgsave ) THEN 616 619 ALLOCATE( dms_andr2d(1:jpi, 1:jpj) )
Note: See TracChangeset
for help on using the changeset viewer.