From 5084f579fe8bb3f4f646d23285d9a1c7dfc50bbe Mon Sep 17 00:00:00 2001 From: Lauren Chilutti <60401591+laurenchilutti@users.noreply.github.com> Date: Fri, 20 Oct 2023 08:25:45 -0400 Subject: [PATCH] Modify external_sst (#297) * sst fix * reorganizing external_sst so use statement is before variable declaration --- tools/external_sst.F90 | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/tools/external_sst.F90 b/tools/external_sst.F90 index d67f62391..c1472c3a0 100644 --- a/tools/external_sst.F90 +++ b/tools/external_sst.F90 @@ -21,17 +21,9 @@ module external_sst_mod -#ifdef NO_GFDL_SHARED -!----------------- Public Data ----------------------------------- -integer :: i_sst = -1 -integer :: j_sst = -1 -logical :: forecast_mode = .false. -logical :: use_ncep_sst = .false. +use amip_interp_mod, only: i_sst, j_sst, forecast_mode, use_ncep_sst + real, allocatable, dimension(:,:) :: sst_ncep, sst_anom -#else -use amip_interp_mod, only: i_sst, j_sst, sst_ncep, sst_anom, & - forecast_mode, use_ncep_sst -#endif public i_sst, j_sst, sst_ncep, sst_anom, forecast_mode, use_ncep_sst