diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90 index 98285b7a3..e3b633256 100644 --- a/model/fv_regional_bc.F90 +++ b/model/fv_regional_bc.F90 @@ -4409,6 +4409,12 @@ subroutine regional_boundary_update(array & j1=jsd j2=jed ! +! CHJ --- s --- + if(trim(bc_vbl_name)=='vc'.or.trim(bc_vbl_name)=='u')then + j2=jed+1 + endif +! CHJ --- e --- + i1=isd i2=is-1 ! @@ -4453,7 +4459,13 @@ subroutine regional_boundary_update(array & ! j1=jsd j2=jed -! + +! CHJ --- s --- + if(trim(bc_vbl_name)=='vc'.or.trim(bc_vbl_name)=='u')then + j2=jed+1 + endif +! CHJ --- e --- + i1=ie+1 i2=ied if(trim(bc_vbl_name)=='uc'.or.trim(bc_vbl_name)=='v')then