Symbol Description Uses
TKEPrandtlNumber here, an empirical function of the Richardson number 6


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 140 GGL90_CALC 
         TKEPrandtlNumber(i,j,k)  = 1. _d 0
./pkg/ggl90/ggl90_calc.F 408 GGL90_CALC 
         TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp)
./pkg/ggl90/ggl90_calc.F 418 GGL90_CALC 
         KappaH = KappaM/TKEPrandtlNumber(i,j,k)
./pkg/ggl90/ggl90_calc.F 583 GGL90_CALC 
         tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax)
./pkg/ggl90/ggl90_calc.F 666 GGL90_CALC 
         CALL DIAGNOSTICS_FILL( TKEPrandtlNumber ,'GGL90Prl',
./pkg/ggl90/ggl90_calc.F 92 GGL90_CALC 
      _RL     TKEPrandtlNumber (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)