Symbol | Description | Uses |
ZSTAR | 16 |
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)))))) |