added flag for netcdf files

NOAA-EMC · Feb 28, 2025 · 7e46202 · 7e46202
1 parent b1ffeb2
commit 7e46202
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 3 deletions.
diff --git a/parm/ocnicepost/ice_mx025_to_0p25.nml b/parm/ocnicepost/ice_mx025_to_0p25.nml
@@ -8,5 +8,6 @@ sinvar=''
 cosvar=''
 angvar='ANGLET'
 grib2=.true.
+ncf=.false.
 debug=.false.
 /
diff --git a/parm/ocnicepost/ocean_mx025_to_0p25.nml b/parm/ocnicepost/ocean_mx025_to_0p25.nml
@@ -8,5 +8,6 @@ sinvar='sin_rot'
 cosvar='cos_rot'
 angvar=''
 grib2=.true.
+ncf=.false.
 debug=.false.
 /
diff --git a/parm/ocnicepost/ocnicepost.nml.jinja2 b/parm/ocnicepost/ocnicepost.nml.jinja2
@@ -8,5 +8,6 @@
   cosvar = "{{ cosvar }}",
   angvar = "{{ angvar }}",
   grib2 = {{ grib2 | default('.true.') }}
+  ncf = {{ ncf | default('.false.') }}
   debug = {{ debug | default('.false.') }}
 /
diff --git a/src/ocnicepost.fd/init_mod.F90 b/src/ocnicepost.fd/init_mod.F90
@@ -53,6 +53,7 @@ module init_mod
 
   integer :: logunit    !< The log unit
   logical :: grib2      !< If true, write grib2 message
+  logical :: ncf        !< If true, write netCDF flies
   logical :: debug      !< If true, print debug messages and intermediate files
   logical :: do_ocnpost !< If true, the source file is ocean, otherwise ice
 
@@ -66,7 +67,7 @@ subroutine readnml
     integer :: srcdims(2), dstdims(2)
 
     namelist /ocnicepost_nml/ ftype, srcdims, wgtsdir, dstdims, maskvar, sinvar, cosvar, &
-         angvar, grib2, debug
+         angvar, grib2, ncf, debug
 
     ! --------------------------------------------------------
     ! read the name list

diff --git a/src/ocnicepost.fd/ocnicepost.F90 b/src/ocnicepost.fd/ocnicepost.F90
@@ -27,7 +27,7 @@ program ocnicepost
   use netcdf
   use init_mod   , only : nxt, nyt, nlevs, nxr, nyr, outvars, readnml, readcsv
   use init_mod   , only : wgtsdir, ftype, fsrc, fdst, input_file, cosvar, sinvar, angvar
-  use init_mod   , only : do_ocnpost, debug, logunit, grib2
+  use init_mod   , only : do_ocnpost, debug, logunit, grib2, ncf
   use init_mod   , only : vardefs
   use arrays_mod , only : b2d, c2d, b3d, rgb2d, rgc2d, rgb3d, dstlon, dstlat, setup_packing
   use arrays_mod , only : nbilin2d, nbilin3d, nconsd2d, bilin2d, bilin3d, consd2d
@@ -298,6 +298,8 @@ program ocnicepost
   ! write the mapped fields
   ! --------------------------------------------------------
 
+ if (ncf) then
+
   allocate(out2d(nxr,nyr)); out2d = 0.0
   allocate(out3d(nxr,nyr,nlevs)); out3d = 0.0
 
@@ -414,6 +416,8 @@ program ocnicepost
   call nf90_err(nf90_close(ncid), 'close: '// trim(fout))
   write(logunit,'(a)')trim(fout)//' done'
 
-  stop
+ end if
+
+ stop
 
 end program ocnicepost