| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ssh.F |
276 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
280 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
303 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
307 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
330 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
334 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) ) |
|
./pkg/ecco/cost_ssh_mean.F |
240 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
241 |
COST_SSH_MEAN |
if ( wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_mean.F |
244 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
267 |
COST_SSH_MEAN |
sumC0 = sumC0 + wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
269 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
271 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
272 |
COST_SSH_MEAN |
if ( wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_mean.F |
276 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
361 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwtp2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
365 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
390 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwers2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
394 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
419 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwgfo2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
423 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost.h |
1151 |
NO PROCEDURE |
& wp,wsshv4, |
|
./pkg/ecco/ecco_cost.h |
1208 |
NO PROCEDURE |
_RL wp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
150 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1737 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1738 |
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 |
619 |
ECCO_COST_WEIGHTS |
& nnz, wp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
625 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
631 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
643 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |