From ed3f277fd27833b618ceccaa18a6b45c2f5858dd Mon Sep 17 00:00:00 2001 From: AminIlia-NOAA Date: Thu, 27 Feb 2025 12:29:07 -0500 Subject: [PATCH] return back some debuging stuff --- src/ocnicepost.fd/masking_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/ocnicepost.fd/masking_mod.F90 b/src/ocnicepost.fd/masking_mod.F90 index b3ac9c99..0ffaa777 100644 --- a/src/ocnicepost.fd/masking_mod.F90 +++ b/src/ocnicepost.fd/masking_mod.F90 @@ -80,7 +80,7 @@ subroutine remap_masks(vfill) if (debug) then write(logunit,'(a,2g14.4)')'mask min/max on destination grid ',minval(rgmask3d),maxval(rgmask3d) - call dumpnc(trim(ftype)//'.'//trim(fdst)//'.rgmask3d.nc', 'rgmask3d', dims=(/nxr*nyr,nlevs/), & + call dumpnc(trim(ftype)//'.'//trim(fdst)//'.rgmask3d.nc', 'rgmask3d', dims=(/nxr,nyr,nlevs/), & field=rgmask3d) end if else @@ -93,7 +93,7 @@ subroutine remap_masks(vfill) if (debug) then write(logunit,'(a,2g14.4)')'mask min/max on destination grid ',minval(rgmask2d),maxval(rgmask2d) - call dumpnc(trim(ftype)//'.'//trim(fdst)//'.rgmask2d.nc', 'rgmask2d', dims=(/nxr*nyr/), & + call dumpnc(trim(ftype)//'.'//trim(fdst)//'.rgmask2d.nc', 'rgmask2d', dims=(/nxr,nyr/), & field=rgmask2d) end if end if