mv grid1/2 str/end integers outside of scripmpi

NOAA-EMC · Sep 20, 2024 · 1de0220 · 1de0220
1 parent 54835ec
commit 1de0220
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/model/src/SCRIP/scrip_remap_conservative.F b/model/src/SCRIP/scrip_remap_conservative.F
@@ -268,7 +268,6 @@ subroutine remap_conserv(l_master, l_test)
 !
 !-----------------------------------------------------------------------
 #ifdef W3_SCRIPMPI
-      integer (SCRIP_i4) :: grid1_str, grid1_end, grid2_str, grid2_end
       integer (SCRIP_i4) :: IERR_MPI, IPROC, ratio
       integer (SCRIP_i4) :: j, ij, add1, add2, got_weight
       integer (SCRIP_i4) :: nlink, min_link, max_link
@@ -278,6 +277,7 @@ subroutine remap_conserv(l_master, l_test)
       integer (SCRIP_i4), dimension(:), allocatable :: Arecv1
       integer (SCRIP_i4), dimension(:), allocatable :: Arecv2
 #endif
+      integer (SCRIP_i4) :: grid1_str, grid1_end, grid2_str, grid2_end
 
       integer (SCRIP_i4), parameter ::
      &     phi_or_theta = 2      ! integrate w.r.t. phi (1) or theta (2)