coupler mixed precision

.gitignore

@@ -92,3 +92,4 @@ settings.json
 *.code-workspace
 # Local History for Visual Studio Code
 .history/
+*.i90

CMakeLists.txt

@@ -318,7 +318,8 @@ foreach(kind ${kinds})
                                                  field_manager/include
                                                  time_interp/include
                                                  tracer_manager/include
-                                                 interpolator/include)
+                                                 interpolator/include
+                                                 coupler/include)
 
   target_compile_definitions(${libTgt}_f PRIVATE "${fms_defs}")
   target_compile_definitions(${libTgt}_f PRIVATE "${${kind}_defs}")

axis_utils/include/axis_utils2.inc

@@ -177,7 +177,8 @@
   !!        lon = 0 1 2 3 4 5  ...  358 359; lon_strt = 3
   !!    ==> lon = 3 4 5 6 7 8  ...  359 360 361 362; istrt = 4
   !!
-
+  !!        lon = 0 1 2 3 4 5  ...  358 359; lon_strt = 0
+  !!    ==> lon = 0 1 2 3 4 5  ...  358 359; istrt = 0
   subroutine TRANLON_(lon, lon_start, istrt)
     real(kind=FMS_AU_KIND_), intent(inout), dimension(:) :: lon
     real(kind=FMS_AU_KIND_), intent(in)                  :: lon_start

coupler/Makefile.am

@@ -33,7 +33,10 @@ noinst_LTLIBRARIES = libcoupler.la
 libcoupler_la_SOURCES = \
   coupler_types.F90 \
   ensemble_manager.F90 \
-  atmos_ocean_fluxes.F90
+  atmos_ocean_fluxes.F90 \
+  include/coupler_types.inc \
+  include/coupler_types_r4.fh \
+  include/coupler_types_r8.fh
 
 # Some mods are dependant on other mods in this dir.
 atmos_ocean_fluxes_mod.$(FC_MODEXT): coupler_types_mod.$(FC_MODEXT)

coupler/include/coupler_types_r4.fh

@@ -0,0 +1,53 @@
+!***********************************************************************
+!*                   GNU Lesser General Public License
+!*
+!* This file is part of the GFDL Flexible Modeling System (FMS).
+!*
+!* FMS 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.
+!*
+!* FMS is distributed in the hope that it will be useful, but WITHOUT
+!* ANY WARRANTY; 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 FMS.  If not, see <http://www.gnu.org/licenses/>.
+!***********************************************************************
+
+#undef FMS_CP_KIND_
+#define FMS_CP_KIND_ r4_kind
+
+#undef FMS_CP_BC_TYPE_
+#define FMS_CP_BC_TYPE_ bc_r4
+
+#undef CT_RESCALE_DATA_2D_
+#define CT_RESCALE_DATA_2D_ CT_rescale_data_2d_r4
+
+#undef CT_RESCALE_DATA_3D_
+#define CT_RESCALE_DATA_3D_ CT_rescale_data_3d_r4
+
+#undef CT_INCREMENT_DATA_2D_3D_
+#define CT_INCREMENT_DATA_2D_3D_ CT_increment_data_2d_3d_r4
+
+#undef CT_EXTRACT_DATA_2D_
+#define CT_EXTRACT_DATA_2D_ CT_extract_data_2d_r4
+
+#undef CT_EXTRACT_DATA_3D_
+#define CT_EXTRACT_DATA_3D_ CT_extract_data_3d_r4
+
+#undef CT_EXTRACT_DATA_3D_2D_
+#define CT_EXTRACT_DATA_3D_2D_ CT_extract_data_3d_2d_r4
+
+#undef CT_SET_DATA_2D_
+#define CT_SET_DATA_2D_ CT_set_data_2d_r4
+
+#undef CT_SET_DATA_2D_3D_
+#define CT_SET_DATA_2D_3D_ CT_set_data_2d_3d_r4
+
+#undef CT_SET_DATA_3D_
+#define CT_SET_DATA_3D_ CT_set_data_3d_r4
+
+#include "include/coupler_types.inc"

coupler/include/coupler_types_r8.fh

@@ -0,0 +1,53 @@
+!***********************************************************************
+!*                   GNU Lesser General Public License
+!*
+!* This file is part of the GFDL Flexible Modeling System (FMS).
+!*
+!* FMS 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.
+!*
+!* FMS is distributed in the hope that it will be useful, but WITHOUT
+!* ANY WARRANTY; 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 FMS.  If not, see <http://www.gnu.org/licenses/>.
+!***********************************************************************
+
+#undef FMS_CP_KIND_
+#define FMS_CP_KIND_ r8_kind
+
+#undef FMS_CP_BC_TYPE_
+#define FMS_CP_BC_TYPE_ bc
+
+#undef CT_RESCALE_DATA_2D_
+#define CT_RESCALE_DATA_2D_ CT_rescale_data_2d_r8
+
+#undef CT_RESCALE_DATA_3D_
+#define CT_RESCALE_DATA_3D_ CT_rescale_data_3d_r8
+
+#undef CT_INCREMENT_DATA_2D_3D_
+#define CT_INCREMENT_DATA_2D_3D_ CT_increment_data_2d_3d_r8
+
+#undef CT_EXTRACT_DATA_2D_
+#define CT_EXTRACT_DATA_2D_ CT_extract_data_2d_r8
+
+#undef CT_EXTRACT_DATA_3D_
+#define CT_EXTRACT_DATA_3D_ CT_extract_data_3d_r8
+
+#undef CT_EXTRACT_DATA_3D_2D_
+#define CT_EXTRACT_DATA_3D_2D_ CT_extract_data_3d_2d_r8
+
+#undef CT_SET_DATA_2D_
+#define CT_SET_DATA_2D_ CT_set_data_2d_r8
+
+#undef CT_SET_DATA_2D_3D_
+#define CT_SET_DATA_2D_3D_ CT_set_data_2d_3d_r8
+
+#undef CT_SET_DATA_3D_
+#define CT_SET_DATA_3D_ CT_set_data_3d_r8
+
+#include "include/coupler_types.inc"