From 0bd3b24d8421f6418b9ceadf256090dc5f4124b5 Mon Sep 17 00:00:00 2001
From: Edward Hartnett <edward.hartnett@noaa.gov>
Date: Mon, 6 Nov 2023 09:33:16 -0700
Subject: [PATCH] further netcdf write development

---
 model/src/w3iopomd.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90
index ff5986710..ae500c645 100644
--- 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.