Symbol Description Uses
x3 50


File Line number Procedure Code
./pkg/exf/exf_set_uv.F 120 EXF_SET_UV 
      _RL     x1, x2, x3, x4, y1, y2, y3, y4, dx, dy
./pkg/exf/exf_set_uv.F 291 EXF_SET_UV 
                    x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 295 EXF_SET_UV 
                    IF ((x3-x1).GT.180) x3=x3-360
./pkg/exf/exf_set_uv.F 296 EXF_SET_UV 
                    IF ((x1-x3).GT.180) x3=x3+360
./pkg/exf/exf_set_uv.F 303 EXF_SET_UV 
                    dx=0.5*(x3+x4-x1-x2)
./pkg/exf/exf_set_uv.F 311 EXF_SET_UV 
                    dx=0.5*(x2+x4-x1-x3)
./pkg/exf/exf_set_uv.F 452 EXF_SET_UV 
                    x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 456 EXF_SET_UV 
                    IF ((x3-x1).GT.180) x3=x3-360
./pkg/exf/exf_set_uv.F 457 EXF_SET_UV 
                    IF ((x1-x3).GT.180) x3=x3+360
./pkg/exf/exf_set_uv.F 464 EXF_SET_UV 
                    dx=0.5*(x3+x4-x1-x2)
./pkg/exf/exf_set_uv.F 472 EXF_SET_UV 
                    dx=0.5*(x2+x4-x1-x3)
./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 2529 TABLUP 
        x3=(stem(i,j,k2)-stem(i,j,k1))/x1
./pkg/fizhi/fizhi_lwrad.F 2571 TABLUP 
        tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j)
./pkg/fizhi/fizhi_utils.F 31 NO PROCEDURE 
      _RL aa1,aa2,aa3,aa4,aa5,pp,x2,x3,x4,x5
./pkg/bling/bling_carbon_chem.F 101 CALC_PCO2 
        _RL  x3
./pkg/bling/bling_carbon_chem.F 173 CALC_PCO2 
            x3=x2*x
./pkg/bling/bling_carbon_chem.F 178 CALC_PCO2 
            a = x3 + k1plocal*x2 + k12p*x + k123p
./pkg/bling/bling_carbon_chem.F 198 CALC_PCO2 
     &        pt*x3/a -
./pkg/bling/bling_carbon_chem.F 245 CALC_PCO2 
              x3=x2*x
./pkg/bling/bling_carbon_chem.F 250 CALC_PCO2 
              a = x3 + k1plocal*x2 + k12p*x + k123p
./pkg/bling/bling_carbon_chem.F 267 CALC_PCO2 
     &          pt*x3/a -
./pkg/ctrl/adctrl_bound.F 133 ADCTRL_BOUND_2D 
      _RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3
./pkg/ctrl/adctrl_bound.F 142 ADCTRL_BOUND_2D 
      x3=boundsVec(4)
./pkg/ctrl/adctrl_bound.F 143 ADCTRL_BOUND_2D 
        x2p5=(x2+x3)/2.0
./pkg/ctrl/adctrl_bound.F 144 ADCTRL_BOUND_2D 
        l2p5=(x3-x2)/2.0
./pkg/ctrl/adctrl_bound.F 150 ADCTRL_BOUND_2D 
      IF ( x0.LT.x3 ) THEN
./pkg/ctrl/adctrl_bound.F 151 ADCTRL_BOUND_2D 
       IF ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) THEN
./pkg/ctrl/adctrl_bound.F 43 ADCTRL_BOUND_3D 
      _RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3
./pkg/ctrl/adctrl_bound.F 52 ADCTRL_BOUND_3D 
      x3=boundsVec(4)
./pkg/ctrl/adctrl_bound.F 53 ADCTRL_BOUND_3D 
        x2p5=(x2+x3)/2.0
./pkg/ctrl/adctrl_bound.F 54 ADCTRL_BOUND_3D 
        l2p5=(x3-x2)/2.0
./pkg/ctrl/adctrl_bound.F 60 ADCTRL_BOUND_3D 
      IF ( x0.LT.x3 ) THEN
./pkg/ctrl/adctrl_bound.F 61 ADCTRL_BOUND_3D 
       IF ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) THEN
./pkg/dic/carbon_chem.F 106 CALC_PCO2 
        _RL  x3
./pkg/dic/carbon_chem.F 178 CALC_PCO2 
            x3=x2*x
./pkg/dic/carbon_chem.F 183 CALC_PCO2 
            a = x3 + k1plocal*x2 + k12p*x + k123p
./pkg/dic/carbon_chem.F 203 CALC_PCO2 
     &        pt*x3/a -
./pkg/dic/carbon_chem.F 250 CALC_PCO2 
              x3=x2*x
./pkg/dic/carbon_chem.F 255 CALC_PCO2 
              a = x3 + k1plocal*x2 + k12p*x + k123p
./pkg/dic/carbon_chem.F 272 CALC_PCO2 
     &          pt*x3/a -