76 |
|
|
77 |
do j = 1,sny |
do j = 1,sny |
78 |
do i = 1,snx |
do i = 1,snx |
79 |
if ( _hFacC(i,j,1,bi,bj) .eq. 0. ) then |
if ( maskC(i,j,1,bi,bj) .eq. 0. ) then |
80 |
arr(i,j,bi,bj) = 0. _d 0 |
arr(i,j,bi,bj) = 0. _d 0 |
81 |
endif |
endif |
82 |
enddo |
enddo |
86 |
|
|
87 |
do j = 1,sny |
do j = 1,sny |
88 |
do i = 1,snx |
do i = 1,snx |
89 |
if ( maskw(i,j,1,bi,bj) .eq. 0. ) then |
if ( maskW(i,j,1,bi,bj) .eq. 0. ) then |
90 |
arr(i,j,bi,bj) = 0. _d 0 |
arr(i,j,bi,bj) = 0. _d 0 |
91 |
endif |
endif |
92 |
enddo |
enddo |
96 |
|
|
97 |
do j = 1,sny |
do j = 1,sny |
98 |
do i = 1,snx |
do i = 1,snx |
99 |
if ( masks(i,j,1,bi,bj) .eq. 0. ) then |
if ( maskS(i,j,1,bi,bj) .eq. 0. ) then |
100 |
arr(i,j,bi,bj) = 0. _d 0 |
arr(i,j,bi,bj) = 0. _d 0 |
101 |
endif |
endif |
102 |
enddo |
enddo |