C**************************SUBROUTINE EUSTACY**************************
C**********************************************************************
C  THIS SUBROUTINE: CALCULATES A SEA LEVEL CURVE AND APPLIES IT AS
C                   A BC TO FLDTA
C**********************************************************************
      SUBROUTINE EUSTACY
      IMPLICIT NONE
      REAL*8    Q(400),DELT,XPRINT,TPRINT
      REAL*8    TOX(400),RHO,G,T,AMP
      REAL*8    WID(400),ELEV(400),STRDATA(6,400)
      REAL*8    DELX,WSEBC,MANN,WSEBCB
      INTEGER*4 NT,M
      CHARACTER*25 RUN
C----------------------------------------------------------------------
C     COMMON BLOCK DECLARATIONS
C----------------------------------------------------------------------
      COMMON /COM1/M,NT,DELX,STRDATA,WID,ELEV,WSEBC,MANN
      COMMON /COM2/ RUN,Q,DELT,XPRINT,TPRINT,TOX,RHO,G
      COMMON /COM5/AMP,T,WSEBCB
 
      WSEBC = WSEBCB + AMP*DSIN(6.28319*NT*DELT/T)
      RETURN 
      END
