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


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 139 GGL90_CALC 
         TKEPrandtlNumber(i,j,k)  = 1. _d 0
./pkg/ggl90/ggl90_calc.F 407 GGL90_CALC 
         TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp)
./pkg/ggl90/ggl90_calc.F 417 GGL90_CALC 
         KappaH = KappaM/TKEPrandtlNumber(i,j,k)
./pkg/ggl90/ggl90_calc.F 582 GGL90_CALC 
         tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax)
./pkg/ggl90/ggl90_calc.F 665 GGL90_CALC 
         CALL DIAGNOSTICS_FILL( TKEPrandtlNumber ,'GGL90Prl',
./pkg/ggl90/ggl90_calc.F 91 GGL90_CALC 
      _RL     TKEPrandtlNumber (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)