Symbol Description Uses
x2 48


File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 2517 TABLUP 
      _RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2
./pkg/fizhi/fizhi_lwrad.F 2528 TABLUP 
        x2=(spre(i,j,k2)-spre(i,j,k1))/x1
./pkg/fizhi/fizhi_lwrad.F 2532 TABLUP 
        pe=(log10(x2)-p1)/dpe
./pkg/exf/exf_set_uv.F 171 EXF_SET_UV 
                           x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 174 EXF_SET_UV 
                           if ((x2-x1).gt.180) x2=x2-360
./pkg/exf/exf_set_uv.F 175 EXF_SET_UV 
                           if ((x1-x2).gt.180) x2=x2+360
./pkg/exf/exf_set_uv.F 184 EXF_SET_UV 
                           dx=0.5*(x3+x4-x1-x2)
./pkg/exf/exf_set_uv.F 189 EXF_SET_UV 
                           dx=0.5*(x2+x4-x1-x3)
./pkg/exf/exf_set_uv.F 262 EXF_SET_UV 
                           x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 265 EXF_SET_UV 
                           if ((x2-x1).gt.180) x2=x2-360
./pkg/exf/exf_set_uv.F 266 EXF_SET_UV 
                           if ((x1-x2).gt.180) x2=x2+360
./pkg/exf/exf_set_uv.F 275 EXF_SET_UV 
                           dx=0.5*(x3+x4-x1-x2)
./pkg/exf/exf_set_uv.F 280 EXF_SET_UV 
                           dx=0.5*(x2+x4-x1-x3)
./pkg/exf/exf_set_uv.F 89 EXF_SET_UV 
      _RL     fac, x1, x2, x3, x4, y1, y2, y3, y4, dx, dy