| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_obcsn.F |
130 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
167 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
203 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_obcsn.F |
240 |
COST_OBCSN |
& wobcsn(k,iobcs)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
287 |
ECCO_COST_WEIGHTS |
wobcsn(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
288 |
ECCO_COST_WEIGHTS |
wobcsn(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
289 |
ECCO_COST_WEIGHTS |
wobcsn(k,3) = wti(k)*0.02 |
|
./pkg/ecco/ecco_cost_weights.F |
290 |
ECCO_COST_WEIGHTS |
wobcsn(k,4) = wti(k)*0.02 |
|
./pkg/ecco/ecco_cost_weights.F |
973 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
974 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
975 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
977 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost.h |
764 |
NO PROCEDURE |
& wobcsn, wobcsnLev |
|
./pkg/ecco/ecco_cost.h |
765 |
NO PROCEDURE |
_RL wobcsn ( nr,nobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1035 |
ECCO_COST_WEIGHTS |
if (wobcsn(k,iobcs) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1036 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1037 |
ECCO_COST_WEIGHTS |
& ratio/wobcsn(k,iobcs)/wobcsn(k,iobcs) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1039 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
169 |
ECCO_COST_WEIGHTS |
wobcsn(k,iobcs) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
291 |
ECCO_COST_WEIGHTS |
wobcsn(k,1) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
292 |
ECCO_COST_WEIGHTS |
wobcsn(k,2) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
293 |
ECCO_COST_WEIGHTS |
wobcsn(k,3) = wti(k)*0.02 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
294 |
ECCO_COST_WEIGHTS |
wobcsn(k,4) = wti(k)*0.02 |
|
./pkg/ctrl/ctrl_weights.h |
11 |
NO PROCEDURE |
& wobcsn, wobcsnLev |
|
./pkg/ctrl/ctrl_weights.h |
12 |
NO PROCEDURE |
_RL wobcsn ( nr,nobcs) |
|
./pkg/ctrl/ctrl_pack.F |
306 |
CTRL_PACK |
& weighttype, wobcsn, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_unpack.F |
398 |
CTRL_UNPACK |
& weighttype, wobcsn, nWetobcsnGlo, mythid) |