From 52e4864bb893015580cacb3e88bcffc395d9b399 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Mon, 6 Nov 2023 05:26:50 -0700 Subject: [PATCH] working on netCDF code --- model/tests/test_io.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/model/tests/test_io.F90 b/model/tests/test_io.F90 index 7c9f4f4c3..0fedfef89 100644 --- 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