Symbol Description Uses
ARG0 26


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3079 PSI 
      _RL HZ(irun),ARG0(irun),ARG1(irun),DX(irun)
./pkg/fizhi/fizhi_turb.F 3146 PSI 
       ARG0(I)  = 1. - X0(I)
./pkg/fizhi/fizhi_turb.F 3147 PSI 
       IF ( Z0(I) .LT. 0.013 ) ARG0(I) =
./pkg/fizhi/fizhi_turb.F 3151 PSI 
       ARG0(I) = ARG0(I) * ( 1.+X1(I) )
./pkg/fizhi/fizhi_turb.F 3153 PSI 
       ARG1(I) = ARG1(I) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3154 PSI 
       ARG0(I) = -DX(I) / ( 1. + X1(I)*X0(I) )
./pkg/fizhi/fizhi_turb.F 3155 PSI 
       ARG0(I) = ATAN( ARG0(I) )
./pkg/fizhi/fizhi_turb.F 3157 PSI 
       PSI2(I) = 2. * ARG0(I) + ARG1(I)
./pkg/fizhi/fizhi_turb.F 3183 PSI 
       ARG0(I)  = 1. - Y0(I)
./pkg/fizhi/fizhi_turb.F 3184 PSI 
       IF( Z0(I) .LT. 0.0065 ) ARG0(I) =
./pkg/fizhi/fizhi_turb.F 3188 PSI 
       ARG0(I) = ARG0(I) * ( 1. + Y1(I) )
./pkg/fizhi/fizhi_turb.F 3189 PSI 
       ARG1(I) = ARG1(I) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3266 PSI 
       ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1)
./pkg/fizhi/fizhi_turb.F 3267 PSI 
       ARG0(I) = CM3 + ARG0(I) * CM4
./pkg/fizhi/fizhi_turb.F 3268 PSI 
       ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I)
./pkg/fizhi/fizhi_turb.F 3269 PSI 
       ARG0(I) = ATAN( ARG0(I) )
./pkg/fizhi/fizhi_turb.F 3270 PSI 
       TEMP(I) = ARG1(I) + CM5 * ARG0(I)
./pkg/fizhi/fizhi_turb.F 3310 PSI 
       ARG0(I) = 6.
./pkg/fizhi/fizhi_turb.F 3314 PSI 
        ARG0(I) = YCM
./pkg/fizhi/fizhi_turb.F 3318 PSI 
       PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I)