Update time scale ratio


INTERFACE:

   subroutine r_ratio(nlev)
DESCRIPTION:

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


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



Karsten Bolding 2012-12-28