File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_weights.F |
1001 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
./pkg/ecco/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
./pkg/ecco/ecco_cost_weights.F |
305 |
ECCO_COST_WEIGHTS |
wobcse(k,1) = wti(k) |
./pkg/ecco/ecco_cost_weights.F |
306 |
ECCO_COST_WEIGHTS |
wobcse(k,2) = wsi(k) |
./pkg/ecco/ecco_cost_weights.F |
307 |
ECCO_COST_WEIGHTS |
wobcse(k,3) = wti(k)*0.02 |
./pkg/ecco/ecco_cost_weights.F |
308 |
ECCO_COST_WEIGHTS |
wobcse(k,4) = wti(k)*0.02 |
./pkg/ecco/ecco_cost_weights.F |
997 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
./pkg/ecco/ecco_cost_weights.F |
998 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
./pkg/ecco/ecco_cost_weights.F |
999 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
./pkg/ecco/ecco_cost.h |
785 |
NO PROCEDURE |
& wobcse, wobcseLev |
./pkg/ecco/ecco_cost.h |
786 |
NO PROCEDURE |
_RL wobcse ( nr,nobcs) |
./pkg/ecco/cost_obcse.F |
130 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
./pkg/ecco/cost_obcse.F |
167 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
./pkg/ecco/cost_obcse.F |
203 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
./pkg/ecco/cost_obcse.F |
240 |
COST_OBCSE |
& wobcse(k,iobcs)*cosphi(i,j,bi,bj)* |
./verification/global1x1_tot/code/ecco_cost_weights.F |
1059 |
ECCO_COST_WEIGHTS |
if (wobcse(k,iobcs) .ne. 0.) then |
./verification/global1x1_tot/code/ecco_cost_weights.F |
1060 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = |
./verification/global1x1_tot/code/ecco_cost_weights.F |
1061 |
ECCO_COST_WEIGHTS |
& ratio/wobcse(k,iobcs)/wobcse(k,iobcs) |
./verification/global1x1_tot/code/ecco_cost_weights.F |
1063 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0.0 _d 0 |
./verification/global1x1_tot/code/ecco_cost_weights.F |
181 |
ECCO_COST_WEIGHTS |
wobcse(k,iobcs) = 0. _d 0 |
./verification/global1x1_tot/code/ecco_cost_weights.F |
309 |
ECCO_COST_WEIGHTS |
wobcse(k,1) = wti(k) |
./verification/global1x1_tot/code/ecco_cost_weights.F |
310 |
ECCO_COST_WEIGHTS |
wobcse(k,2) = wsi(k) |
./verification/global1x1_tot/code/ecco_cost_weights.F |
311 |
ECCO_COST_WEIGHTS |
wobcse(k,3) = wti(k)*0.02 |
./verification/global1x1_tot/code/ecco_cost_weights.F |
312 |
ECCO_COST_WEIGHTS |
wobcse(k,4) = wti(k)*0.02 |
./pkg/ctrl/ctrl_weights.h |
32 |
NO PROCEDURE |
& wobcse, wobcseLev |
./pkg/ctrl/ctrl_weights.h |
33 |
NO PROCEDURE |
_RL wobcse ( nr,nobcs) |
./pkg/ctrl/ctrl_pack.F |
333 |
CTRL_PACK |
& weighttype, wobcse, lxxadxx, mythid) |
./pkg/ctrl/ctrl_unpack.F |
425 |
CTRL_UNPACK |
& weighttype, wobcse, nWetobcseGlo, mythid) |