| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
106 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
113 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 1 |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
132 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
57 |
CTRL_MASK_SET_YZ |
_RL maskyz (1-oly:sny+oly,nr,nsx,nsy,nobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
88 |
CTRL_MASK_SET_YZ |
maskyz(j,k,bi,bj,iobcs) = 0. _d 0 |
|
./pkg/ecco/cost_obcse.F |
157 |
COST_OBCSE |
call ACTIVE_READ_YZ( 'maskobcse', maskyz, |
|
./pkg/ecco/cost_obcse.F |
176 |
COST_OBCSE |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcse.F |
179 |
COST_OBCSE |
if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcse.F |
89 |
COST_OBCSE |
_RL maskyz (1-oly:sny+oly,nr,nsx,nsy) |
|
./pkg/ecco/cost_obcsw.F |
155 |
COST_OBCSW |
call ACTIVE_READ_YZ( 'maskobcsw', maskyz, |
|
./pkg/ecco/cost_obcsw.F |
174 |
COST_OBCSW |
& *tmpx*tmpx*maskyz(j,k,bi,bj) |
|
./pkg/ecco/cost_obcsw.F |
177 |
COST_OBCSW |
if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.) |
|
./pkg/ecco/cost_obcsw.F |
87 |
COST_OBCSW |
_RL maskyz (1-oly:sny+oly,nr,nsx,nsy) |