Symbol Description Uses
ARG0 26


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3531 PSI 
      _RL HZ(irun),ARG0(irun),ARG1(irun),DX(irun)
./pkg/fizhi/fizhi_turb.F 3598 PSI 
       ARG0(I)  = 1. - X0(I)
./pkg/fizhi/fizhi_turb.F 3599 PSI 
       IF ( Z0(I) .LT. 0.013 ) ARG0(I) =
./pkg/fizhi/fizhi_turb.F 3603 PSI 
       ARG0(I) = ARG0(I) * ( 1.+X1(I) )
./pkg/fizhi/fizhi_turb.F 3605 PSI 
       ARG1(I) = ARG1(I) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3606 PSI 
       ARG0(I) = -DX(I) / ( 1. + X1(I)*X0(I) )
./pkg/fizhi/fizhi_turb.F 3607 PSI 
       ARG0(I) = ATAN( ARG0(I) )
./pkg/fizhi/fizhi_turb.F 3609 PSI 
       PSI2(I) = 2. * ARG0(I) + ARG1(I)
./pkg/fizhi/fizhi_turb.F 3635 PSI 
       ARG0(I)  = 1. - Y0(I)
./pkg/fizhi/fizhi_turb.F 3636 PSI 
       IF( Z0(I) .LT. 0.0065 ) ARG0(I) =
./pkg/fizhi/fizhi_turb.F 3640 PSI 
       ARG0(I) = ARG0(I) * ( 1. + Y1(I) )
./pkg/fizhi/fizhi_turb.F 3641 PSI 
       ARG1(I) = ARG1(I) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3718 PSI 
       ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1)
./pkg/fizhi/fizhi_turb.F 3719 PSI 
       ARG0(I) = CM3 + ARG0(I) * CM4
./pkg/fizhi/fizhi_turb.F 3720 PSI 
       ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3721 PSI 
       ARG0(I) = ATAN( ARG0(I) )
./pkg/fizhi/fizhi_turb.F 3722 PSI 
       TEMP(I) = ARG1(I) + CM5 * ARG0(I)
./pkg/fizhi/fizhi_turb.F 3762 PSI 
       ARG0(I) = 6.
./pkg/fizhi/fizhi_turb.F 3766 PSI 
        ARG0(I) = YCM
./pkg/fizhi/fizhi_turb.F 3770 PSI 
       PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I)