further netcdf write development

NOAA-EMC · Nov 6, 2023 · 0e619c9 · 0e619c9
1 parent ef13e37
commit 0e619c9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
@@ -1076,8 +1076,8 @@ SUBROUTINE W3IOPON_WRITE (NDSOP, IMOD, filename, ncerr)
     integer :: v_iceho, v_icefo, v_grdid, v_spco
 
     ! ! Create the netCDF file.
-    ! ncerr = nf90_create(filename, NF90_NETCDF4, fh)
-    ! if (ncerr .ne. 0) return
+    ncerr = nf90_create(filename, NF90_NETCDF4, fh)
+    if (ncerr .ne. 0) return
 
     ! ! Define dimensions.
     ! ncerr = nf90_def_dim(fh, 'NOPTS', NOPTS, d_nopts)
@@ -1140,8 +1140,8 @@ SUBROUTINE W3IOPON_WRITE (NDSOP, IMOD, filename, ncerr)
     ! if (ncerr .ne. 0) return
     ! ncerr = nf90_def_var(fh, 'SPCO', NF90_INT, (/d_nspec, d_nopts/), v_spco)
     ! if (ncerr .ne. 0) return
-    ! ncerr = nf90_close(fh)
-    ! if (ncerr .ne. 0) return
+    ncerr = nf90_close(fh)
+    if (ncerr .ne. 0) return
 
   END SUBROUTINE W3IOPON_WRITE