From 0e619c9340f8bde6b76f6584a558ad5ff4b9f71b Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Mon, 6 Nov 2023 08:36:31 -0700 Subject: [PATCH] further netcdf write development --- model/src/w3iopomd.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90 index 5cfac4996..ff5986710 100644 --- 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