| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
293 |
ECCO_COST_WEIGHTS |
wobcss(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
294 |
ECCO_COST_WEIGHTS |
wobcss(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
295 |
ECCO_COST_WEIGHTS |
wobcss(k,3) = wti(k)*0.02 |
|
./pkg/ecco/ecco_cost_weights.F |
296 |
ECCO_COST_WEIGHTS |
wobcss(k,4) = wti(k)*0.02 |
|
./pkg/ecco/ecco_cost_weights.F |
981 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
982 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
983 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
985 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/cost_obcss.F |
130 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
167 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
203 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcss.F |
240 |
COST_OBCSS |
& wobcss(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_cost.h |
771 |
NO PROCEDURE |
& wobcss, wobcssLev |
|
./pkg/ecco/ecco_cost.h |
772 |
NO PROCEDURE |
_RL wobcss ( nr,nobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1043 |
ECCO_COST_WEIGHTS |
if (wobcss(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1044 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1045 |
ECCO_COST_WEIGHTS |
& ratio/wobcss(k,iobcs)/wobcss(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1047 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
173 |
ECCO_COST_WEIGHTS |
wobcss(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
297 |
ECCO_COST_WEIGHTS |
wobcss(k,1) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
298 |
ECCO_COST_WEIGHTS |
wobcss(k,2) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
299 |
ECCO_COST_WEIGHTS |
wobcss(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
300 |
ECCO_COST_WEIGHTS |
wobcss(k,4) = wti(k)*0.02 |
|
./pkg/ctrl/ctrl_weights.h |
18 |
NO PROCEDURE |
& wobcss, wobcssLev |
|
./pkg/ctrl/ctrl_weights.h |
19 |
NO PROCEDURE |
_RL wobcss ( nr,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
315 |
CTRL_PACK |
& weighttype, wobcss, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_unpack.F |
407 |
CTRL_UNPACK |
& weighttype, wobcss, nWetobcssGlo, mythid) |