| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_weights.F |
159 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1719 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1720 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost_weights.F |
640 |
ECCO_COST_WEIGHTS |
& nnz, wp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
646 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
652 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
665 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./pkg/ecco/cost_ssh.F |
257 |
COST_SSH |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
258 |
COST_SSH |
if ( wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh.F |
319 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
323 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
346 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
350 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
373 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
377 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/ecco_cost.h |
1051 |
NO PROCEDURE |
_RL wp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost.h |
996 |
NO PROCEDURE |
& wp,wsshv4, |