diff --git a/model/src/w3iogomd.F90 b/model/src/w3iogomd.F90 index ed6ce8c25..7812ff1f9 100644 --- a/model/src/w3iogomd.F90 +++ b/model/src/w3iogomd.F90 @@ -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)