Merge pull request NOAA-GFDL#40 from NOAA-GFDL/dev/emc

Merge 'regional_boundary_update' from upstream
climbfuji · Sep 30, 2020 · 2ec76f8 · 2ec76f8
2 parents 2cbdb7c + 7ccf953
commit 2ec76f8
Showing 1 changed file with 13 additions and 1 deletion.
diff --git 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