include file: TYPWVCP 9
C*    *COMMON* *COUPL* - PARAMETERS FOR COUPLING.                          TYPWVCP.2      
C                                                                          TYPWVCP.3      
      real BETAMAX      ! parameter for wind input                         TYPWVCP.4      
      real ZALP         ! shifts growth curve                              TYPWVCP.5      
      real ALPHA        ! charnock constant                                TYPWVCP.6      
      real XKAPPA       ! von karman constant                              TYPWVCP.7      
      real XNLEV        ! assumed height of input winds                    TYPWVCP.8      
C                                                                          TYPWVCP.9