File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_obcs_ageos.F |
164 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_obcs_ageos.F |
234 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
./pkg/ecco/cost_obcs_ageos.F |
236 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
./pkg/ecco/cost_obcs_ageos.F |
282 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
./pkg/ecco/cost_obcs_ageos.F |
285 |
COST_OBCS_AGEOS |
if (maskxzageos(i,k,bi,bj) .ne. 0) then |
./pkg/ecco/cost_obcs_ageos.F |
302 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = 0. |
./pkg/ecco/cost_obcs_ageos.F |
305 |
COST_OBCS_AGEOS |
maskxzageos(i,k,bi,bj) = |
./pkg/ecco/cost_obcs_ageos.F |
354 |
COST_OBCS_AGEOS |
& maskxzageos(i,k,bi,bj)* |
./pkg/ecco/cost_obcs_ageos.F |
90 |
COST_OBCS_AGEOS |
_RL maskxzageos (1-olx:snx+olx,nr,nsx,nsy) |