| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
176 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
332 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
333 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
335 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
450 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
525 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
543 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
547 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
591 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F |
67 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F |
67 |
COST_TEMP |
& wtheta(k,bi,bj)* |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
109 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k) |
|
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F |
73 |
COST_WEIGHTS |
wtheta(k,bi,bj) = 0. _d 0 |
|
./pkg/admtlm/admtlm_dsvd2model.F |
338 |
ADMTLM_DSVD2MODEL |
& weighttype, wtheta, nwetcglobal, mythid) |
|
./pkg/admtlm/admtlm_init_fixed.F |
43 |
ADMTLM_INIT_FIXED |
wtheta(k,bi,bj) = 1. / (1. _d 0)**2 |
|
./pkg/admtlm/admtlm_model2dsvd.F |
251 |
ADMTLM_MODEL2DSVD |
& weighttype, wtheta, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_map_ini.F |
123 |
CTRL_MAP_INI |
$ 2.0/sqrt(wtheta(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
125 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_pack.F |
321 |
CTRL_PACK |
& weighttype, wtheta, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_unpack.F |
409 |
CTRL_UNPACK |
& weighttype, wtheta, nwetcglobal, mythid) |
|
./pkg/ctrl/ctrl_weights.h |
11 |
NO PROCEDURE |
_RL wtheta ( nr,nsx,nsy ) |
|
./pkg/ctrl/ctrl_weights.h |
6 |
NO PROCEDURE |
& wtheta, wsalt, |
|
./pkg/ecco/ecco_cost.h |
1030 |
NO PROCEDURE |
_RL wtheta ( nr,nsx,nsy) |
|
./pkg/ecco/ecco_cost.h |
987 |
NO PROCEDURE |
& wtheta,wtheta2,wthetaLev, |