| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1374 |
TRBFLX |
1 IWATER,Z0,tracers,ntrace,ntracedim,DTAU,ITRTRB,KMBG,KHBG,QBEG, |
|
./pkg/fizhi/fizhi_turb.F |
1429 |
TRBFLX |
_RL Z0(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1849 |
TRBFLX |
4 PLKE(1,NLEVP1),PLE(1,NLEVP1),Z0, |
|
./pkg/fizhi/fizhi_turb.F |
2114 |
TRBFLX |
Z0IN(I) = Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3120 |
PSI |
_RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun) |
|
./pkg/fizhi/fizhi_turb.F |
3167 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3173 |
PSI |
Z0(I) = -18. * Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3177 |
PSI |
CALL PHI( Z0,X0,Y0,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3191 |
PSI |
IF ( Z0(I) .LT. 0.013 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3192 |
PSI |
1 Z0(I) * ( 0.25 - 0.09375 * Z0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3228 |
PSI |
IF( Z0(I) .LT. 0.0065 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3229 |
PSI |
1 Z0(I) * ( 0.5 - 0.625 * Z0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3275 |
PSI |
Z0(indx) = ZZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3293 |
PSI |
IF ( Z0(I) .GT. Z0M ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
3294 |
PSI |
Z0(I) = Z0M |
|
./pkg/fizhi/fizhi_turb.F |
3301 |
PSI |
X0NUM(I) = 1. + 5. * Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3303 |
PSI |
X0DEN(I) = 1. + CM1 * (X0NUM(I) * Z0(I)) |
|
./pkg/fizhi/fizhi_turb.F |
3306 |
PSI |
1 HZ(I) = Z1(I) / Z0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3310 |
PSI |
ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1) |
|
./pkg/fizhi/fizhi_turb.F |
3312 |
PSI |
ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1374 |
TRBFLX |
1 IWATER,Z0,tracers,ntrace,ntracedim,DTAU,ITRTRB,KMBG,KHBG,QBEG, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1429 |
TRBFLX |
_RL Z0(irun) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
1849 |
TRBFLX |
4 PLKE(1,NLEVP1),PLE(1,NLEVP1),Z0, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2114 |
TRBFLX |
Z0IN(I) = Z0(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3102 |
PSI |
_RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3149 |
PSI |
Z0(indx) = ZZ0(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3155 |
PSI |
Z0(I) = -18. * Z0(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3159 |
PSI |
CALL PHI( Z0,X0,Y0,IFLAG,IBIT ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3173 |
PSI |
IF ( Z0(I) .LT. 0.013 ) ARG0(I) = |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3174 |
PSI |
1 Z0(I) * ( 0.25 - 0.09375 * Z0(I) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3210 |
PSI |
IF( Z0(I) .LT. 0.0065 ) ARG0(I) = |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3211 |
PSI |
1 Z0(I) * ( 0.5 - 0.625 * Z0(I) ) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3257 |
PSI |
Z0(indx) = ZZ0(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3275 |
PSI |
IF ( Z0(I) .GT. Z0M ) THEN |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3276 |
PSI |
Z0(I) = Z0M |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3283 |
PSI |
X0NUM(I) = 1. + 5. * Z0(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3285 |
PSI |
X0DEN(I) = 1. + CM1 * (X0NUM(I) * Z0(I)) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3288 |
PSI |
1 HZ(I) = Z1(I) / Z0(I) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3292 |
PSI |
ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3294 |
PSI |
ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I) |