| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_drifter.F |
192 |
COST_DRIFTER |
mask13c(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_drifter.F |
194 |
COST_DRIFTER |
& mask13c(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_drifter.F |
205 |
COST_DRIFTER |
mask13c(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_drifter.F |
216 |
COST_DRIFTER |
& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
217 |
COST_DRIFTER |
& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
218 |
COST_DRIFTER |
& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
219 |
COST_DRIFTER |
& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
220 |
COST_DRIFTER |
& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
221 |
COST_DRIFTER |
& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj)) |
|
./pkg/ecco/cost_drifter.F |
226 |
COST_DRIFTER |
& udmod(i,j,bi,bj)*mask13c(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
227 |
COST_DRIFTER |
& + udmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
228 |
COST_DRIFTER |
& + udmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
229 |
COST_DRIFTER |
& + udmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
230 |
COST_DRIFTER |
& + udmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
231 |
COST_DRIFTER |
& + udmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
232 |
COST_DRIFTER |
& + udmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
233 |
COST_DRIFTER |
& + udmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
234 |
COST_DRIFTER |
& + udmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
235 |
COST_DRIFTER |
& + udmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
236 |
COST_DRIFTER |
& + udmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
237 |
COST_DRIFTER |
& + udmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
246 |
COST_DRIFTER |
& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
247 |
COST_DRIFTER |
& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
248 |
COST_DRIFTER |
& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
249 |
COST_DRIFTER |
& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
250 |
COST_DRIFTER |
& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
251 |
COST_DRIFTER |
& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj)) |
|
./pkg/ecco/cost_drifter.F |
256 |
COST_DRIFTER |
& vdmod(i,j,bi,bj)*mask13c(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
257 |
COST_DRIFTER |
& + vdmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
258 |
COST_DRIFTER |
& + vdmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
259 |
COST_DRIFTER |
& + vdmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
260 |
COST_DRIFTER |
& + vdmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
261 |
COST_DRIFTER |
& + vdmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
262 |
COST_DRIFTER |
& + vdmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
263 |
COST_DRIFTER |
& + vdmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
264 |
COST_DRIFTER |
& + vdmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
265 |
COST_DRIFTER |
& + vdmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
266 |
COST_DRIFTER |
& + vdmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
267 |
COST_DRIFTER |
& + vdmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
85 |
COST_DRIFTER |
_RL mask13c(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |