File |
Line number |
Procedure |
Code |
./pkg/exf/exf_interp.F |
117 |
EXF_INTERP |
IF ( nyIn.GT.exf_max_nLat ) THEN |
./pkg/exf/exf_interp.F |
120 |
EXF_INTERP |
IF ( (nxIn+4)*(nyIn+4).GT.exf_interp_bufferSize ) THEN |
./pkg/exf/exf_interp.F |
131 |
EXF_INTERP |
I irecord, nxIn, nyIn, myThid ) |
./pkg/exf/exf_interp.F |
149 |
EXF_INTERP |
DO j=1,nyIn+1 |
./pkg/exf/exf_interp.F |
150 |
EXF_INTERP |
i = MIN(j,nyIn-1) |
./pkg/exf/exf_interp.F |
187 |
EXF_INTERP |
j = nyIn+1 |
./pkg/exf/exf_interp.F |
196 |
EXF_INTERP |
j = nyIn+2 |
./pkg/exf/exf_interp.F |
208 |
EXF_INTERP |
DO j=1,nyIn |
./pkg/exf/exf_interp.F |
20 |
EXF_INTERP |
I nxIn, nyIn, method, myIter, myThid ) |
./pkg/exf/exf_interp.F |
216 |
EXF_INTERP |
DO j=1,nyIn |
./pkg/exf/exf_interp.F |
227 |
EXF_INTERP |
IF ( l.GE.1 ) j = nyIn+l |
./pkg/exf/exf_interp.F |
228 |
EXF_INTERP |
k = MAX(1,MIN(j,nyIn)) |
./pkg/exf/exf_interp.F |
230 |
EXF_INTERP |
IF ( nyIn.GE.3 .AND. ABS(y_in(k)).EQ.yPole ) |
./pkg/exf/exf_interp.F |
231 |
EXF_INTERP |
& k = MAX(2,MIN(j,nyIn-1)) |
./pkg/exf/exf_interp.F |
263 |
EXF_INTERP |
IF ( l.GE.2 ) j = nyIn+l-2 |
./pkg/exf/exf_interp.F |
295 |
EXF_INTERP |
k = l*(nyIn+3) -1 |
./pkg/exf/exf_interp.F |
297 |
EXF_INTERP |
j = l*(nyIn+1) |
./pkg/exf/exf_interp.F |
298 |
EXF_INTERP |
i = l*(nyIn-1) +1 |
./pkg/exf/exf_interp.F |
330 |
EXF_INTERP |
& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2) |
./pkg/exf/exf_interp.F |
358 |
EXF_INTERP |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
./pkg/exf/exf_interp.F |
372 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
./pkg/exf/exf_interp.F |
373 |
EXF_INTERP |
& ' , y_in(0,nyIn+1)=', y_in(0) ,y_in(nyIn+1) |
./pkg/exf/exf_interp.F |
392 |
EXF_INTERP |
w_ind(i,j) = nyIn+1 |
./pkg/exf/exf_interp.F |
397 |
EXF_INTERP |
tmpVar = nyIn + 1. _d -3 |
./pkg/exf/exf_interp.F |
452 |
EXF_INTERP |
I nxIn, nyIn, x_in, y_in, |
./pkg/exf/exf_interp.F |
59 |
EXF_INTERP |
INTEGER filePrec, irecord, nxIn, nyIn |
./pkg/exf/exf_interp.F |
62 |
EXF_INTERP |
_RL arrayin ( -1:nxIn+2, -1:nyIn+2 ) |
./pkg/exf/exf_interp.F |
87 |
EXF_INTERP |
_RL arrayin( -1:nxIn+2, -1:nyIn+2 ) |
./pkg/exf/exf_interp.F |
88 |
EXF_INTERP |
_RL x_in(-1:nxIn+2), y_in(-1:nyIn+2) |
./pkg/exf/exf_interp_uv.F |
131 |
EXF_INTERP_UV |
IF ( nyIn.GT.exf_max_nLat ) THEN |
./pkg/exf/exf_interp_uv.F |
134 |
EXF_INTERP_UV |
IF ( (nxIn+4)*(nyIn+4).GT.exf_interp_bufferSize ) THEN |
./pkg/exf/exf_interp_uv.F |
13 |
EXF_INTERP_UV |
I nxIn, nyIn, |
./pkg/exf/exf_interp_uv.F |
145 |
EXF_INTERP_UV |
I irecord, nxIn, nyIn, myThid ) |
./pkg/exf/exf_interp_uv.F |
149 |
EXF_INTERP_UV |
I irecord, nxIn, nyIn, myThid ) |
./pkg/exf/exf_interp_uv.F |
164 |
EXF_INTERP_UV |
DO j=1,nyIn+1 |
./pkg/exf/exf_interp_uv.F |
165 |
EXF_INTERP_UV |
i = MIN(j,nyIn-1) |
./pkg/exf/exf_interp_uv.F |
196 |
EXF_INTERP_UV |
j = nyIn+1 |
./pkg/exf/exf_interp_uv.F |
205 |
EXF_INTERP_UV |
j = nyIn+2 |
./pkg/exf/exf_interp_uv.F |
216 |
EXF_INTERP_UV |
DO j=1,nyIn |
./pkg/exf/exf_interp_uv.F |
228 |
EXF_INTERP_UV |
DO j=1,nyIn |
./pkg/exf/exf_interp_uv.F |
242 |
EXF_INTERP_UV |
IF ( l.GE.1 ) j = nyIn+l |
./pkg/exf/exf_interp_uv.F |
243 |
EXF_INTERP_UV |
k = MAX(1,MIN(j,nyIn)) |
./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 |
246 |
EXF_INTERP_UV |
& k = MAX(2,MIN(j,nyIn-1)) |
./pkg/exf/exf_interp_uv.F |
275 |
EXF_INTERP_UV |
IF ( l.GE.2 ) j = nyIn+l-2 |
./pkg/exf/exf_interp_uv.F |
317 |
EXF_INTERP_UV |
k = l*(nyIn+3) -1 |
./pkg/exf/exf_interp_uv.F |
319 |
EXF_INTERP_UV |
j = l*(nyIn+1) |
./pkg/exf/exf_interp_uv.F |
320 |
EXF_INTERP_UV |
i = l*(nyIn-1) +1 |
./pkg/exf/exf_interp_uv.F |
352 |
EXF_INTERP_UV |
& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2) |
./pkg/exf/exf_interp_uv.F |
384 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
./pkg/exf/exf_interp_uv.F |
398 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
./pkg/exf/exf_interp_uv.F |
399 |
EXF_INTERP_UV |
& ' , y_in(0,nyIn+1)=', y_in(0) ,y_in(nyIn+1) |
./pkg/exf/exf_interp_uv.F |
418 |
EXF_INTERP_UV |
w_ind(i,j) = nyIn+1 |
./pkg/exf/exf_interp_uv.F |
423 |
EXF_INTERP_UV |
tmpVar = nyIn + 1. _d -3 |
./pkg/exf/exf_interp_uv.F |
478 |
EXF_INTERP_UV |
I nxIn, nyIn, x_in, y_in, |
./pkg/exf/exf_interp_uv.F |
486 |
EXF_INTERP_UV |
I nxIn, nyIn, x_in, y_in, |
./pkg/exf/exf_interp_uv.F |
65 |
EXF_INTERP_UV |
INTEGER filePrec, irecord, nxIn, nyIn |
./pkg/exf/exf_interp_uv.F |
69 |
EXF_INTERP_UV |
_RL arrUin ( -1:nxIn+2, -1:nyIn+2 ) |
./pkg/exf/exf_interp_uv.F |
70 |
EXF_INTERP_UV |
_RL arrVin ( -1:nxIn+2, -1:nyIn+2 ) |
./pkg/exf/exf_interp_uv.F |
96 |
EXF_INTERP_UV |
_RL arrUin( -1:nxIn+2, -1:nyIn+2 ) |
./pkg/exf/exf_interp_uv.F |
97 |
EXF_INTERP_UV |
_RL arrVin( -1:nxIn+2, -1:nyIn+2 ) |
./pkg/exf/exf_interp_uv.F |
99 |
EXF_INTERP_UV |
_RL x_in (-1:nxIn+2), y_in (-1:nyIn+2) |
./pkg/exf/exf_interpolate.F |
104 |
EXF_INTERPOLATE |
INTEGER nxIn, nyIn |
./pkg/exf/exf_interpolate.F |
105 |
EXF_INTERPOLATE |
_RL x_in(-1:nxIn+2), y_in(-1:nyIn+2) |
./pkg/exf/exf_interpolate.F |
106 |
EXF_INTERPOLATE |
_RL arrayin( -1:nxIn+2, -1:nyIn+2 ) |
./pkg/exf/exf_interpolate.F |
64 |
EXF_INTERPOLATE |
I nxIn, nyIn, x_in, y_in, |