more work on netcdf out

NOAA-EMC · Nov 8, 2023 · 4c6ab0b · 4c6ab0b
1 parent 882bd6a
commit 4c6ab0b
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/model/tests/test_io.F90 b/model/tests/test_io.F90
@@ -79,13 +79,21 @@ program test_io
   end do
 
   print *, 'OK!'
-  print *, 'testing WW3 binary point file write...'
+  print *, 'testing writing the WW3 binary point file in netCDF...'
 
-  ! This is not working yet.
+  ! Write in netCDF.
   call w3iopon('WRITE', ndsop, iotest)
+  if (iotest .ne. 0) stop 100
+  print *, 'OK!'
+
+  print *, 'testing reading the WW3 binary point file in netCDF...'
+  call w3iopon('READ', ndsop, iotest)
   print *, iotest
   if (iotest .ne. 0) stop 100
   print *, 'OK!'
+
+  print *, 'OK!'
+
   print *, 'SUCCESS!'
 end program test_io