| 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 |
3052 |
PHI |
PHIM(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3053 |
PHI |
PHIM(I) = PHIM(I) + E1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3078 |
PHI |
IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(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 |
3013 |
PHI |
PHIM(I) = TEMP1(I) * ( E2(I)-E1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3014 |
PHI |
PHIM(I) = PHIM(I) + E1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3039 |
PHI |
IF( Z(I) .LT. 0.15 ) PHIM(I) = 1. + ZSTAR(I) |