From 16baac730023d8e21b21ba52027152d9c55769c1 Mon Sep 17 00:00:00 2001 From: Ali Tarazouj Date: Tue, 11 Feb 2025 09:36:00 -0600 Subject: [PATCH] very minor wording changes --- model/src/w3iopomd.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90 index 81d086f55..e5b3cf890 100644 --- a/model/src/w3iopomd.F90 +++ b/model/src/w3iopomd.F90 @@ -1479,7 +1479,7 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD_IN, filename, ncerr, TOUT ) if (nf90_err(ncerr) .ne. 0) return END IF - !Variables read based on time (IPASS): + !Variables read based on time (itime): ncerr = nf90_inq_varid(fh, VNAME_WW3TIME, v_ww3time) if (nf90_err(ncerr) .ne. 0) return ncerr = nf90_get_var(fh, v_ww3time, TIME, start = (/ 1, itime/), & @@ -1577,7 +1577,7 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD_IN, filename, ncerr, TOUT ) ! and are at the end of the IOTST = -1 END IF - + ! Close the file. ncerr = nf90_close(fh) if (nf90_err(ncerr) .ne. 0) return