| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2741 |
PHI |
SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N) |
|
./pkg/fizhi/fizhi_turb.F |
2982 |
PHI |
IF( IFLAG .GT. 2 ) GO TO 100 |
|
./pkg/fizhi/fizhi_turb.F |
2994 |
PHI |
IF( IFLAG .EQ. 2 ) GO TO 200 |
|
./pkg/fizhi/fizhi_turb.F |
3011 |
PHI |
IF( IFLAG .GT. 2 ) GO TO 300 |
|
./pkg/fizhi/fizhi_turb.F |
3019 |
PHI |
IF( IFLAG .EQ. 2 ) GO TO 500 |
|
./pkg/fizhi/fizhi_turb.F |
3035 |
PSI |
SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG) |
|
./pkg/fizhi/fizhi_turb.F |
3132 |
PSI |
CALL PHI( Z,X1,Y1,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3133 |
PSI |
CALL PHI( Z0,X0,Y0,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3139 |
PSI |
IF(IFLAG.GE.3) GO TO 75 |
|
./pkg/fizhi/fizhi_turb.F |
3175 |
PSI |
IF(IFLAG.EQ.2) GO TO 100 |
|
./pkg/fizhi/fizhi_turb.F |
3281 |
PSI |
IF( IFLAG.GE.3 ) GO TO 225 |
|
./pkg/fizhi/fizhi_turb.F |
3303 |
PSI |
IF(IFLAG.EQ.2)GO TO 300 |