| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
103 |
EXF_INTERP |
I irecord, nxIn, nyIn, myThid ) |
|
./pkg/exf/exf_interp.F |
121 |
EXF_INTERP |
DO j=1,nyIn+1 |
|
./pkg/exf/exf_interp.F |
122 |
EXF_INTERP |
i = MIN(j,nyIn-1) |
|
./pkg/exf/exf_interp.F |
159 |
EXF_INTERP |
j = nyIn+1 |
|
./pkg/exf/exf_interp.F |
168 |
EXF_INTERP |
j = nyIn+2 |
|
./pkg/exf/exf_interp.F |
16 |
EXF_INTERP |
I nxIn, nyIn, method, myIter, myThid ) |
|
./pkg/exf/exf_interp.F |
180 |
EXF_INTERP |
DO j=1,nyIn |
|
./pkg/exf/exf_interp.F |
188 |
EXF_INTERP |
DO j=1,nyIn |
|
./pkg/exf/exf_interp.F |
199 |
EXF_INTERP |
IF ( l.GE.1 ) j = nyIn+l |
|
./pkg/exf/exf_interp.F |
200 |
EXF_INTERP |
k = MAX(1,MIN(j,nyIn)) |
|
./pkg/exf/exf_interp.F |
233 |
EXF_INTERP |
IF ( l.GE.2 ) j = nyIn+l-2 |
|
./pkg/exf/exf_interp.F |
278 |
EXF_INTERP |
& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2) |
|
./pkg/exf/exf_interp.F |
306 |
EXF_INTERP |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp.F |
320 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
|
./pkg/exf/exf_interp.F |
321 |
EXF_INTERP |
& ' , y_in(0,nyIn+1)=', y_in(0) ,y_in(nyIn+1) |
|
./pkg/exf/exf_interp.F |
340 |
EXF_INTERP |
w_ind(i,j) = nyIn+1 |
|
./pkg/exf/exf_interp.F |
345 |
EXF_INTERP |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp.F |
400 |
EXF_INTERP |
I nxIn, nyIn, x_in, y_in, |
|
./pkg/exf/exf_interp.F |
52 |
EXF_INTERP |
INTEGER filePrec, irecord, nxIn, nyIn |
|
./pkg/exf/exf_interp.F |
76 |
EXF_INTERP |
_RL arrayin( -1:nxIn+2, -1:nyIn+2 ) |
|
./pkg/exf/exf_interp.F |
77 |
EXF_INTERP |
_RL x_in(-1:nxIn+2), y_in(-1:nyIn+2) |
|
./pkg/exf/exf_interp_uv.F |
114 |
EXF_INTERP_UV |
I irecord, nxIn, nyIn, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
118 |
EXF_INTERP_UV |
I irecord, nxIn, nyIn, myThid ) |
|
./pkg/exf/exf_interp_uv.F |
133 |
EXF_INTERP_UV |
DO j=1,nyIn+1 |
|
./pkg/exf/exf_interp_uv.F |
134 |
EXF_INTERP_UV |
i = MIN(j,nyIn-1) |
|
./pkg/exf/exf_interp_uv.F |
13 |
EXF_INTERP_UV |
I nxIn, nyIn, |
|
./pkg/exf/exf_interp_uv.F |
165 |
EXF_INTERP_UV |
j = nyIn+1 |
|
./pkg/exf/exf_interp_uv.F |
174 |
EXF_INTERP_UV |
j = nyIn+2 |
|
./pkg/exf/exf_interp_uv.F |
185 |
EXF_INTERP_UV |
DO j=1,nyIn |
|
./pkg/exf/exf_interp_uv.F |
197 |
EXF_INTERP_UV |
DO j=1,nyIn |
|
./pkg/exf/exf_interp_uv.F |
211 |
EXF_INTERP_UV |
IF ( l.GE.1 ) j = nyIn+l |
|
./pkg/exf/exf_interp_uv.F |
212 |
EXF_INTERP_UV |
k = MAX(1,MIN(j,nyIn)) |
|
./pkg/exf/exf_interp_uv.F |
242 |
EXF_INTERP_UV |
IF ( l.GE.2 ) j = nyIn+l-2 |
|
./pkg/exf/exf_interp_uv.F |
296 |
EXF_INTERP_UV |
& ' proc=', (prtPole(j),j=2,4), ', yIn=',(y_in(j),j=nyIn,nyIn+2) |
|
./pkg/exf/exf_interp_uv.F |
323 |
EXF_INTERP_UV |
& yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN |
|
./pkg/exf/exf_interp_uv.F |
337 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nyIn=', nyIn, |
|
./pkg/exf/exf_interp_uv.F |
338 |
EXF_INTERP_UV |
& ' , y_in(0,nyIn+1)=', y_in(0) ,y_in(nyIn+1) |
|
./pkg/exf/exf_interp_uv.F |
357 |
EXF_INTERP_UV |
w_ind(i,j) = nyIn+1 |
|
./pkg/exf/exf_interp_uv.F |
362 |
EXF_INTERP_UV |
tmpVar = nyIn + 1. _d -3 |
|
./pkg/exf/exf_interp_uv.F |
417 |
EXF_INTERP_UV |
I nxIn, nyIn, x_in, y_in, |
|
./pkg/exf/exf_interp_uv.F |
425 |
EXF_INTERP_UV |
I nxIn, nyIn, x_in, y_in, |
|
./pkg/exf/exf_interp_uv.F |
57 |
EXF_INTERP_UV |
INTEGER filePrec, irecord, nxIn, nyIn |
|
./pkg/exf/exf_interp_uv.F |
83 |
EXF_INTERP_UV |
_RL arrUin( -1:nxIn+2, -1:nyIn+2 ) |
|
./pkg/exf/exf_interp_uv.F |
84 |
EXF_INTERP_UV |
_RL arrVin( -1:nxIn+2, -1:nyIn+2 ) |
|
./pkg/exf/exf_interp_uv.F |
85 |
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, |