From 61ce61283276af810a1a6ae052fa6683e8ad1c7e Mon Sep 17 00:00:00 2001
From: Erin Thomas <ethomas@lanl.gov>
Date: Thu, 31 Oct 2024 15:38:22 -0700
Subject: [PATCH] Fix issue undefined variable issue in w3initmd.ftn (port
 a02d532)

---
 model/src/w3initmd.F90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/model/src/w3initmd.F90 b/model/src/w3initmd.F90
index 1173d3a0b..02e196865 100644
--- a/model/src/w3initmd.F90
+++ b/model/src/w3initmd.F90
@@ -679,11 +679,12 @@ SUBROUTINE W3INIT ( IMOD, IsMulti, FEXT, MDS, MTRACE, ODAT, FLGRD,  FLGR2, FLGD,
     IFT    = LEN_TRIM(TFILE)
     J      = LEN_TRIM(FNMPRE)
     !
-    IF ( OUTPTS(IMOD)%IAPROC .EQ. OUTPTS(IMOD)%NAPLOG ) &
+    IF ( OUTPTS(IMOD)%IAPROC .EQ. OUTPTS(IMOD)%NAPLOG ) THEN
          INQUIRE(UNIT=MDS(1), OPENED=OPENED)
          IF (.NOT. OPENED) THEN 
            OPEN (MDS(1), FILE=FNMPRE(:J)//LFILE(:IFL),ERR=888,IOSTAT=IERR)
          ENDIF
+    ENDIF
     !
     IF ( MDS(3).NE.MDS(1) .AND. MDS(3).NE.MDS(4) .AND. TSTOUT ) THEN
       INQUIRE (MDS(3),OPENED=OPENED)