| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
476 |
GGL90_CALC |
prTemp = MIN(5.*RiNumber, 6.6 _d 0*IDEMIX_RiNumber) |
|
./pkg/ggl90/ggl90_calc.F |
477 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
489 |
GGL90_CALC |
prTemp = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
490 |
GGL90_CALC |
IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber |
|
./pkg/ggl90/ggl90_calc.F |
491 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
94 |
GGL90_CALC |
_RL tempU, tempUp, tempV, tempVp, prTemp |