File |
Line number |
Procedure |
Code |
./pkg/exf/exf_interp.F |
114 |
EXF_INTERP |
IF ( nxIn.GT.exf_max_nLon ) 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 |
137 |
EXF_INTERP |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp.F |
140 |
EXF_INTERP |
xIsPeriodic = nxIn.EQ.NINT( threeSixtyRS / lon_inc ) |
./pkg/exf/exf_interp.F |
141 |
EXF_INTERP |
nxd2 = NINT( nxIn*0.5 ) |
./pkg/exf/exf_interp.F |
142 |
EXF_INTERP |
poleSymmetry = xIsPeriodic .AND. ( nxIn.EQ.2*nxd2 ) |
./pkg/exf/exf_interp.F |
209 |
EXF_INTERP |
arrayin( 0,j) = arrayin(nxIn ,j) |
./pkg/exf/exf_interp.F |
20 |
EXF_INTERP |
I nxIn, nyIn, method, myIter, myThid ) |
./pkg/exf/exf_interp.F |
210 |
EXF_INTERP |
arrayin(-1,j) = arrayin(nxIn-1,j) |
./pkg/exf/exf_interp.F |
211 |
EXF_INTERP |
arrayin(nxIn+1,j) = arrayin(1,j) |
./pkg/exf/exf_interp.F |
212 |
EXF_INTERP |
arrayin(nxIn+2,j) = arrayin(2,j) |
./pkg/exf/exf_interp.F |
219 |
EXF_INTERP |
arrayin(nxIn+1,j) = arrayin(nxIn,j) |
./pkg/exf/exf_interp.F |
220 |
EXF_INTERP |
arrayin(nxIn+2,j) = arrayin(nxIn,j) |
./pkg/exf/exf_interp.F |
245 |
EXF_INTERP |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp.F |
267 |
EXF_INTERP |
DO i=1,nxIn |
./pkg/exf/exf_interp.F |
270 |
EXF_INTERP |
poleValue = poleValue / nxIn |
./pkg/exf/exf_interp.F |
271 |
EXF_INTERP |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp.F |
279 |
EXF_INTERP |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp.F |
301 |
EXF_INTERP |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp.F |
356 |
EXF_INTERP |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
./pkg/exf/exf_interp.F |
369 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
./pkg/exf/exf_interp.F |
370 |
EXF_INTERP |
& ' , x_in(0,nxIn+1)=', x_in(0) ,x_in(nxIn+1) |
./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 |
128 |
EXF_INTERP_UV |
IF ( nxIn.GT.exf_max_nLon ) 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 |
155 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp_uv.F |
158 |
EXF_INTERP_UV |
xIsPeriodic = nxIn.EQ.NINT( threeSixtyRS / lon_inc ) |
./pkg/exf/exf_interp_uv.F |
159 |
EXF_INTERP_UV |
nxd2 = NINT( nxIn*0.5 ) |
./pkg/exf/exf_interp_uv.F |
160 |
EXF_INTERP_UV |
poleSymmetry = xIsPeriodic .AND. ( nxIn.EQ.2*nxd2 ) |
./pkg/exf/exf_interp_uv.F |
217 |
EXF_INTERP_UV |
arrUin( 0,j) = arrUin(nxIn ,j) |
./pkg/exf/exf_interp_uv.F |
218 |
EXF_INTERP_UV |
arrUin(-1,j) = arrUin(nxIn-1,j) |
./pkg/exf/exf_interp_uv.F |
219 |
EXF_INTERP_UV |
arrUin(nxIn+1,j) = arrUin(1,j) |
./pkg/exf/exf_interp_uv.F |
220 |
EXF_INTERP_UV |
arrUin(nxIn+2,j) = arrUin(2,j) |
./pkg/exf/exf_interp_uv.F |
221 |
EXF_INTERP_UV |
arrVin( 0,j) = arrVin(nxIn ,j) |
./pkg/exf/exf_interp_uv.F |
222 |
EXF_INTERP_UV |
arrVin(-1,j) = arrVin(nxIn-1,j) |
./pkg/exf/exf_interp_uv.F |
223 |
EXF_INTERP_UV |
arrVin(nxIn+1,j) = arrVin(1,j) |
./pkg/exf/exf_interp_uv.F |
224 |
EXF_INTERP_UV |
arrVin(nxIn+2,j) = arrVin(2,j) |
./pkg/exf/exf_interp_uv.F |
231 |
EXF_INTERP_UV |
arrUin(nxIn+1,j) = arrUin(nxIn,j) |
./pkg/exf/exf_interp_uv.F |
232 |
EXF_INTERP_UV |
arrUin(nxIn+2,j) = arrUin(nxIn,j) |
./pkg/exf/exf_interp_uv.F |
235 |
EXF_INTERP_UV |
arrVin(nxIn+1,j) = arrVin(nxIn,j) |
./pkg/exf/exf_interp_uv.F |
236 |
EXF_INTERP_UV |
arrVin(nxIn+2,j) = arrVin(nxIn,j) |
./pkg/exf/exf_interp_uv.F |
262 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp_uv.F |
283 |
EXF_INTERP_UV |
DO i=-1,nxIn+1 |
./pkg/exf/exf_interp_uv.F |
296 |
EXF_INTERP_UV |
DO i=1,nxIn |
./pkg/exf/exf_interp_uv.F |
302 |
EXF_INTERP_UV |
poleU = poleU / nxIn |
./pkg/exf/exf_interp_uv.F |
303 |
EXF_INTERP_UV |
poleV = poleV / nxIn |
./pkg/exf/exf_interp_uv.F |
305 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp_uv.F |
323 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
./pkg/exf/exf_interp_uv.F |
382 |
EXF_INTERP_UV |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
./pkg/exf/exf_interp_uv.F |
395 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
./pkg/exf/exf_interp_uv.F |
396 |
EXF_INTERP_UV |
& ' , x_in(0,nxIn+1)=', x_in(0) ,x_in(nxIn+1) |
./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 |
98 |
EXF_INTERP_UV |
_RL csLon(-1:nxIn+2), snLon(-1:nxIn+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, |