| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1268 |
TRBFLX |
1 IWATER,Z0,tracers,ntrace,ntracedim,DTAU,ITRTRB,KMBG,KHBG,QBEG, |
|
./pkg/fizhi/fizhi_turb.F |
1320 |
TRBFLX |
_RL Z0(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1763 |
TRBFLX |
4 PLKE(1,NLEVP1),PLE(1,NLEVP1),Z0, |
|
./pkg/fizhi/fizhi_turb.F |
2052 |
TRBFLX |
Z0IN(I) = Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3076 |
PSI |
_RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun) |
|
./pkg/fizhi/fizhi_turb.F |
3123 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3129 |
PSI |
Z0(I) = -18. * Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3133 |
PSI |
CALL PHI( Z0,X0,Y0,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3147 |
PSI |
IF ( Z0(I) .LT. 0.013 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3148 |
PSI |
1 Z0(I) * ( 0.25 - 0.09375 * Z0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3184 |
PSI |
IF( Z0(I) .LT. 0.0065 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3185 |
PSI |
1 Z0(I) * ( 0.5 - 0.625 * Z0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3231 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3249 |
PSI |
IF ( Z0(I) .GT. Z0M ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3250 |
PSI |
Z0(I) = Z0M |
|
./pkg/fizhi/fizhi_turb.F |
3257 |
PSI |
X0NUM(I) = 1. + 5. * Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3259 |
PSI |
X0DEN(I) = 1. + CM1 * (X0NUM(I) * Z0(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3262 |
PSI |
1 HZ(I) = Z1(I) / Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3266 |
PSI |
ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1) |
|
./pkg/fizhi/fizhi_turb.F |
3268 |
PSI |
ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I) |