!*********************************************************************** !* GNU Lesser General Public License !* !* This file is part of the FV3 dynamical core. !* !* The FV3 dynamical core is free software: you can redistribute it !* and/or modify it under the terms of the !* GNU Lesser General Public License as published by the !* Free Software Foundation, either version 3 of the License, or !* (at your option) any later version. !* !* The FV3 dynamical core is distributed in the hope that it will be !* useful, but WITHOUT ANYWARRANTY; without even the implied warranty !* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. !* See the GNU General Public License for more details. !* !* You should have received a copy of the GNU Lesser General Public !* License along with the FV3 dynamical core. !* If not, see . !*********************************************************************** 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. 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 end module external_sst_mod