| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
103 |
EXF_INTERP |
I irecord, nxIn, nyIn, myThid ) |
|
./pkg/exf/exf_interp.F |
109 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
112 |
EXF_INTERP |
xIsPeriodic = nxIn.EQ.NINT( threeSixtyRS / lon_inc ) |
|
./pkg/exf/exf_interp.F |
113 |
EXF_INTERP |
nxd2 = NINT( nxIn*0.5 ) |
|
./pkg/exf/exf_interp.F |
114 |
EXF_INTERP |
poleSymmetry = xIsPeriodic .AND. ( nxIn.EQ.2*nxd2 ) |
|
./pkg/exf/exf_interp.F |
16 |
EXF_INTERP |
I nxIn, nyIn, method, myIter, myThid ) |
|
./pkg/exf/exf_interp.F |
181 |
EXF_INTERP |
arrayin( 0,j) = arrayin(nxIn ,j) |
|
./pkg/exf/exf_interp.F |
182 |
EXF_INTERP |
arrayin(-1,j) = arrayin(nxIn-1,j) |
|
./pkg/exf/exf_interp.F |
183 |
EXF_INTERP |
arrayin(nxIn+1,j) = arrayin(1,j) |
|
./pkg/exf/exf_interp.F |
184 |
EXF_INTERP |
arrayin(nxIn+2,j) = arrayin(2,j) |
|
./pkg/exf/exf_interp.F |
191 |
EXF_INTERP |
arrayin(nxIn+1,j) = arrayin(nxIn,j) |
|
./pkg/exf/exf_interp.F |
192 |
EXF_INTERP |
arrayin(nxIn+2,j) = arrayin(nxIn,j) |
|
./pkg/exf/exf_interp.F |
215 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
237 |
EXF_INTERP |
DO i=1,nxIn |
|
./pkg/exf/exf_interp.F |
240 |
EXF_INTERP |
poleValue = poleValue / nxIn |
|
./pkg/exf/exf_interp.F |
241 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
249 |
EXF_INTERP |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp.F |
304 |
EXF_INTERP |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp.F |
317 |
EXF_INTERP |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
|
./pkg/exf/exf_interp.F |
318 |
EXF_INTERP |
& ' , x_in(0,nxIn+1)=', x_in(0) ,x_in(nxIn+1) |
|
./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 |
124 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp_uv.F |
127 |
EXF_INTERP_UV |
xIsPeriodic = nxIn.EQ.NINT( threeSixtyRS / lon_inc ) |
|
./pkg/exf/exf_interp_uv.F |
128 |
EXF_INTERP_UV |
nxd2 = NINT( nxIn*0.5 ) |
|
./pkg/exf/exf_interp_uv.F |
129 |
EXF_INTERP_UV |
poleSymmetry = xIsPeriodic .AND. ( nxIn.EQ.2*nxd2 ) |
|
./pkg/exf/exf_interp_uv.F |
13 |
EXF_INTERP_UV |
I nxIn, nyIn, |
|
./pkg/exf/exf_interp_uv.F |
186 |
EXF_INTERP_UV |
arrUin( 0,j) = arrUin(nxIn ,j) |
|
./pkg/exf/exf_interp_uv.F |
187 |
EXF_INTERP_UV |
arrUin(-1,j) = arrUin(nxIn-1,j) |
|
./pkg/exf/exf_interp_uv.F |
188 |
EXF_INTERP_UV |
arrUin(nxIn+1,j) = arrUin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
189 |
EXF_INTERP_UV |
arrUin(nxIn+2,j) = arrUin(2,j) |
|
./pkg/exf/exf_interp_uv.F |
190 |
EXF_INTERP_UV |
arrVin( 0,j) = arrVin(nxIn ,j) |
|
./pkg/exf/exf_interp_uv.F |
191 |
EXF_INTERP_UV |
arrVin(-1,j) = arrVin(nxIn-1,j) |
|
./pkg/exf/exf_interp_uv.F |
192 |
EXF_INTERP_UV |
arrVin(nxIn+1,j) = arrVin(1,j) |
|
./pkg/exf/exf_interp_uv.F |
193 |
EXF_INTERP_UV |
arrVin(nxIn+2,j) = arrVin(2,j) |
|
./pkg/exf/exf_interp_uv.F |
200 |
EXF_INTERP_UV |
arrUin(nxIn+1,j) = arrUin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
201 |
EXF_INTERP_UV |
arrUin(nxIn+2,j) = arrUin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
204 |
EXF_INTERP_UV |
arrVin(nxIn+1,j) = arrVin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
205 |
EXF_INTERP_UV |
arrVin(nxIn+2,j) = arrVin(nxIn,j) |
|
./pkg/exf/exf_interp_uv.F |
229 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp_uv.F |
249 |
EXF_INTERP_UV |
DO i=-1,nxIn+1 |
|
./pkg/exf/exf_interp_uv.F |
262 |
EXF_INTERP_UV |
DO i=1,nxIn |
|
./pkg/exf/exf_interp_uv.F |
266 |
EXF_INTERP_UV |
poleU = poleU / nxIn |
|
./pkg/exf/exf_interp_uv.F |
267 |
EXF_INTERP_UV |
poleV = poleV / nxIn |
|
./pkg/exf/exf_interp_uv.F |
269 |
EXF_INTERP_UV |
DO i=-1,nxIn+2 |
|
./pkg/exf/exf_interp_uv.F |
321 |
EXF_INTERP_UV |
& xG(i,j,bi,bj) .GE. x_in(nxIn+1) .OR. |
|
./pkg/exf/exf_interp_uv.F |
334 |
EXF_INTERP_UV |
WRITE(msgBuf,'(A,I9,A,1P2E14.6)') 'nxIn=', nxIn, |
|
./pkg/exf/exf_interp_uv.F |
335 |
EXF_INTERP_UV |
& ' , x_in(0,nxIn+1)=', x_in(0) ,x_in(nxIn+1) |
|
./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_interp_uv.F |
94 |
EXF_INTERP_UV |
_RL csLon(-1:nxIn+2), snLon(-1:nxIn+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, |