Symbol Description Uses
prTemp 4


File Line number Procedure Code
./pkg/ggl90/ggl90_calc.F 405 GGL90_CALC 
         prTemp = 1. _d 0
./pkg/ggl90/ggl90_calc.F 406 GGL90_CALC 
         IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber
./pkg/ggl90/ggl90_calc.F 407 GGL90_CALC 
         TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp)
./pkg/ggl90/ggl90_calc.F 89 GGL90_CALC 
      _RL     tempU, tempV, prTemp