From 1ede4e0f1adf95ab09c20f3097509305e9332478 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 4 Apr 2024 05:10:37 -0600 Subject: [PATCH] porting changes --- model/src/w3iopomd.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/model/src/w3iopomd.F90 b/model/src/w3iopomd.F90 index 246ab4b71..4f58d62e4 100644 --- a/model/src/w3iopomd.F90 +++ b/model/src/w3iopomd.F90 @@ -65,7 +65,7 @@ MODULE W3IOPOMD ! Name Type Scope Description ! ---------------------------------------------------------------- ! VEROPT C*10 Private Point output file version number. - ! IDSTR C*32 Private Point output file ID string. + ! IDSTR C*31 Private Point output file ID string. ! ---------------------------------------------------------------- ! ! 3. Subroutines and functions : @@ -1131,6 +1131,7 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD, filename, ncerr) IL, IW, II, PTLOC, PTIFAC, DPO, WAO, WDO, & ASO, CAO, CDO, SPCO, PTNME, O2INIT, FNMPRE, & GRDID, ICEO, ICEHO, ICEFO + USE W3SERVMD, ONLY: EXTCDE #ifdef W3_FLX5 USE W3ODATMD, ONLY: TAUAO, TAUDO, DAIRO #endif @@ -1143,6 +1144,7 @@ SUBROUTINE W3IOPON_READ(IOTST, IMOD, filename, ncerr) INTEGER, INTENT(IN), OPTIONAL :: IMOD character(*), intent(in) :: filename integer, intent(inout) :: ncerr + INTEGER :: MK,MTH integer :: fh integer :: d_nopts, d_nspec, d_vsize, d_namelen, d_grdidlen integer :: d_nopts_len, d_nspec_len, d_vsize_len, d_namelen_len, d_grdidlen_len