| File |
Line number |
Procedure |
Code |
|
./verification/OpenAD/code_oad_all/ctrl_pack.F |
238 |
CTRL_PACK |
& weighttype, wsalt, lxxadxx, mythid) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1132 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1133 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)/2. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1135 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
144 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
281 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
341 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
342 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
406 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
425 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
426 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
495 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1125 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1126 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1128 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
279 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
339 |
ECCO_COST_WEIGHTS |
wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
340 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
404 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
423 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
424 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
493 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
71 |
COST_WEIGHTS |
wsalt(k,bi,bj) = 0. _d 0 |
|
./pkg/admtlm/admtlm_dsvd2model.F |
346 |
ADMTLM_DSVD2MODEL |
& weighttype, wsalt, nwetcglobal, mythid) |
|
./pkg/admtlm/admtlm_init_fixed.F |
44 |
ADMTLM_INIT_FIXED |
wsalt (k,bi,bj) = 1. / (0.1 _d 0)**2 |
|
./pkg/admtlm/admtlm_model2dsvd.F |
258 |
ADMTLM_MODEL2DSVD |
& weighttype, wsalt, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_map_ini.F |
149 |
CTRL_MAP_INI |
$ 2.0/sqrt(wsalt(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
151 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_pack.F |
247 |
CTRL_PACK |
& weighttype, wsalt, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_unpack.F |
338 |
CTRL_UNPACK |
& weighttype, wsalt, nwetcglobal, mythid) |
|
./pkg/ctrl/ctrl_weights.h |
12 |
NO PROCEDURE |
_RL wsalt ( nr,nsx,nsy ) |
|
./pkg/ctrl/ctrl_weights.h |
6 |
NO PROCEDURE |
& wtheta, wsalt, |
|
./pkg/ecco/cost_salt_ini_fin.F |
111 |
COST_SALT_INI_FIN |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1019 |
NO PROCEDURE |
& wsalt,wsalt2,wsaltLev, |
|
./pkg/ecco/ecco_cost.h |
1063 |
NO PROCEDURE |
_RL wsalt ( nr,nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
164 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
295 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
303 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
304 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
306 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
368 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
437 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0. .or. |
|
./pkg/ecco/ecco_cost_weights.F |
456 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
& wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |