diff --git a/model/tests/test_io.F90 b/model/tests/test_io.F90
index 0fedfef89..7ae39f3f8 100644
--- 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