| File |
Line number |
Procedure |
Code |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
124 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
556 |
ECCO_COST_WEIGHTS |
& wtp, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
566 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
572 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
574 |
ECCO_COST_WEIGHTS |
wgfo(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
582 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
597 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj) *10. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
984 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
985 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
123 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
554 |
ECCO_COST_WEIGHTS |
& wtp, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
564 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
567 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
569 |
ECCO_COST_WEIGHTS |
if ( wtp(i,j,bi,bj) .ne. 0. ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
570 |
ECCO_COST_WEIGHTS |
& wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
580 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
594 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj) *10. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
980 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
981 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
262 |
COST_SSH |
wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
184 |
COST_SSH_NEW |
if ( tpmask(i,j,bi,bj)*wtp(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
346 |
COST_SSH_NEW |
& *wtp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1026 |
NO PROCEDURE |
& wtp,wers,wgfo, |
|
./pkg/ecco/ecco_cost.h |
1071 |
NO PROCEDURE |
_RL wtp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
140 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1583 |
ECCO_COST_WEIGHTS |
if (wtp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1584 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
629 |
ECCO_COST_WEIGHTS |
& nnz, wtp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
639 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
643 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 ) |
|
./pkg/ecco/ecco_cost_weights.F |
645 |
ECCO_COST_WEIGHTS |
wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 ) |
|
./pkg/ecco/ecco_cost_weights.F |
658 |
ECCO_COST_WEIGHTS |
& wtp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
677 |
ECCO_COST_WEIGHTS |
& wtp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
685 |
ECCO_COST_WEIGHTS |
wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
716 |
ECCO_COST_WEIGHTS |
wtp(i,j,bi,bj) = wtp(i,j,bi,bj)*100. |