From d8d70837fea3f26e79da605ff45ca0abcfd34515 Mon Sep 17 00:00:00 2001 From: Jesse Lentz Date: Wed, 20 Sep 2023 10:32:00 -0400 Subject: [PATCH] Restore public amip_interp data --- amip_interp/amip_interp.F90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/amip_interp/amip_interp.F90 b/amip_interp/amip_interp.F90 index b1eec9222b..e72e8bcc25 100644 --- a/amip_interp/amip_interp.F90 +++ b/amip_interp/amip_interp.F90 @@ -159,6 +159,11 @@ module amip_interp_mod real(r4_kind), allocatable, dimension(:,:) :: sst_ncep_r4, sst_anom_r4 real(r8_kind), allocatable, dimension(:,:) :: sst_ncep_r8, sst_anom_r8 +real(r8_kind), dimension(:,:), pointer :: sst_ncep => sst_ncep_r8 +real(r8_kind), dimension(:,:), pointer :: sst_anom => sst_anom_r8 + +public i_sst, j_sst, sst_ncep, sst_anom, forecast_mode, use_ncep_sst + !----------------------------------------------------------------------- !--------------------- private below here ------------------------------