| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
107 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
114 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
134 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
58 |
CTRL_MASK_SET_YZ |
_RL maskyz (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
89 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
166 |
COST_OBCSE |
call ACTIVE_READ_YZ( 'maskobcse', maskyz, |
|
./pkg/ecco/cost_obcse.F |
185 |
COST_OBCSE |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
188 |
COST_OBCSE |
if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcse.F |
98 |
COST_OBCSE |
_RL maskyz (1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/ecco/cost_obcsw.F |
164 |
COST_OBCSW |
call ACTIVE_READ_YZ( 'maskobcsw', maskyz, |
|
./pkg/ecco/cost_obcsw.F |
183 |
COST_OBCSW |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
186 |
COST_OBCSW |
if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsw.F |
96 |
COST_OBCSW |
_RL maskyz (1-oly:sny+oly,nr,nsx,nsy) |