further netcdf write development

NOAA-EMC · Nov 6, 2023 · 0bd3b24 · 0bd3b24
1 parent 0e619c9
commit 0bd3b24
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
@@ -1076,7 +1076,7 @@ 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)
+    ncerr = nf90_create("filename", NF90_NETCDF4, fh)
     if (ncerr .ne. 0) return
 
     ! ! Define dimensions.