def/ufs: Bug fix to avoid accessing uninitialized date (#1112)

NOAA-EMC · Oct 26, 2023 · 02693d8 · 02693d8
1 parent 97e6a63
commit 02693d8
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90
@@ -524,6 +524,7 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
  REAL :: ICEDAVE
  !
  LOGICAL :: SBSED
+ LOGICAL :: CPLWRTFLG
 #ifdef W3_SEC1
  INTEGER :: ISEC1
 #endif
@@ -2432,8 +2433,14 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
  do_startall = .true.
  end IF
  else
+ CPLWRTFLG=.FALSE.
+ IF ( FLOUT(7) .AND. SBSED ) THEN
+ IF (DSEC21(TIME,TONEXT(:,7)).EQ.0.) THEN
+ CPLWRTFLG=.TRUE.
+ END IF
+ END IF
  IF ( ( (DSEC21(TIME,TONEXT(:,1)).EQ.0.) .AND. FLOUT(1) ) .OR. &
- ( (DSEC21(TIME,TONEXT(:,7)).EQ.0.) .AND. FLOUT(7) .AND. SBSED ) ) THEN
+ ( CPLWRTFLG ) ) THEN
  do_startall = .true.
  end IF
  end if