| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
337 |
ADMTLM_DSVD2MODEL |
& weighttype, wtheta, nwetcglobal, mythid) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
249 |
ADMTLM_MODEL2DSVD |
& weighttype, wtheta, lxxadxx, mythid) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1126 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1127 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)/2. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1129 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
142 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
279 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
379 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
380 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
448 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
467 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
470 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
471 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj))*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
493 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1120 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1121 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)/2. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
1123 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
141 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
278 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
378 |
ECCO_COST_WEIGHTS |
wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
379 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
447 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
466 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
469 |
ECCO_COST_WEIGHTS |
wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
470 |
ECCO_COST_WEIGHTS |
$ *wtheta(k,bi,bj))*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
492 |
ECCO_COST_WEIGHTS |
wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wtheta (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
278 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = wti(k) |
|
./pkg/ecco/ecco_cost_weights.F |
282 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
283 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
285 |
ECCO_COST_WEIGHTS |
wtheta(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
392 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
461 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 .and. |
|
./pkg/ecco/ecco_cost_weights.F |
479 |
ECCO_COST_WEIGHTS |
if (wtheta(k,bi,bj).eq.0 ) then |
|
./pkg/ecco/ecco_cost_weights.F |
483 |
ECCO_COST_WEIGHTS |
$ wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
505 |
ECCO_COST_WEIGHTS |
& wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_theta_ini_fin.F |
110 |
COST_THETA_INI_FIN |
& + wtheta(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
818 |
NO PROCEDURE |
& wtheta,wtheta2,wthetaLev, |
|
./pkg/ecco/ecco_cost.h |
854 |
NO PROCEDURE |
_RL wtheta ( nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_map_ini.F |
107 |
CTRL_MAP_INI |
$ 2.0/sqrt(wtheta(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
109 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_unpack.F |
307 |
CTRL_UNPACK |
& weighttype, wtheta, nwetcglobal, mythid) |
|
./pkg/ctrl/ctrl_pack.F |
215 |
CTRL_PACK |
& weighttype, wtheta, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_weights.h |
4 |
NO PROCEDURE |
& wtheta, wsalt, |
|
./pkg/ctrl/ctrl_weights.h |
8 |
NO PROCEDURE |
_RL wtheta ( nr,nsx,nsy ) |