| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
105 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
112 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
131 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
57 |
CTRL_MASK_SET_XZ |
_RL maskxz (1-olx:snx+olx,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
87 |
CTRL_MASK_SET_XZ |
maskxz(i,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ecco/cost_obcsn.F |
155 |
COST_OBCSN |
call ACTIVE_READ_XZ( 'maskobcsn', maskxz, |
|
./pkg/ecco/cost_obcsn.F |
174 |
COST_OBCSN |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcsn.F |
177 |
COST_OBCSN |
if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsn.F |
87 |
COST_OBCSN |
_RL maskxz (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/ecco/cost_obcss.F |
156 |
COST_OBCSS |
call ACTIVE_READ_XZ( 'maskobcss', maskxz, |
|
./pkg/ecco/cost_obcss.F |
176 |
COST_OBCSS |
& *tmpx*tmpx*maskxz(i,k,bi,bj) |
|
./pkg/ecco/cost_obcss.F |
179 |
COST_OBCSS |
if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcss.F |
87 |
COST_OBCSS |
_RL maskxz (1-olx:snx+olx,nr,nsx,nsy) |