Symbol Description Uses
yPole 36


File Line number Procedure Code
./pkg/exf/exf_interp.F 142 EXF_INTERP 
       IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 143 EXF_INTERP 
         y_in(j) = -yPole
./pkg/exf/exf_interp.F 144 EXF_INTERP 
         y_in(j-1) = -2.*yPole - y_in(1)
./pkg/exf/exf_interp.F 151 EXF_INTERP 
       IF ( ABS(y_in(j+1)).GT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 152 EXF_INTERP 
         y_in(j) = -yPole
./pkg/exf/exf_interp.F 160 EXF_INTERP 
       IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 161 EXF_INTERP 
         y_in(j) = yPole
./pkg/exf/exf_interp.F 162 EXF_INTERP 
         y_in(j+1) = 2.*yPole - y_in(j-1)
./pkg/exf/exf_interp.F 169 EXF_INTERP 
       IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 170 EXF_INTERP 
         y_in(j) = yPole
./pkg/exf/exf_interp.F 201 EXF_INTERP 
       IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 234 EXF_INTERP 
        IF ( ABS(y_in(j)).EQ.yPole ) THEN
./pkg/exf/exf_interp.F 85 EXF_INTERP 
      _RL      yPole, symSign, poleValue
./pkg/exf/exf_interp.F 87 EXF_INTERP 
      PARAMETER ( yPole = 90. )
./pkg/exf/exf_interp_uv.F 149 EXF_INTERP_UV 
      IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F 150 EXF_INTERP_UV 
         y_in(j) = -yPole
./pkg/exf/exf_interp_uv.F 151 EXF_INTERP_UV 
         y_in(j-1) = -2.*yPole - y_in(1)
./pkg/exf/exf_interp_uv.F 158 EXF_INTERP_UV 
      IF ( ABS(y_in(j+1)).GT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F 159 EXF_INTERP_UV 
         y_in(j) = -yPole
./pkg/exf/exf_interp_uv.F 166 EXF_INTERP_UV 
      IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F 167 EXF_INTERP_UV 
         y_in(j) = yPole
./pkg/exf/exf_interp_uv.F 168 EXF_INTERP_UV 
         y_in(j+1) = 2.*yPole - y_in(j-1)
./pkg/exf/exf_interp_uv.F 175 EXF_INTERP_UV 
      IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F 176 EXF_INTERP_UV 
         y_in(j) = yPole
./pkg/exf/exf_interp_uv.F 213 EXF_INTERP_UV 
       IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F 243 EXF_INTERP_UV 
        IF ( ABS(y_in(j)).EQ.yPole ) THEN
./pkg/exf/exf_interp_uv.F 93 EXF_INTERP_UV 
      _RL      yPole, symSign, poleU, poleV
./pkg/exf/exf_interp_uv.F 98 EXF_INTERP_UV 
      PARAMETER ( yPole = 90. )