Symbol Description Uses
x2 83


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 290 EXF_SET_UV 
                    x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 293 EXF_SET_UV 
                    IF ((x2-x1).GT.180) x2=x2-360
./pkg/exf/exf_set_uv.F 294 EXF_SET_UV 
                    IF ((x1-x2).GT.180) x2=x2+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 451 EXF_SET_UV 
                    x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 454 EXF_SET_UV 
                    IF ((x2-x1).GT.180) x2=x2-360
./pkg/exf/exf_set_uv.F 455 EXF_SET_UV 
                    IF ((x1-x2).GT.180) x2=x2+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 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/fizhi/fizhi_swrad.F 2523 FLXCO2 
      _RL  xx,clog1,wlog,dc,dw,x1,x2,y2
./pkg/fizhi/fizhi_swrad.F 2551 FLXCO2 
          x2=cah(ic-1,iw-1)+(cah(ic-1,iw)-cah(ic-1,iw-1))*xx*dw
./pkg/fizhi/fizhi_swrad.F 2552 FLXCO2 
          y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc
./pkg/fizhi/fizhi_utils.F 31 NO PROCEDURE 
      _RL aa1,aa2,aa3,aa4,aa5,pp,x2,x3,x4,x5
./model/src/gsw_teos10.F 139 NO PROCEDURE 
      _RL x2, x, y, cp0
./model/src/gsw_teos10.F 144 NO PROCEDURE 
      x2   = sfac*sa
./model/src/gsw_teos10.F 146 NO PROCEDURE 
      if (x2.gt.0. _d 0) x = sqrt(x2)
./model/src/gsw_teos10.F 155 NO PROCEDURE 
     &     x2*(268.5520265845071 _d 0 + y*(-12019.028203559312 _d 0 +
./model/src/gsw_teos10.F 206 NO PROCEDURE 
      _RL sfac, x2, x, y, g03, g08
./model/src/gsw_teos10.F 211 NO PROCEDURE 
      x2   = sfac*sa
./model/src/gsw_teos10.F 213 NO PROCEDURE 
      if (x2.gt.0. _d 0) x = sqrt(x2)
./model/src/gsw_teos10.F 222 NO PROCEDURE 
      g08 = x2*(1760.062705994408  + x*(-86.1329351956084 +
./model/src/port_rand.F 153 PORT_RANARR 
      real*8 x1, x2, xs, t
./model/src/port_rand.F 168 PORT_RANARR 
         x2=2.0*port_rand(seed)-1.0
./model/src/port_rand.F 169 PORT_RANARR 
         xs=x1**2+x2**2
./pkg/bling/bling_carbon_chem.F 100 CALC_PCO2 
        _RL  x2
./pkg/bling/bling_carbon_chem.F 172 CALC_PCO2 
            x2=x*x
./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 180 CALC_PCO2 
            da = 3.0*x2 + 2.0*k1plocal*x + k12p
./pkg/bling/bling_carbon_chem.F 181 CALC_PCO2 
            b = x2 + k1local*x + k12
./pkg/bling/bling_carbon_chem.F 208 CALC_PCO2 
     &        kwlocal/x2 +
./pkg/bling/bling_carbon_chem.F 213 CALC_PCO2 
     &        stlocal*(1.0 + kslocal/x/c)**(-2.0)*(kslocal/c/x2) +
./pkg/bling/bling_carbon_chem.F 214 CALC_PCO2 
     &        ftlocal*(1.0 + kflocal/x)**(-2.)*kflocal/x2 -
./pkg/bling/bling_carbon_chem.F 215 CALC_PCO2 
     &        pt*x2*(3.0*a-x*da)/a2
./pkg/bling/bling_carbon_chem.F 244 CALC_PCO2 
              x2=x*x
./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 252 CALC_PCO2 
              da = 3.0*x2 + 2.0*k1plocal*x + k12p
./pkg/bling/bling_carbon_chem.F 253 CALC_PCO2 
              b = x2 + k1local*x + k12
./pkg/ctrl/adctrl_bound.F 133 ADCTRL_BOUND_2D 
      _RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3
./pkg/ctrl/adctrl_bound.F 141 ADCTRL_BOUND_2D 
      x2=boundsVec(3)
./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 151 ADCTRL_BOUND_2D 
       IF ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) THEN
./pkg/ctrl/adctrl_bound.F 161 ADCTRL_BOUND_2D 
                IF ( (xCur.GT.x2).AND.(adxCur.LT.0.) ) THEN
./pkg/ctrl/adctrl_bound.F 43 ADCTRL_BOUND_3D 
      _RL x0,x0p5,l0p5,x1,x2,x2p5,l2p5,x3
./pkg/ctrl/adctrl_bound.F 51 ADCTRL_BOUND_3D 
      x2=boundsVec(3)
./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 61 ADCTRL_BOUND_3D 
       IF ( (x0.LT.x1).AND.(x1.LT.x2).AND.(x2.LT.x3) ) THEN
./pkg/ctrl/adctrl_bound.F 72 ADCTRL_BOUND_3D 
                IF ( (xCur.GT.x2).AND.(adxCur.LT.0.) ) THEN
./pkg/dic/carbon_chem.F 105 CALC_PCO2 
        _RL  x2
./pkg/dic/carbon_chem.F 177 CALC_PCO2 
            x2=x*x
./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 185 CALC_PCO2 
            da = 3.0*x2 + 2.0*k1plocal*x + k12p
./pkg/dic/carbon_chem.F 186 CALC_PCO2 
            b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 213 CALC_PCO2 
     &        kwlocal/x2 +
./pkg/dic/carbon_chem.F 218 CALC_PCO2 
     &        stlocal*(1.0 + kslocal/x/c)**(-2.0)*(kslocal/c/x2) +
./pkg/dic/carbon_chem.F 219 CALC_PCO2 
     &        ftlocal*(1.0 + kflocal/x)**(-2.)*kflocal/x2 -
./pkg/dic/carbon_chem.F 220 CALC_PCO2 
     &        pt*x2*(3.0*a-x*da)/a2
./pkg/dic/carbon_chem.F 249 CALC_PCO2 
              x2=x*x
./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 257 CALC_PCO2 
              da = 3.0*x2 + 2.0*k1plocal*x + k12p
./pkg/dic/carbon_chem.F 258 CALC_PCO2 
              b = x2 + k1local*x + k12