Commit 4270c4ab authored by Knut's avatar Knut

do not set az=1 based on bathy in halo-zone

parent 09560fdf
......@@ -242,8 +242,8 @@
call wait_halo(H_TAG)
az = 0
where (H .gt. Hland+SMALL)
az=1
where (H(imin:imax,jmin:jmax) .gt. Hland+SMALL)
az(imin:imax,jmin:jmax) = 1
end where
call update_2d_halo(H,H,az,imin,jmin,imax,jmax,H_TAG,mirror=.true.)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment