| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_drifter.F |
274 |
COST_DRIFTER |
vddat(i,j,bi,bj) = 0.01*vdriftdat(i,j,bi,bj) |
|
./pkg/ecco/cost_drifter.F |
283 |
COST_DRIFTER |
if ( vddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
284 |
COST_DRIFTER |
if ( abs(vddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
308 |
COST_DRIFTER |
& (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))* |
|
./pkg/ecco/cost_drifter.F |
309 |
COST_DRIFTER |
& (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj)) ) |
|
./pkg/ecco/cost_drifter.F |
78 |
COST_DRIFTER |
_RL vddat (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |