| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
283 |
COST_GENCOST_SSHV4 |
if ( tpmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
291 |
COST_GENCOST_SSHV4 |
if ( ersmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
299 |
COST_GENCOST_SSHV4 |
if ( gfomask(i,j,bi,bj)*mdtmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
320 |
COST_GENCOST_SSHV4 |
& ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
355 |
COST_GENCOST_SSHV4 |
if ( ( mdtmask(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
544 |
COST_GENCOST_SSHV4 |
& ( mdtmask(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
555 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
605 |
COST_GENCOST_SSHV4 |
& ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
613 |
COST_GENCOST_SSHV4 |
elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
702 |
COST_GENCOST_SSHV4 |
& * mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_readtopexmean.F |
101 |
COST_READTOPEXMEAN |
mdtmask(i,j,bi,bj) = mdtmask(i,j,bi,bj)*frame(i,j) |
|
./pkg/ecco/cost_readtopexmean.F |
103 |
COST_READTOPEXMEAN |
& mdtmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_readtopexmean.F |
79 |
COST_READTOPEXMEAN |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
81 |
COST_READTOPEXMEAN |
mdtmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
84 |
COST_READTOPEXMEAN |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
87 |
COST_READTOPEXMEAN |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
92 |
COST_READTOPEXMEAN |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_readtopexmean.F |
97 |
COST_READTOPEXMEAN |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
172 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
175 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
275 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
302 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
329 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
121 |
COST_SSH_MEAN |
if ( mdtmask(i,j,bi,bj) .gt. 0. ) then |
|
./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 |
257 |
COST_SSH_NEW |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh_new.F |
260 |
COST_SSH_NEW |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
360 |
COST_SSH_NEW |
if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
389 |
COST_SSH_NEW |
if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
418 |
COST_SSH_NEW |
if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
243 |
COST_SSHV4 |
if ( tpmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
251 |
COST_SSHV4 |
if ( ersmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
259 |
COST_SSHV4 |
if ( gfomask(i,j,bi,bj)*mdtmask(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
281 |
COST_SSHV4 |
& ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
314 |
COST_SSHV4 |
if ( ( mdtmask(i,j,bi,bj) .NE. 0. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
487 |
COST_SSHV4 |
& ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
543 |
COST_SSHV4 |
elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND. |
|
./pkg/ecco/cost_sshv4.F |
624 |
COST_SSHV4 |
& *wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/cost_sshv4.F |
625 |
COST_SSHV4 |
if ( wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. ) |
|
./pkg/ecco/cost_sshv4.F |
628 |
COST_SSHV4 |
& * wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1387 |
NO PROCEDURE |
& mdtmask, |
|
./pkg/ecco/ecco_cost.h |
1423 |
NO PROCEDURE |
_RL mdtmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |
|
./pkg/ecco/ecco_cost_init_varia.F |
245 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
247 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 1. _d 0 |