C   <%Z%	%Y% %M%	%I% %G%>

      real DISSIPAT     ! Background dissipation rate
      real PENDEPTH     ! E-folding depth for absorption of SW 
      real PENFRAC      ! Fraction of SW radiation which penetrates
      real U3COEFF      ! Factor relating U*^3 to generation
      real BACKU2       ! Background turbulence level
      real SHEAREFF     ! Efficiency of shear production of turbulence
      real QNEGDISS     ! Dissipation of energy relase by negative 
                        !  surface flux

      parameter (DISSIPAT = 1.E-09)
      parameter (PENFRAC  = 0.31)
      parameter (PENDEPTH = 15.)
      parameter (U3COEFF  = 1.25)
!     parameter (BACKU2	  = 1.E-4)
      parameter (BACKU2   = 25.E-4)
      parameter (SHEAREFF = 0.0)
!     parameter (QNEGDISS = 0.2)
      parameter (QNEGDISS = 1.0)