| 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 |
3207 |
PSI |
ARG1(I) = 1. - X1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3208 |
PSI |
IF ( Z(I) .LT. 0.013 ) ARG1(I) = |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3215 |
PSI |
ARG1(I) = ARG1(I) * ( 1.+X0(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 |
3221 |
PSI |
ARG1(I) = LOG( ARG1(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 |
3244 |
PSI |
ARG1(I) = 1. - Y1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3245 |
PSI |
IF( Z(I) .LT. 0.0065 ) ARG1(I) = |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3252 |
PSI |
ARG1(I) = ARG1(I) * ( 1. + Y0(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 |
3255 |
PSI |
PSI2(I) = LOG( ARG1(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3297 |
PSI |
ARG1(indx) = VZH(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3305 |
PSI |
HZ(I) = 1. / ARG1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3328 |
PSI |
ARG1(I) = HZ(I)*HZ(I)*X0DEN(I)*X1DEN(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3329 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3330 |
PSI |
ARG1(I) = 0.5 * ARG1(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 |
3350 |
PSI |
ARG1(I) = LOG( Z2ZWM(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3351 |
PSI |
PSI2(I) = TEMP(I) + CM6 * ARG1(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3374 |
PSI |
ARG1(I) = CM7 * Z2ZWM(I) / ( CM2 + Z2(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3378 |
PSI |
ARG1(I) = Z2(I) * RZCM |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3382 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./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 |
3168 |
PSI |
ARG1(I) = 1. - X1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3169 |
PSI |
IF ( Z(I) .LT. 0.013 ) ARG1(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3176 |
PSI |
ARG1(I) = ARG1(I) * ( 1.+X0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3179 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3182 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3183 |
PSI |
PSI2(I) = 2. * ARG0(I) + ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3205 |
PSI |
ARG1(I) = 1. - Y1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3206 |
PSI |
IF( Z(I) .LT. 0.0065 ) ARG1(I) = |
|
./pkg/fizhi/fizhi_turb.F |
3213 |
PSI |
ARG1(I) = ARG1(I) * ( 1. + Y0(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3215 |
PSI |
ARG1(I) = ARG1(I) / ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3216 |
PSI |
PSI2(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3258 |
PSI |
ARG1(indx) = VZH(I) |
|
./pkg/fizhi/fizhi_turb.F |
3266 |
PSI |
HZ(I) = 1. / ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3289 |
PSI |
ARG1(I) = HZ(I)*HZ(I)*X0DEN(I)*X1DEN(I) |
|
./pkg/fizhi/fizhi_turb.F |
3290 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3291 |
PSI |
ARG1(I) = 0.5 * ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3296 |
PSI |
TEMP(I) = ARG1(I) + CM5 * ARG0(I) |
|
./pkg/fizhi/fizhi_turb.F |
3311 |
PSI |
ARG1(I) = LOG( Z2ZWM(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3312 |
PSI |
PSI2(I) = TEMP(I) + CM6 * ARG1(I) |
|
./pkg/fizhi/fizhi_turb.F |
3335 |
PSI |
ARG1(I) = CM7 * Z2ZWM(I) / ( CM2 + Z2(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3339 |
PSI |
ARG1(I) = Z2(I) * RZCM |
|
./pkg/fizhi/fizhi_turb.F |
3343 |
PSI |
ARG1(I) = LOG( ARG1(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3344 |
PSI |
PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I) |