working on netCDF code

NOAA-EMC · Nov 6, 2023 · 52e4864 · 52e4864
1 parent 7b9ef23
commit 52e4864
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/model/tests/test_io.F90 b/model/tests/test_io.F90
@@ -82,9 +82,9 @@ program test_io
   print *, 'testing WW3 binary point file write...'
 
   ! This is not working yet.
-  call w3iopo('WRITE', ndsop, iotest)
+  call w3iopon('WRITE', ndsop, iotest)
   print *, iotest
-!  if (iotest .ne. 0) stop 100
+  if (iotest .ne. 0) stop 100
   print *, 'OK!'
   print *, 'SUCCESS!'
 end program test_io