Commit 07b81c59 authored by bjb's avatar bjb
Browse files

Consistent application of mask.adjsut with new bathy read

parent 799ca40d
!$Id: domain.F90,v 1.37 2009-09-30 05:32:47 kb Exp $
!$Id: domain.F90,v 1.38 2009-11-05 14:36:10 bjb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -99,6 +99,9 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: domain.F90,v $
! Revision 1.38 2009-11-05 14:36:10 bjb
! Consistent application of mask.adjsut with new bathy read
!
! Revision 1.37 2009-09-30 05:32:47 kb
! fixed calculation of dx, dy when dlon, dlat not present
!
......@@ -1196,8 +1199,8 @@ STDERR latc(1,1),latx(1,0)
LEVEL3 il,jl,ih,jh
do j=jl,jh
do i=il,ih
if(imin+ioff .le. i .and. i .le. imax+ioff .and. &
jmin+joff .le. j .and. j .le. jmax+joff ) then
if(imin+ioff-HALO .le. i .and. i .le. imax+ioff+HALO .and. &
jmin+joff-HALO .le. j .and. j .le. jmax+joff+HALO ) then
az(i-ioff,j-joff) = 0
end if
end do
......
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