| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_salt0.F |
122 |
COST_SALT0 |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_salt0.F |
124 |
COST_SALT0 |
if ( wsalt(k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_salt.F |
206 |
COST_SALT |
& (wsalt(k,bi,bj)*cmask(i,j)* |
|
./pkg/ecco/cost_salt.F |
209 |
COST_SALT |
if ( wsalt(k,bi,bj)*cmask(i,j) .ne. 0. ) |
|
./pkg/ecco/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
281 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./pkg/ecco/ecco_cost_weights.F |
328 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./pkg/ecco/ecco_cost_weights.F |
346 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
347 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
415 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
962 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
963 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
965 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./pkg/ecco/ecco_cost.h |
704 |
NO PROCEDURE |
& wsalt,wsalt2,wsaltLev, |
|
./pkg/ecco/ecco_cost.h |
733 |
NO PROCEDURE |
_RL wsalt ( nr,nsx,nsy) |
|
./pkg/ecco/cost_salt_ini_fin.F |
110 |
COST_SALT_INI_FIN |
& + wsalt(k,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_drift.F |
143 |
COST_DRIFT |
& wsalt(1,1,1)/(nfmin*errsannurescal)**2 |
|
./pkg/ecco/cost_drift.F |
226 |
COST_DRIFT |
& (wsalt(k,bi,bj)*cosphi(i,j,bi,bj)/ |
|
./pkg/ecco/cost_drift.F |
238 |
COST_DRIFT |
if ( wsalt(k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1023 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1024 |
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 |
1026 |
ECCO_COST_WEIGHTS |
wsalt(k,bi,bj) = 0.0 _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
148 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
285 |
ECCO_COST_WEIGHTS |
wsalt (k,bi,bj) = wsi(k) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
332 |
ECCO_COST_WEIGHTS |
if (wsalt(k,bi,bj).eq.0 .and. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
337 |
ECCO_COST_WEIGHTS |
$ wsalt(k,bi,bj)*wsalt(k,bi,bj), |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
351 |
ECCO_COST_WEIGHTS |
wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
352 |
ECCO_COST_WEIGHTS |
$ *wsalt(k,bi,bj)) *frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
421 |
ECCO_COST_WEIGHTS |
wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j) |
|
./pkg/ctrl/ctrl_weights.h |
4 |
NO PROCEDURE |
& wtheta, wsalt |
|
./pkg/ctrl/ctrl_weights.h |
6 |
NO PROCEDURE |
_RL wsalt ( nr,nsx,nsy ) |
|
./pkg/ctrl/ctrl_map_ini.F |
139 |
CTRL_MAP_INI |
$ 2.0/sqrt(wsalt(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini.F |
141 |
CTRL_MAP_INI |
$ sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj)) |
|
./pkg/ctrl/ctrl_pack.F |
221 |
CTRL_PACK |
& weighttype, wsalt, lxxadxx, mythid) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
182 |
CTRL_MAP_INI_ECCO |
& 2.0/sqrt(wsalt(k,bi,bj))) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
184 |
CTRL_MAP_INI_ECCO |
& sign(2.0/sqrt(wsalt(k,bi,bj)), |
|
./pkg/ctrl/ctrl_unpack.F |
313 |
CTRL_UNPACK |
& weighttype, wsalt, nwetcglobal, mythid) |