return back some debuging stuff

NOAA-EMC · Feb 27, 2025 · ed3f277 · ed3f277
1 parent ce8270f
commit ed3f277
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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