| File |
Line number |
Procedure |
Code |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1002 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
1003 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
127 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
506 |
ECCO_COST_WEIGHTS |
& wp, irec, mythid ) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
512 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
519 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
532 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*10. |
|
./verification/global1x1_tot/code/ecco_cost_weights.F |
544 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
125 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
504 |
ECCO_COST_WEIGHTS |
& wp, irec, mythid ) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
510 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
517 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 0. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
530 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*10. |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
542 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
995 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F |
996 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
273 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
277 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
300 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
304 |
COST_SSH |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) ) |
|
./pkg/ecco/cost_ssh.F |
327 |
COST_SSH |
& *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then |
|
./pkg/ecco/cost_ssh.F |
331 |
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)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
241 |
COST_SSH_MEAN |
if ( wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_mean.F |
244 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
267 |
COST_SSH_MEAN |
sumC0 = sumC0 + wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
269 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
271 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
272 |
COST_SSH_MEAN |
if ( wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_ssh_mean.F |
276 |
COST_SSH_MEAN |
& * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
358 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwtp2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
362 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
387 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwers2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
391 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) ) |
|
./pkg/ecco/cost_ssh_new.F |
416 |
COST_SSH_NEW |
& *wp(i,j,bi,bj)*wwwgfo2(i,j,bi,bj) .ne.0.) then |
|
./pkg/ecco/cost_ssh_new.F |
420 |
COST_SSH_NEW |
& +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) ) |
|
./pkg/ecco/ecco_cost.h |
1027 |
NO PROCEDURE |
& wp,wsshv4, |
|
./pkg/ecco/ecco_cost.h |
1075 |
NO PROCEDURE |
_RL wp (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_weights.F |
146 |
ECCO_COST_WEIGHTS |
wp (i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_weights.F |
1592 |
ECCO_COST_WEIGHTS |
if (wp(i,j,bi,bj) .ne. 0.) then |
|
./pkg/ecco/ecco_cost_weights.F |
1593 |
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 |
592 |
ECCO_COST_WEIGHTS |
& nnz, wp, irec, mythid ) |
|
./pkg/ecco/ecco_cost_weights.F |
598 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/ecco_cost_weights.F |
604 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = wp(i,j,bi,bj)*100. |
|
./pkg/ecco/ecco_cost_weights.F |
616 |
ECCO_COST_WEIGHTS |
wp(i,j,bi,bj) = frame(i,j) |