| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
106 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
113 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
58 |
CTRL_MASK_SET_XZ |
_RL maskxz (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
88 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
164 |
COST_OBCSN |
call ACTIVE_READ_XZ( 'maskobcsn', maskxz, |
|
./pkg/ecco/cost_obcsn.F |
183 |
COST_OBCSN |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
186 |
COST_OBCSN |
if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsn.F |
96 |
COST_OBCSN |
_RL maskxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/ecco/cost_obcss.F |
165 |
COST_OBCSS |
call ACTIVE_READ_XZ( 'maskobcss', maskxz, |
|
./pkg/ecco/cost_obcss.F |
185 |
COST_OBCSS |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
188 |
COST_OBCSS |
if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcss.F |
96 |
COST_OBCSS |
_RL maskxz (1-olx:snx+olx,nr,nsx,nsy) |