diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90 index 9347b42a5..b11aeb3b2 100644 --- 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