| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3097 |
PSI |
SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3123 |
PSI |
_RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3163 |
PSI |
ZZ0(I) = VZH(I)*VZZ(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3167 |
PSI |
IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3170 |
PSI |
IF(VZZ(I).LE.-1.e-7)THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3187 |
PSI |
Z(indx) = VZZ(I) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3276 |
PSI |
IF(VZZ(I).GT.-1.e-7)THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3281 |
PSI |
IF(VZZ(I).GT.-1.e-7)THEN |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3295 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3058 |
PSI |
SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG) |
|
./pkg/fizhi/fizhi_turb.F |
3084 |
PSI |
_RL VZZ(IRUN),VZH(IRUN),VPSIM(IRUN),VPSIH(IRUN), |
|
./pkg/fizhi/fizhi_turb.F |
3124 |
PSI |
ZZ0(I) = VZH(I)*VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3128 |
PSI |
IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3131 |
PSI |
IF(VZZ(I).LE.-1.e-7)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3148 |
PSI |
Z(indx) = VZZ(I) |
|
./pkg/fizhi/fizhi_turb.F |
3237 |
PSI |
IF(VZZ(I).GT.-1.e-7)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3242 |
PSI |
IF(VZZ(I).GT.-1.e-7)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3256 |
PSI |
Z(indx) = VZZ(I) |