change resize in scrip conserv

NOAA-EMC · Jul 19, 2024 · 566e275 · 566e275
1 parent 0baa3df
commit 566e275
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/model/src/SCRIP/scrip_remap_conservative.f b/model/src/SCRIP/scrip_remap_conservative.f
@@ -772,8 +772,7 @@ subroutine remap_conserv(l_master, l_test)
             if (got_weight.eq.0) then
               num_links_map1  = num_links_map1 + 1
               if (num_links_map1 > max_links_map1)                      &
-     &          call resize_remap_vars(1,max_links_map1-num_links_map1)
-!    &          call resize_remap_vars(1,resize_increment)
+     &          call resize_remap_vars(1,resize_increment)
               grid1_add_map1(num_links_map1) = add1
               grid2_add_map1(num_links_map1) = add2
               wts_map1    (:,num_links_map1) = Arecvw2d(1:num_wts,nlink)