FV3DYCORE  Version 1.1.0
external_sst.F90
Go to the documentation of this file.
1 !***********************************************************************
2 !* GNU Lesser General Public License
3 !*
4 !* This file is part of the FV3 dynamical core.
5 !*
6 !* The FV3 dynamical core is free software: you can redistribute it
7 !* and/or modify it under the terms of the
8 !* GNU Lesser General Public License as published by the
9 !* Free Software Foundation, either version 3 of the License, or
10 !* (at your option) any later version.
11 !*
12 !* The FV3 dynamical core is distributed in the hope that it will be
13 !* useful, but WITHOUT ANYWARRANTY; without even the implied warranty
14 !* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15 !* See the GNU General Public License for more details.
16 !*
17 !* You should have received a copy of the GNU Lesser General Public
18 !* License along with the FV3 dynamical core.
19 !* If not, see <http://www.gnu.org/licenses/>.
20 !***********************************************************************
22 
23 #ifdef NO_GFDL_SHARED
24 !----------------- Public Data -----------------------------------
25 integer :: i_sst = -1
26 integer :: j_sst = -1
27 logical :: forecast_mode = .false.
28 logical :: use_ncep_sst = .false.
29 real, allocatable, dimension(:,:) :: sst_ncep, sst_anom
30 #else
31 use amip_interp_mod, only: i_sst, j_sst, sst_ncep, sst_anom, &
32  forecast_mode, use_ncep_sst
33 #endif
34 
35 public i_sst, j_sst, sst_ncep, sst_anom, forecast_mode, use_ncep_sst
36 
37 end module external_sst_mod