| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_cost_init_varia.F |
265 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/ecco_cost_init_varia.F |
267 |
ECCO_COST_INIT_VARIA |
mdtmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_ssh.F |
150 |
COST_SSH |
mdtmask(i,j,bi,bj)=maskC(i,j,1,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
152 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
155 |
COST_SSH |
mdtmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
158 |
COST_SSH |
& mdtmask(i,j,bi,bj)*0.01 _d 0 |
|
./pkg/ecco/cost_ssh.F |
198 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)* |
|
./pkg/ecco/cost_ssh.F |
201 |
COST_SSH |
& mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj) |
|
./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 |
318 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
345 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
372 |
COST_SSH |
if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj) |
|
./pkg/ecco/ecco_cost.h |
1200 |
NO PROCEDURE |
& mdtmask, |
|
./pkg/ecco/ecco_cost.h |
1236 |
NO PROCEDURE |
_RL mdtmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |