From 2074943698b5dd63a58ad19b83195566b9f98472 Mon Sep 17 00:00:00 2001 From: Kate Hedstrom Date: Tue, 14 Jun 2016 16:31:52 -0800 Subject: [PATCH] License line and loop bounds fix. --- src/core/MOM_open_boundary.F90 | 1 + src/initialization/MOM_state_initialization.F90 | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/core/MOM_open_boundary.F90 b/src/core/MOM_open_boundary.F90 index ea419ae4c6..9b9bde6c1a 100644 --- a/src/core/MOM_open_boundary.F90 +++ b/src/core/MOM_open_boundary.F90 @@ -1,3 +1,4 @@ +! This file is part of MOM6. See LICENSE.md for the license. !> Controls where open boundary conditions are applied module MOM_open_boundary diff --git a/src/initialization/MOM_state_initialization.F90 b/src/initialization/MOM_state_initialization.F90 index 0f9568cd2c..dfccb40631 100644 --- a/src/initialization/MOM_state_initialization.F90 +++ b/src/initialization/MOM_state_initialization.F90 @@ -2008,11 +2008,11 @@ subroutine set_Flather_Bdry_Conds(OBC, tv, h, G, PF, tracer_Reg) enddo ; enddo ; enddo endif - do k=1,nz ; do j=js-1,je+1 ; do I=is-1,ie+1 + do k=1,nz ; do j=jsd,jed ; do I=isd,ied if (OBC%OBC_kind_u(I,j) == OBC_FLATHER_E) h(i+1,j,k) = h(i,j,k) if (OBC%OBC_kind_u(I,j) == OBC_FLATHER_W) h(i,j,k) = h(i+1,j,k) enddo ; enddo ; enddo - do k=1,nz ; do J=js-1,je+1 ; do i=is-1,ie+1 + do k=1,nz ; do J=jsd,jed ; do i=isd,ied if (OBC%OBC_kind_v(i,J) == OBC_FLATHER_N) h(i,j+1,k) = h(i,j,k) if (OBC%OBC_kind_v(i,J) == OBC_FLATHER_S) h(i,j,k) = h(i,j+1,k) enddo ; enddo ; enddo