From 1de022012eabc02b979d247e7005fb035e459116 Mon Sep 17 00:00:00 2001 From: jcwarner-USGS Date: Fri, 20 Sep 2024 08:13:12 -0400 Subject: [PATCH] mv grid1/2 str/end integers outside of scripmpi --- model/src/SCRIP/scrip_remap_conservative.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/model/src/SCRIP/scrip_remap_conservative.F b/model/src/SCRIP/scrip_remap_conservative.F index 96c91d40a..593837c70 100755 --- 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)