Update routine remove_isolated_pts to not process the

e/w edges of the tile. Fixes #1000.
ufs-community · Dec 31, 2024 · a7545ea · a7545ea
1 parent 25c6b54
commit a7545ea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/orog_mask_tools.fd/orog.fd/orog_utils.F90 b/sorc/orog_mask_tools.fd/orog.fd/orog_utils.F90
@@ -586,7 +586,7 @@ subroutine remove_isolated_pts(im,jm,slm,oro,var,var4,oa,ol)
  iso_loop : DO J=2,JM-1
    JN=J-1
    JS=J+1
-   i_loop : DO I=1,IM
+   i_loop : DO I=2,IM-1
      print*,'check point ',i,j
      IW=MOD(I+IM-2,IM)+1
      IE=MOD(I,IM)+1