| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
176 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = 1. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
477 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
478 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MAX( 1. _d 0,TKEPrandtlNumber(i,j,k)) |
|
./pkg/ggl90/ggl90_calc.F |
491 |
GGL90_CALC |
TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp) |
|
./pkg/ggl90/ggl90_calc.F |
499 |
GGL90_CALC |
KappaH = KappaM(i,j)/TKEPrandtlNumber(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
709 |
GGL90_CALC |
tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax) |
|
./pkg/ggl90/ggl90_calc.F |
785 |
GGL90_CALC |
CALL DIAGNOSTICS_FILL( TKEPrandtlNumber ,'GGL90Prl', |
|
./pkg/ggl90/ggl90_calc.F |
96 |
GGL90_CALC |
_RL TKEPrandtlNumber (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |