| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_ies.F |
131 |
COST_IES |
if (iesmask(i,j,bi,bj).NE.0.) then |
|
./pkg/ecco/cost_ies.F |
193 |
COST_IES |
junkweight = wies(i,j,bi,bj)*iesmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ies_read.F |
112 |
COST_IES_READ |
iesmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ies_read.F |
114 |
COST_IES_READ |
iesmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_ies_read.F |
117 |
COST_IES_READ |
iesmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ies_read.F |
119 |
COST_IES_READ |
iesmask(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_ies_read.F |
121 |
COST_IES_READ |
iesmask(i,j,bi,bj) = 1. _d 0 |
|
./pkg/ecco/cost_ies_read.F |
124 |
COST_IES_READ |
& iesmask(i,j,bi,bj) |
|
./pkg/ecco/cost_ies_read.F |
125 |
COST_IES_READ |
nobs = nobs + int(iesmask(i,j,bi,bj)) |
|
./pkg/ecco/ecco_cost.h |
1380 |
NO PROCEDURE |
& iesmask, |
|
./pkg/ecco/ecco_cost.h |
1420 |
NO PROCEDURE |
_RL iesmask (1-olx:snx+olx,1-oly:sny+oly, nsx,nsy) |