
      real ust,wst,ol,h,zeta,sigu,sigv,tlu,tlv,tlw
      real sigw,dsigwdz,dsigw2dz

      common /hannablock/
     +ust,wst,ol,h,zeta,sigu,sigv,tlu,tlv,tlw,
     +sigw,dsigwdz,dsigw2dz
