| File |
Line number |
Procedure |
Code |
|
./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 |
3047 |
PHI |
IF( Z(I) .LT. 0.15 ) THEN |
|
./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 |
3102 |
PSI |
_RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun) |
|
./pkg/fizhi/fizhi_turb.F |
3148 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3154 |
PSI |
Z(I) = -18. * Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3158 |
PSI |
CALL PHI( Z,X1,Y1,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3169 |
PSI |
IF ( Z(I) .LT. 0.013 ) ARG1(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3170 |
PSI |
1 Z(I) * ( 0.25 - 0.09375 * Z(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3206 |
PSI |
IF( Z(I) .LT. 0.0065 ) ARG1(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3207 |
PSI |
1 Z(I) * ( 0.5 - 0.625 * Z(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3256 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3267 |
PSI |
Z1(I) = Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3270 |
PSI |
IF ( Z(I) .GT. ZWM ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3272 |
PSI |
Z2(I) = Z(I) |
|
./pkg/fizhi/fizhi_turb.F |
3287 |
PSI |
IF ( (INTZ0(I).EQ.1) .OR. (Z(I).GT.ZWM) ) |
|
./pkg/fizhi/fizhi_turb.F |
3333 |
PSI |
Y1DEN(I) = 1. + CM1 * ( X1NUM(I) * Z(I) ) |