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)