| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_drifter.F |
189 |
COST_DRIFTER |
mask13c(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_drifter.F |
191 |
COST_DRIFTER |
& mask13c(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_drifter.F |
202 |
COST_DRIFTER |
mask13c(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_drifter.F |
213 |
COST_DRIFTER |
& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
214 |
COST_DRIFTER |
& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
215 |
COST_DRIFTER |
& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
216 |
COST_DRIFTER |
& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
217 |
COST_DRIFTER |
& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
218 |
COST_DRIFTER |
& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj)) |
|
./pkg/ecco/cost_drifter.F |
223 |
COST_DRIFTER |
& udmod(i,j,bi,bj)*mask13c(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
224 |
COST_DRIFTER |
& + udmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
225 |
COST_DRIFTER |
& + udmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
226 |
COST_DRIFTER |
& + udmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
227 |
COST_DRIFTER |
& + udmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
228 |
COST_DRIFTER |
& + udmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
229 |
COST_DRIFTER |
& + udmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
230 |
COST_DRIFTER |
& + udmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
231 |
COST_DRIFTER |
& + udmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
232 |
COST_DRIFTER |
& + udmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
233 |
COST_DRIFTER |
& + udmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
234 |
COST_DRIFTER |
& + udmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
243 |
COST_DRIFTER |
& (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
244 |
COST_DRIFTER |
& +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
245 |
COST_DRIFTER |
& +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
246 |
COST_DRIFTER |
& +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
247 |
COST_DRIFTER |
& +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
248 |
COST_DRIFTER |
& +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj)) |
|
./pkg/ecco/cost_drifter.F |
253 |
COST_DRIFTER |
& vdmod(i,j,bi,bj)*mask13c(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
254 |
COST_DRIFTER |
& + vdmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
255 |
COST_DRIFTER |
& + vdmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
256 |
COST_DRIFTER |
& + vdmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
257 |
COST_DRIFTER |
& + vdmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
258 |
COST_DRIFTER |
& + vdmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
259 |
COST_DRIFTER |
& + vdmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
260 |
COST_DRIFTER |
& + vdmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
261 |
COST_DRIFTER |
& + vdmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
262 |
COST_DRIFTER |
& + vdmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
263 |
COST_DRIFTER |
& + vdmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
264 |
COST_DRIFTER |
& + vdmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
82 |
COST_DRIFTER |
_RL mask13c(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |