| 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 |