| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2011 |
TRBFLX |
IBIT = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2013 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2015 |
TRBFLX |
IF(IBIT.GE.1)GO TO 310 |
|
./pkg/fizhi/fizhi_turb.F |
3144 |
PSI |
IBIT = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3146 |
PSI |
IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3160 |
PSI |
IF(IBIT.LE.0) GO TO 100 |
|
./pkg/fizhi/fizhi_turb.F |
3171 |
PSI |
DO 9004 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3176 |
PSI |
CALL PHI( Z,X1,Y1,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3177 |
PSI |
CALL PHI( Z0,X0,Y0,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3185 |
PSI |
DO 9006 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3222 |
PSI |
DO 9010 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3253 |
PSI |
IBIT = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3256 |
PSI |
IBIT = IBIT + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3266 |
PSI |
IF(IBIT.LE.0) GO TO 300 |
|
./pkg/fizhi/fizhi_turb.F |
3283 |
PSI |
DO 9018 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3327 |
PSI |
DO 9020 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3350 |
PSI |
DO 9024 I = 1,IBIT |
|
./pkg/fizhi/fizhi_turb.F |
3475 |
TRBLEN |
IBIT = 0 |
|
./pkg/fizhi/fizhi_turb.F |
3477 |
TRBLEN |
IBIT = IBIT + INT1(I,LMIN) |
|
./pkg/fizhi/fizhi_turb.F |
3479 |
TRBLEN |
IF(IBIT.GE.1) GO TO 50 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2011 |
TRBFLX |
IBIT = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2013 |
TRBFLX |
IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2015 |
TRBFLX |
IF(IBIT.GE.1)GO TO 310 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3126 |
PSI |
IBIT = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3128 |
PSI |
IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3142 |
PSI |
IF(IBIT.LE.0) GO TO 100 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3153 |
PSI |
DO 9004 I = 1,IBIT |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3158 |
PSI |
CALL PHI( Z,X1,Y1,IFLAG,IBIT ) |
|
./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 |
3167 |
PSI |
DO 9006 I = 1,IBIT |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3204 |
PSI |
DO 9010 I = 1,IBIT |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3235 |
PSI |
IBIT = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3238 |
PSI |
IBIT = IBIT + 1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3248 |
PSI |
IF(IBIT.LE.0) GO TO 300 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3265 |
PSI |
DO 9018 I = 1,IBIT |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3309 |
PSI |
DO 9020 I = 1,IBIT |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3332 |
PSI |
DO 9024 I = 1,IBIT |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3457 |
TRBLEN |
IBIT = 0 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3459 |
TRBLEN |
IBIT = IBIT + INT1(I,LMIN) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3461 |
TRBLEN |
IF(IBIT.GE.1) GO TO 50 |