remove if statement that is re-checking if statement it is nested in

JessicaMeixner-NOAA · Mar 15, 2024 · f75035c · f75035c
1 parent f66b6d4
commit f75035c
Showing 1 changed file with 10 additions and 14 deletions.
diff --git a/model/src/w3wavemd.F90 b/model/src/w3wavemd.F90
@@ -2675,14 +2675,12 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
  !
  ! 4.e Update next output time
  !
- IF ( FLOUT(J) ) THEN
- IF ( TOFRST(1).EQ.-1 ) THEN
+ IF ( TOFRST(1).EQ.-1 ) THEN
+ TOFRST = TOUT
+ ELSE
+ DTTST = DSEC21 ( TOUT , TOFRST )
+ IF ( DTTST.GT.0.) THEN
  TOFRST = TOUT
- ELSE
- DTTST = DSEC21 ( TOUT , TOFRST )
- IF ( DTTST.GT.0.) THEN
- TOFRST = TOUT
- END IF
  END IF
  END IF
  !
@@ -2722,14 +2720,12 @@ SUBROUTINE W3WAVE ( IMOD, ODAT, TEND, STAMP, NO_OUT &
  !
  ! 4.e Update next output time
  !
- IF ( FLOUT(J) ) THEN
- IF ( TOFRST(1).EQ.-1 ) THEN
+ IF ( TOFRST(1).EQ.-1 ) THEN
+ TOFRST = TOUT
+ ELSE
+ DTTST = DSEC21 ( TOUT , TOFRST )
+ IF ( DTTST.GT.0.) THEN
  TOFRST = TOUT
- ELSE
- DTTST = DSEC21 ( TOUT , TOFRST )
- IF ( DTTST.GT.0.) THEN
- TOFRST = TOUT
- END IF
  END IF
  END IF
  END IF