Increase the sizes of OUTFF and OFILES (#1379)

NOAA-EMC · Mar 4, 2025 · a8819a3 · a8819a3
1 parent aaff457
commit a8819a3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/model/src/w3odatmd.F90 b/model/src/w3odatmd.F90
@@ -442,7 +442,7 @@ MODULE W3ODATMD
     INTEGER               :: TOSNL5(2)
 #endif
     INTEGER               :: TOFRST(2), TONEXT(2,8), TOLAST(2,8), &
-         TBPI0(2), TBPIN(2), NDS(15), OFILES(7)
+         TBPI0(2), TBPIN(2), NDS(15), OFILES(8)
     REAL                  :: DTOUT(8)
     LOGICAL               :: FLOUT(8)
     TYPE(OTYPE1)          :: OUT1

diff --git a/model/src/wminitmd.F90 b/model/src/wminitmd.F90
@@ -747,7 +747,7 @@ SUBROUTINE WMINIT ( IDSI, IDSO, IDSS, IDST, IDSE, IFNAME,       &
          FLGRD(NOGRP,NGRPP,NRGRD), OT2(0:NRGRD), FLGD(NOGRP,NRGRD), &
          MDSF(-NRINP:NRGRD,JFIRST:9), IPRT(6,NRGRD), LPRT(NRGRD),   &
          FLGR2(NOGRP,NGRPP,NRGRD),FLG2D(NOGRP,NGRPP), FLG1D(NOGRP), &
-         FLG2(NOGRP,NRGRD),OUTFF(7,0:NRGRD))
+         FLG2(NOGRP,NRGRD),OUTFF(8,0:NRGRD))
     !
     MDS    = -1
     MDSF   = -1