Symbol Description Uses
yPole 40


File Line number Procedure Code
./pkg/exf/exf_interp.F 102 EXF_INTERP 
      PARAMETER ( yPole = 90. )
./pkg/exf/exf_interp.F 170 EXF_INTERP 
       IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 171 EXF_INTERP 
         y_in(j) = -yPole
./pkg/exf/exf_interp.F 172 EXF_INTERP 
         y_in(j-1) = -2.*yPole - y_in(j+1)
./pkg/exf/exf_interp.F 179 EXF_INTERP 
       IF ( ABS(y_in(j+1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 180 EXF_INTERP 
         y_in(j) = -yPole
./pkg/exf/exf_interp.F 188 EXF_INTERP 
       IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 189 EXF_INTERP 
         y_in(j) = yPole
./pkg/exf/exf_interp.F 190 EXF_INTERP 
         y_in(j+1) = 2.*yPole - y_in(j-1)
./pkg/exf/exf_interp.F 197 EXF_INTERP 
       IF ( ABS(y_in(j-1)).LT.yPole .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 198 EXF_INTERP 
         y_in(j) = yPole
./pkg/exf/exf_interp.F 229 EXF_INTERP 
       IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp.F 230 EXF_INTERP 
        IF ( nyIn.GE.3 .AND. ABS(y_in(k)).EQ.yPole )
./pkg/exf/exf_interp.F 264 EXF_INTERP 
        IF ( ABS(y_in(j)).EQ.yPole ) THEN
./pkg/exf/exf_interp.F 296 EXF_INTERP 
        IF ( ABS(y_in(k)).EQ.yPole ) THEN
./pkg/exf/exf_interp.F 99 EXF_INTERP 
      _RL      yPole, symSign, poleValue
./pkg/exf/exf_interp_uv.F 111 EXF_INTERP_UV 
      _RL      yPole, symSign, poleU, poleV
./pkg/exf/exf_interp_uv.F 116 EXF_INTERP_UV 
      PARAMETER ( yPole = 90. )
./pkg/exf/exf_interp_uv.F 180 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 181 EXF_INTERP_UV 
         y_in(j) = -yPole
./pkg/exf/exf_interp_uv.F 182 EXF_INTERP_UV 
         y_in(j-1) = -2.*yPole - y_in(j+1)
./pkg/exf/exf_interp_uv.F 189 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 190 EXF_INTERP_UV 
         y_in(j) = -yPole
./pkg/exf/exf_interp_uv.F 197 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 198 EXF_INTERP_UV 
         y_in(j) = yPole
./pkg/exf/exf_interp_uv.F 199 EXF_INTERP_UV 
         y_in(j+1) = 2.*yPole - y_in(j-1)
./pkg/exf/exf_interp_uv.F 206 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 207 EXF_INTERP_UV 
         y_in(j) = yPole
./pkg/exf/exf_interp_uv.F 244 EXF_INTERP_UV 
       IF ( poleSymmetry .AND. ABS(y_in(j)).GT.yPole ) THEN
./pkg/exf/exf_interp_uv.F 245 EXF_INTERP_UV 
        IF ( nyIn.GE.3 .AND. ABS(y_in(k)).EQ.yPole )
./pkg/exf/exf_interp_uv.F 276 EXF_INTERP_UV 
        IF ( ABS(y_in(j)).EQ.yPole ) THEN
./pkg/exf/exf_interp_uv.F 318 EXF_INTERP_UV 
        IF ( ABS(y_in(k)).EQ.yPole ) THEN