| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
446 |
ADMTLM_DSVD2MODEL |
& weighttype, wobcsw, nWetobcswGlo, mythid) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
359 |
ADMTLM_MODEL2DSVD |
& weighttype, wobcsw, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_pack.F |
411 |
CTRL_PACK |
& weighttype, wobcsw, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_unpack.F |
507 |
CTRL_UNPACK |
& weighttype, wobcsw, nWetobcswGlo, mythid) |
|
./pkg/ctrl/ctrl_weights.h |
37 |
NO PROCEDURE |
& wobcsw, wobcswLev |
|
./pkg/ctrl/ctrl_weights.h |
38 |
NO PROCEDURE |
_RL wobcsw ( nr,nobcs) |
|
./pkg/ecco/cost_obcsw.F |
173 |
COST_OBCSW |
fctile = fctile + wobcsw(k,iobcs) |
|
./pkg/ecco/cost_obcsw.F |
177 |
COST_OBCSW |
if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/ecco_cost.h |
1320 |
NO PROCEDURE |
& wobcsw, wobcswLev |
|
./pkg/ecco/ecco_cost.h |
1321 |
NO PROCEDURE |
_RL wobcsw ( nr,nobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1949 |
ECCO_COST_WEIGHTS |
if (wobcsw(k,iobcs) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1950 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = |
|
./pkg/ecco/ecco_cost_weights.F |
1951 |
ECCO_COST_WEIGHTS |
& ratio/wobcsw(k,iobcs)/wobcsw(k,iobcs) |
|
./pkg/ecco/ecco_cost_weights.F |
1953 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
220 |
ECCO_COST_WEIGHTS |
wobcsw(k,iobcs) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
341 |
ECCO_COST_WEIGHTS |
wobcsw(k,1) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
342 |
ECCO_COST_WEIGHTS |
wobcsw(k,2) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
343 |
ECCO_COST_WEIGHTS |
wobcsw(k,3) = wvi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
344 |
ECCO_COST_WEIGHTS |
wobcsw(k,4) = wvi(k) |