| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3190 |
PHI |
SUBROUTINE PHI(Z,PHIM,PHIH,IFLAG,N) |
|
./pkg/fizhi/fizhi_turb.F |
3434 |
PHI |
IF( IFLAG .GT. 2 ) GO TO 100 |
|
./pkg/fizhi/fizhi_turb.F |
3446 |
PHI |
IF( IFLAG .EQ. 2 ) GO TO 200 |
|
./pkg/fizhi/fizhi_turb.F |
3463 |
PHI |
IF( IFLAG .GT. 2 ) GO TO 300 |
|
./pkg/fizhi/fizhi_turb.F |
3471 |
PHI |
IF( IFLAG .EQ. 2 ) GO TO 500 |
|
./pkg/fizhi/fizhi_turb.F |
3484 |
PSI |
SUBROUTINE PSI(VZZ,VZH,VPSIM,VPSIH,IRUN,VX,VXS,VY,VYS,IFLAG) |
|
./pkg/fizhi/fizhi_turb.F |
3584 |
PSI |
CALL PHI( Z,X1,Y1,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3585 |
PSI |
CALL PHI( Z0,X0,Y0,IFLAG,IBIT ) |
|
./pkg/fizhi/fizhi_turb.F |
3591 |
PSI |
IF(IFLAG.GE.3) GO TO 75 |
|
./pkg/fizhi/fizhi_turb.F |
3627 |
PSI |
IF(IFLAG.EQ.2) GO TO 100 |
|
./pkg/fizhi/fizhi_turb.F |
3733 |
PSI |
IF( IFLAG.GE.3 ) GO TO 225 |
|
./pkg/fizhi/fizhi_turb.F |
3755 |
PSI |
IF(IFLAG.EQ.2)GO TO 300 |