From 3e0db621c989b957ad4506fa4abcfae1e8869b2e Mon Sep 17 00:00:00 2001 From: Jesse Lentz Date: Mon, 18 Sep 2023 14:06:21 -0400 Subject: [PATCH] Add `save` attribute Add the `save` attribute to a pair of local allocatable arrays that were formerly module-scope. --- amip_interp/include/amip_interp.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/amip_interp/include/amip_interp.inc b/amip_interp/include/amip_interp.inc index 5b5476fd6c..b9cfd06699 100644 --- a/amip_interp/include/amip_interp.inc +++ b/amip_interp/include/amip_interp.inc @@ -26,7 +26,7 @@ subroutine GET_AMIP_SST_ (Time, Interp, sst, err_msg, lon_model, lat_model) character(len=*), optional, intent(out) :: err_msg !< Holds error message string if present real(FMS_AMIP_INTERP_KIND_), dimension(mobs,nobs) :: sice - real(FMS_AMIP_INTERP_KIND_), allocatable:: temp1(:,:), temp2(:,:) + real(FMS_AMIP_INTERP_KIND_), allocatable, save :: temp1(:,:), temp2(:,:) integer :: year1, year2, month1, month2 real(FMS_AMIP_INTERP_KIND_) :: fmonth