| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2762 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./pkg/fizhi/fizhi_turb.F |
2960 |
PHI |
ZSTAR(I) = 100. * Z(I) - 14. |
|
./pkg/fizhi/fizhi_turb.F |
2969 |
PHI |
IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I) |
|
./pkg/fizhi/fizhi_turb.F |
2970 |
PHI |
IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999 |
|
./pkg/fizhi/fizhi_turb.F |
2976 |
PHI |
I1(I) = ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
2978 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3008 |
PHI |
ZSTAR(I) = -Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3013 |
PHI |
IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
3014 |
PHI |
2 *(0.25+ZSTAR(I)*(0.09375+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3015 |
PHI |
3 (0.03125+0.00732422 * ZSTAR(I)))) |
|
./pkg/fizhi/fizhi_turb.F |
3022 |
PHI |
PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3023 |
PHI |
1 (0.5+ZSTAR(I)*(0.8203125+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3024 |
PHI |
2 (1.5+2.93262*ZSTAR(I)))))) |