| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2803 |
PHI |
SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2823 |
PHI |
_RL PHIM(N),PHIH(N),Z(N) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3064 |
PHI |
PHIH(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3065 |
PHI |
PHIH(I) = PHIH(I) + E1(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 |
3090 |
PHI |
PHIH(I) = 1. / PHIH(I) |
|
./pkg/fizhi/fizhi_turb.F |
2764 |
PHI |
SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N) |
|
./pkg/fizhi/fizhi_turb.F |
2784 |
PHI |
_RL PHIM(N),PHIH(N),Z(N) |
|
./pkg/fizhi/fizhi_turb.F |
3025 |
PHI |
PHIH(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3026 |
PHI |
PHIH(I) = PHIH(I) + E1(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 |
3051 |
PHI |
PHIH(I) = 1. / PHIH(I) |