Symbol Description Uses
ARG1 32


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 3594 PSI 
       ARG1(I) = 1. - X1(I)
./pkg/fizhi/fizhi_turb.F 3595 PSI 
       IF ( Z(I) .LT. 0.013 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3602 PSI 
       ARG1(I) = ARG1(I) * ( 1.+X0(I) )
./pkg/fizhi/fizhi_turb.F 3605 PSI 
       ARG1(I) = ARG1(I) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3608 PSI 
       ARG1(I) = LOG( ARG1(I) )
./pkg/fizhi/fizhi_turb.F 3609 PSI 
       PSI2(I) = 2. * ARG0(I) + ARG1(I)
./pkg/fizhi/fizhi_turb.F 3631 PSI 
       ARG1(I) = 1. - Y1(I)
./pkg/fizhi/fizhi_turb.F 3632 PSI 
       IF( Z(I) .LT. 0.0065 ) ARG1(I) =
./pkg/fizhi/fizhi_turb.F 3639 PSI 
       ARG1(I) = ARG1(I) * ( 1. + Y0(I) )
./pkg/fizhi/fizhi_turb.F 3641 PSI 
       ARG1(I) = ARG1(I) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3642 PSI 
       PSI2(I) = LOG( ARG1(I) )
./pkg/fizhi/fizhi_turb.F 3684 PSI 
        ARG1(indx) = VZH(I)
./pkg/fizhi/fizhi_turb.F 3692 PSI 
       HZ(I) = 1. / ARG1(I)
./pkg/fizhi/fizhi_turb.F 3715 PSI 
       ARG1(I) = HZ(I)*HZ(I)*X0DEN(I)*X1DEN(I)
./pkg/fizhi/fizhi_turb.F 3716 PSI 
       ARG1(I) = LOG( ARG1(I) )
./pkg/fizhi/fizhi_turb.F 3717 PSI 
       ARG1(I) = 0.5 * ARG1(I)
./pkg/fizhi/fizhi_turb.F 3722 PSI 
       TEMP(I) = ARG1(I) + CM5 * ARG0(I)
./pkg/fizhi/fizhi_turb.F 3737 PSI 
       ARG1(I) = LOG( Z2ZWM(I) )
./pkg/fizhi/fizhi_turb.F 3738 PSI 
       PSI2(I) = TEMP(I) + CM6 * ARG1(I)
./pkg/fizhi/fizhi_turb.F 3761 PSI 
       ARG1(I) = CM7 * Z2ZWM(I) / ( CM2 + Z2(I) )
./pkg/fizhi/fizhi_turb.F 3765 PSI 
        ARG1(I) = Z2(I) * RZCM
./pkg/fizhi/fizhi_turb.F 3769 PSI 
       ARG1(I) = LOG( ARG1(I) )
./pkg/fizhi/fizhi_turb.F 3770 PSI 
       PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I)