update logic to ensure you are not accessing uninitialized dates (#1114)

NOAA-EMC · Oct 31, 2023 · 4cd995d · 4cd995d
1 parent 8eb3596
commit 4cd995d
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90
@@ -2409,8 +2409,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
 #endif
         !
 #ifdef W3_MPI
-        IF ( ( (DSEC21(TIME,TONEXT(:,1)).EQ.0.) .AND. FLOUT(1) ) .OR. &
-             (  (DSEC21(TIME,TONEXT(:,7)).EQ.0.) .AND. FLOUT(7) .AND. SBSED ) ) THEN
+        IF ( (FLOUTG) .OR. (FLOUTG2 .AND. SBSED) ) THEN
           IF (.NOT. LPDLIB) THEN
             IF (NRQGO.NE.0 ) THEN
 #endif