| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
239 |
COST_GENCOST_SSHV4 |
if ( tpmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
247 |
COST_GENCOST_SSHV4 |
if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
255 |
COST_GENCOST_SSHV4 |
if ( gfomask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
277 |
COST_GENCOST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
307 |
COST_GENCOST_SSHV4 |
if ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
480 |
COST_GENCOST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
536 |
COST_GENCOST_SSHV4 |
elseif ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
609 |
COST_GENCOST_SSHV4 |
& *tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_readtopexmean.F |
79 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
81 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
84 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
87 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
91 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
94 |
COST_READTOPEXMEAN |
tpmeanmask(i,j,bi,bj) = tpmeanmask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readtopexmean.F |
96 |
COST_READTOPEXMEAN |
& tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
171 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
174 |
COST_SSH |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
272 |
COST_SSH |
if (tpmeanmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
299 |
COST_SSH |
if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
326 |
COST_SSH |
if (tpmeanmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
121 |
COST_SSH_MEAN |
if ( tpmeanmask(i,j,bi,bj) .gt. 0. ) then |
|
./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 |
256 |
COST_SSH_NEW |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh_new.F |
259 |
COST_SSH_NEW |
& tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
357 |
COST_SSH_NEW |
if (tpmeanmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
386 |
COST_SSH_NEW |
if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
415 |
COST_SSH_NEW |
if (tpmeanmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
219 |
COST_SSHV4 |
if ( tpmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
227 |
COST_SSHV4 |
if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
235 |
COST_SSHV4 |
if ( gfomask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
257 |
COST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
287 |
COST_SSHV4 |
if ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
460 |
COST_SSHV4 |
& ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
516 |
COST_SSHV4 |
elseif ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
589 |
COST_SSHV4 |
& *wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
590 |
COST_SSHV4 |
if ( wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_sshv4.F |
593 |
COST_SSHV4 |
& * wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1233 |
NO PROCEDURE |
& tpmeanmask, |
|
./pkg/ecco/ecco_cost.h |
1264 |
NO PROCEDURE |
_RL tpmeanmask(1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_init_varia.F |
229 |
ECCO_COST_INIT_VARIA |
tpmeanmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
231 |
ECCO_COST_INIT_VARIA |
tpmeanmask(i,j,bi,bj) = 1. _d 0 |