| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_drifter.F |
212 |
COST_DRIFTER |
masktmp(i,j,bi,bj) = |
|
./pkg/ecco/cost_drifter.F |
219 |
COST_DRIFTER |
if ( masktmp(i,j,bi,bj) .eq. 0.0 ) then |
|
./pkg/ecco/cost_drifter.F |
235 |
COST_DRIFTER |
& / ( masktmp(i,j,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
242 |
COST_DRIFTER |
masktmp(i,j,bi,bj) = |
|
./pkg/ecco/cost_drifter.F |
249 |
COST_DRIFTER |
if ( masktmp(i,j,bi,bj) .eq.0.0 ) then |
|
./pkg/ecco/cost_drifter.F |
265 |
COST_DRIFTER |
& / ( masktmp(i,j,bi,bj) ) |
|
./pkg/ecco/cost_drifter.F |
84 |
COST_DRIFTER |
_RL masktmp(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |