axis_utils/include/axis_utils2_r4.fh

   1 ! -*-f90-*-
   2
   3 !***********************************************************************
   4 !*                   GNU Lesser General Public License
   5 !*
   6 !* This file is part of the GFDL Flexible Modeling System (FMS).
   7 !*
   8 !* FMS is free software: you can redistribute it and/or modify it under
   9 !* the terms of the GNU Lesser General Public License as published by
  10 !* the Free Software Foundation, either version 3 of the License, or (at
  11 !* your option) any later version.
  12 !*
  13 !* FMS is distributed in the hope that it will be useful, but WITHOUT
  14 !* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 !* FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  16 !* for more details.
  17 !*
  18 !* You should have received a copy of the GNU Lesser General Public
  19 !* License along with FMS.  If not, see <http://www.gnu.org/licenses/>.
  20 !***********************************************************************
  21 !> @file
  22 !> @brief Imports checksum, gather, and scatter routines from other include files used
  23 !! for communications and calculations between PE's in @ref mpp_mod
  24
  25 !> @addtogroup mpp_mod
  26 !> @{
  27
  28 #undef FMS_AU_KIND_
  29 #define FMS_AU_KIND_ r4_kind
  30
  31 #undef AXIS_EDGES_
  32 #define AXIS_EDGES_ axis_edges_r4
  33
  34 #undef LON_IN_RANGE_
  35 #define LON_IN_RANGE_ lon_in_range_r4
  36
  37 #undef FRAC_INDEX_
  38 #define FRAC_INDEX_ frac_index_r4
  39
  40 #undef NEAREST_INDEX_
  41 #define NEAREST_INDEX_ nearest_index_r4
  42
  43 #undef TRANLON_
  44 #define TRANLON_ tranlon_r4
  45
  46 #undef INTERP_1D_LINEAR_
  47 #define INTERP_1D_LINEAR_ interp_1d_linear_r4
  48
  49 #undef INTERP_1D_CUBIC_SPLINE_
  50 #define INTERP_1D_CUBIC_SPLINE_ interp_1d_cubic_spline_r4
  51
  52 #undef INTERP_1D_1D_
  53 #define INTERP_1D_1D_ interp_1d_1d_r4
  54
  55 #undef INTERP_1D_2D_
  56 #define INTERP_1D_2D_ interp_1d_2d_r4
  57
  58 #undef INTERP_1D_3D_
  59 #define INTERP_1D_3D_ interp_1d_3d_r4
  60
  61 #undef FIND_INDEX_
  62 #define FIND_INDEX_ find_index_r4
  63
  64 #include "axis_utils2.inc"
  65
  66 !> @}
  67 ! close documentation grouping