File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_weights.F |
1750 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .ne. 0.) then |
./pkg/ecco/ecco_cost_weights.F |
1751 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = |
./pkg/ecco/ecco_cost_weights.F |
1752 |
ECCO_COST_WEIGHTS |
& 1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj) |
./pkg/ecco/ecco_cost_weights.F |
1754 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0.0 _d 0 |
./pkg/ecco/ecco_cost_weights.F |
885 |
ECCO_COST_WEIGHTS |
& wscaty, irec, mythid ) |
./pkg/ecco/ecco_cost_weights.F |
900 |
ECCO_COST_WEIGHTS |
if (wscaty(i,j,bi,bj) .lt. -9900.) then |
./pkg/ecco/ecco_cost_weights.F |
901 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
903 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj) |
./pkg/ecco/ecco_cost_weights.F |
904 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0) |
./pkg/ecco/ecco_cost_weights.F |
905 |
ECCO_COST_WEIGHTS |
wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*masks(i,j,k,bi,bj) |
./pkg/ecco/ecco_cost.h |
1015 |
NO PROCEDURE |
_RL wscaty (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
./pkg/ecco/ecco_cost.h |
983 |
NO PROCEDURE |
& wscatx,wscaty, |