include file: TYPWVJO 1
      real jonswap_shape(24,220,nfre) ! wave model JONSWAP spectral        TYPWVJO.2      
C                                     ! shape used in assimilation         TYPWVJO.3