Update time scale ratio

INTERFACE:

   subroutine r_ratio(nlev)

DESCRIPTION:

This routine updates the ratio $r$ of the dissipation time scales as defined in (66).

USES:

  use turbulence,  only:     tke,eps,kb,epsb
  use turbulence,  only:     r
 
  IMPLICIT NONE

INPUT PARAMETERS:

  integer, intent(in)        :: nlev

REVISION HISTORY:

   Original author(s): Lars Umlauf
   $Log: r_ratio.F90,v $
   Revision 1.1  2005-06-27 10:54:33  kbk
   new files needed