Restore public amip_interp data

NOAA-GFDL · Sep 20, 2023 · d8d7083 · d8d7083
1 parent 3e0db62
commit d8d7083
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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 ------------------------------