| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
250 |
ECCO_PHYS |
tmpmsk=0. _d 0 |
|
./pkg/ecco/ecco_phys.F |
252 |
ECCO_PHYS |
tmpmsk=gencost_mskCsurf(i,j,bi,bj,kgen)* |
|
./pkg/ecco/ecco_phys.F |
257 |
ECCO_PHYS |
tmpmsk=gencost_mskC(i,j,k,bi,bj,kgen3d) |
|
./pkg/ecco/ecco_phys.F |
265 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
269 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
274 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
280 |
ECCO_PHYS |
& +tmpmsk*tmpfld*tmpvol |
|
./pkg/ecco/ecco_phys.F |
286 |
ECCO_PHYS |
tmpmsk=maskC(i,j,1,bi,bj)*gencost_mskCsurf(i,j,bi,bj,kgen) |
|
./pkg/ecco/ecco_phys.F |
291 |
ECCO_PHYS |
if (tmpmsk.NE.0. _d 0) tmpmsk2=1. _d 0 |
|
./pkg/ecco/ecco_phys.F |
296 |
ECCO_PHYS |
& +tmpmsk*tmpfld*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
47 |
ECCO_PHYS |
_RL tmpfld, tmpvol, tmpmsk, tmpmsk2, tmpmskW, tmpmskS |