| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3144 |
PSI |
_RL HZ(irun),ARG0(irun),ARG1(irun),DX(irun) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3211 |
PSI |
ARG0(I) = 1. - X0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3212 |
PSI |
IF ( Z0(I) .LT. 0.013 ) ARG0(I) = |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3216 |
PSI |
ARG0(I) = ARG0(I) * ( 1.+X1(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3218 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3219 |
PSI |
ARG0(I) = -DX(I) / ( 1. + X1(I)*X0(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3220 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3222 |
PSI |
PSI2(I) = 2. * ARG0(I) + ARG1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3248 |
PSI |
ARG0(I) = 1. - Y0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3249 |
PSI |
IF( Z0(I) .LT. 0.0065 ) ARG0(I) = |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3253 |
PSI |
ARG0(I) = ARG0(I) * ( 1. + Y1(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3254 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3331 |
PSI |
ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3332 |
PSI |
ARG0(I) = CM3 + ARG0(I) * CM4 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3333 |
PSI |
ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3334 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3335 |
PSI |
TEMP(I) = ARG1(I) + CM5 * ARG0(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3375 |
PSI |
ARG0(I) = 6. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3379 |
PSI |
ARG0(I) = YCM |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3383 |
PSI |
PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3105 |
PSI |
_RL HZ(irun),ARG0(irun),ARG1(irun),DX(irun) |
|
./pkg/fizhi/fizhi_turb.F |
3172 |
PSI |
ARG0(I) = 1. - X0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3173 |
PSI |
IF ( Z0(I) .LT. 0.013 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3177 |
PSI |
ARG0(I) = ARG0(I) * ( 1.+X1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3179 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3180 |
PSI |
ARG0(I) = -DX(I) / ( 1. + X1(I)*X0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3181 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3183 |
PSI |
PSI2(I) = 2. * ARG0(I) + ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3209 |
PSI |
ARG0(I) = 1. - Y0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3210 |
PSI |
IF( Z0(I) .LT. 0.0065 ) ARG0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3214 |
PSI |
ARG0(I) = ARG0(I) * ( 1. + Y1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3215 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3292 |
PSI |
ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1) |
|
./pkg/fizhi/fizhi_turb.F |
3293 |
PSI |
ARG0(I) = CM3 + ARG0(I) * CM4 |
|
./pkg/fizhi/fizhi_turb.F |
3294 |
PSI |
ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3295 |
PSI |
ARG0(I) = ATAN( ARG0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3296 |
PSI |
TEMP(I) = ARG1(I) + CM5 * ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3336 |
PSI |
ARG0(I) = 6. |
|
./pkg/fizhi/fizhi_turb.F |
3340 |
PSI |
ARG0(I) = YCM |
|
./pkg/fizhi/fizhi_turb.F |
3344 |
PSI |
PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I) |