| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_drifter.F |
273 |
COST_DRIFTER |
uddat(i,j,bi,bj) = 0.01*udriftdat(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
281 |
COST_DRIFTER |
if ( uddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
282 |
COST_DRIFTER |
if ( abs(uddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
304 |
COST_DRIFTER |
& (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))* |
|
./pkg/ecco/cost_drifter.F |
305 |
COST_DRIFTER |
& (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj)) ) |
|
./pkg/ecco/cost_drifter.F |
76 |
COST_DRIFTER |
_RL uddat (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |