| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_drifter.F |
283 |
COST_DRIFTER |
mask6c(i,j,bi,bj) = 1.0 |
|
./pkg/ecco/cost_drifter.F |
284 |
COST_DRIFTER |
if ( uddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
285 |
COST_DRIFTER |
if ( abs(uddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
286 |
COST_DRIFTER |
if ( vddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
287 |
COST_DRIFTER |
if ( abs(vddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0 |
|
./pkg/ecco/cost_drifter.F |
306 |
COST_DRIFTER |
& mask6c(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
310 |
COST_DRIFTER |
& mask6c(i,j,bi,bj)* |
|
./pkg/ecco/cost_drifter.F |
313 |
COST_DRIFTER |
if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then |
|
./pkg/ecco/cost_drifter.F |
86 |
COST_DRIFTER |
_RL mask6c (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |