From 2c6c301d0dcb69a86146d153c86c7145308eb28a Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Sat, 4 Nov 2023 08:02:20 -0600 Subject: [PATCH] further test development --- model/tests/test_io.F90 | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/model/tests/test_io.F90 b/model/tests/test_io.F90 index ba4f33fef..eaf93039a 100644 --- a/model/tests/test_io.F90 +++ b/model/tests/test_io.F90 @@ -14,6 +14,9 @@ program test_io integer :: ndsop, iotest, imod, ndstst, ierr, ndsbul, ndsi, ndsm integer :: ndstrc, ntrace real :: m2km + character*7 expected_ptnme + character*6 my_fmt + real :: expected_loc_1 print *, 'Testing WW3 IO...' @@ -63,10 +66,22 @@ program test_io ! Make sure we got the values we expected. if (nopts .ne. 11) stop 11 + expected_loc_1 = 0.0 do i = 1, nopts + ! Check ptnme and ptloc arrays. print *, ptnme(i), ptloc(1, i), ptloc(2, i) + if (i .lt. 10) then + my_fmt = '(a,i1)' + else + my_fmt = '(a,i2)' + endif + write(fmt = my_fmt, unit=expected_ptnme) 'Point', i + if (ptnme(i) .ne. expected_ptnme) stop 20 + print *, expected_loc_1 + if (ptloc(1, i) .ne. expected_loc_1) stop 21 + expected_loc_1 = expected_loc_1 + 5000.0 + if (ptloc(2, i) .ne. 0) stop 22 end do - print *, 'SUCCESS!' end program test_io