Skip to content

Commit

Permalink
Correct missing cpp endif after WRITE ( NDSOA,* ) 'USVP:'
Browse files Browse the repository at this point in the history
  • Loading branch information
CarstenHansen committed Oct 13, 2023
1 parent 94acfa2 commit bd78ae0
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion model/src/w3iogomd.F90
Original file line number Diff line number Diff line change
Expand Up @@ -3599,8 +3599,9 @@ SUBROUTINE W3IOGO ( INXOUT, NDSOG, IOTST, IMOD &
#ifdef W3_STVP
ELSE IF ( IFI .EQ. ISVP .AND. IFJ .EQ. JSVP ) THEN
WRITE ( NDSOG ) USVP(1:NSEA,1:3+SPND*2)
#ifdef W3_ASCII
# ifdef W3_ASCII
WRITE ( NDSOA,* ) 'USVP:', USVP(1:NSEA,1:3+SPND*2)
# endif
#endif
!
! Section 7)
Expand Down

0 comments on commit bd78ae0

Please sign in to comment.