From 15fe747e01a9c8222b50b06a9f1909848d0fffe8 Mon Sep 17 00:00:00 2001
From: Jessica Meixner <Jessica.Meixner@noaa.gov>
Date: Thu, 21 Mar 2024 21:06:47 +0000
Subject: [PATCH] initialize array that the rocky8 hera intel transition
 exposed.

---
 model/src/wminitmd.F90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/model/src/wminitmd.F90 b/model/src/wminitmd.F90
index 956490b5e..768b6d91e 100644
--- a/model/src/wminitmd.F90
+++ b/model/src/wminitmd.F90
@@ -1273,6 +1273,12 @@ SUBROUTINE WMINIT ( IDSI, IDSO, IDSS, IDST, IDSE, IFNAME,       &
         IF (WORDS(6) .EQ. 'T') THEN
           CALL NEXTLN ( COMSTR , MDSI , MDSE2 )
           READ (MDSI,*,END=2001,ERR=2002)(ODAT(I,1),I=5*(8-1)+1,5*8)
+        ELSE 
+          ODAT(5*(8-1)+1,1)=0
+          ODAT(5*(8-1)+2,1)=0
+          ODAT(5*(8-1)+3,1)=0
+          ODAT(5*(8-1)+4,1)=0
+          ODAT(5*8,1)=0
         END IF
       ELSE
         READ (MDSI,*,END=2001,ERR=2002)(ODAT(I,1),I=5*(J-1)+1,5*J)