| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2827 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3025 |
PHI |
ZSTAR(I) = 100. * Z(I) - 14. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3034 |
PHI |
IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3035 |
PHI |
IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3041 |
PHI |
I1(I) = ZSTAR(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3043 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3073 |
PHI |
ZSTAR(I) = -Z(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3078 |
PHI |
IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3079 |
PHI |
2 *(0.25+ZSTAR(I)*(0.09375+ZSTAR(I)* |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3080 |
PHI |
3 (0.03125+0.00732422 * ZSTAR(I)))) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3087 |
PHI |
PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)* |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3088 |
PHI |
1 (0.5+ZSTAR(I)*(0.8203125+ZSTAR(I)* |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3089 |
PHI |
2 (1.5+2.93262*ZSTAR(I)))))) |
|
./pkg/fizhi/fizhi_turb.F |
2788 |
PHI |
_RL ZSTAR(N),E1(N),E2(N),TEMP1(N) |
|
./pkg/fizhi/fizhi_turb.F |
2986 |
PHI |
ZSTAR(I) = 100. * Z(I) - 14. |
|
./pkg/fizhi/fizhi_turb.F |
2995 |
PHI |
IF( Z(I) .GT. 2. ) ZSTAR(I) = TEMP1(I) |
|
./pkg/fizhi/fizhi_turb.F |
2996 |
PHI |
IF( Z(I).GT.1.78e10 ) ZSTAR(I) = 384.9999 |
|
./pkg/fizhi/fizhi_turb.F |
3002 |
PHI |
I1(I) = ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
3004 |
PHI |
TEMP1(I) = ZSTAR(I) - I1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3034 |
PHI |
ZSTAR(I) = -Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3039 |
PHI |
IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
3040 |
PHI |
2 *(0.25+ZSTAR(I)*(0.09375+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3041 |
PHI |
3 (0.03125+0.00732422 * ZSTAR(I)))) |
|
./pkg/fizhi/fizhi_turb.F |
3048 |
PHI |
PHIH(I) =1.+ Z(I) * (0.5+ZSTAR(I)*(0.375+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3049 |
PHI |
1 (0.5+ZSTAR(I)*(0.8203125+ZSTAR(I)* |
|
./pkg/fizhi/fizhi_turb.F |
3050 |
PHI |
2 (1.5+2.93262*ZSTAR(I)))))) |