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.