From e53ab1e2b9da5fccfdf2e6147c70cf7653c75e40 Mon Sep 17 00:00:00 2001 From: AminIlia-NOAA Date: Thu, 20 Feb 2025 15:17:05 -0500 Subject: [PATCH] variables types have been changed --- src/ocnicepost.fd/utils_mod.F90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/ocnicepost.fd/utils_mod.F90 b/src/ocnicepost.fd/utils_mod.F90 index d83106fe..ee0d4f72 100644 --- a/src/ocnicepost.fd/utils_mod.F90 +++ b/src/ocnicepost.fd/utils_mod.F90 @@ -730,8 +730,6 @@ subroutine write_grib2_2d(fname, gcf, dims, nflds, field, vfill) mean_val = sum(field(:,n), mask = field(:,n) .ne. vfill) / count(field(:,n) .ne. vfill) if (debug) then - write(logunit, *) 'var_name, n: ', gcf(n)%var_name, n - write(logunit,*) 'size_bmp ,size_rgmask2d', size(bmp), size(rgmask2d) write(logunit, *) 'Variable_name, max, min, mean: ', gcf(n)%var_name, max_val, min_val, mean_val end if