cleanup mosaic/read_mosaic.c

CMakeLists.txt

@@ -201,7 +201,7 @@ list(APPEND fms_c_src_files
   mosaic/gradient_c2l.c
   mosaic/interp.c
   mosaic/mosaic_util.c
-  mosaic/read_mosaic.c
+  mosaic/get_global_area.c
   mpp/mpp_memuse.c
   parser/yaml_parser_binding.c
   parser/yaml_output_functions.c

mosaic/Makefile.am

@@ -38,22 +38,22 @@ create_xgrid.c \
 gradient_c2l.c \
 interp.c \
 mosaic_util.c \
-read_mosaic.c \
+get_global_area.c \
 constant.h \
 create_xgrid.h \
 gradient_c2l.h \
 interp.h \
 mosaic_util.h \
-read_mosaic.h
+get_global_area.h
 
 # Some mods are dependant on other mods in this dir.
 grid_mod.$(FC_MODEXT): mosaic_mod.$(FC_MODEXT)
 
 # Mod files are built and then installed as headers.
 MODFILES = \
-  mosaic_mod.$(FC_MODEXT) \
-  grid_mod.$(FC_MODEXT) \
-  gradient_mod.$(FC_MODEXT)
+	mosaic_mod.$(FC_MODEXT) \
+	grid_mod.$(FC_MODEXT) \
+	gradient_mod.$(FC_MODEXT)
 nodist_include_HEADERS = $(MODFILES)
 BUILT_SOURCES = $(MODFILES)
 

mosaic/get_global_area.c

@@ -0,0 +1,57 @@
+/***********************************************************************
+ *                   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/>.
+ **********************************************************************/
+#include <stdlib.h>
+#include <stdio.h>
+#include <math.h>
+#include <string.h>
+#include "get_global_area.h"
+#include "constant.h"
+
+/** \file
+ *  \ingroup mosaic
+ *  \brief Compute global area
+ */
+
+#ifdef OVERLOAD_R4
+float get_global_area(void)
+{
+  float garea;
+#else
+  double get_global_area(void)
+{
+    double garea;
+#endif
+    garea = 4*M_PI*RADIUS*RADIUS;
+
+    return garea;
+}
+
+#ifdef OVERLOAD_R4
+  float get_global_area_(void)
+{
+    float garea;
+#else
+    double get_global_area_(void)
+{
+      double garea;
+#endif
+      garea = 4*M_PI*RADIUS*RADIUS;
+
+      return garea;
+}

mosaic/get_global_area.h

@@ -0,0 +1,45 @@
+/***********************************************************************
+ *                   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/>.
+ **********************************************************************/
+#ifndef GET_GLOBAL_AREA_
+#define GET_GLOBAL_AREA_
+
+/* get global area */
+
+
+#ifdef OVERLOAD_R4
+
+float get_global_area(void);
+
+#else
+
+double get_global_area(void);
+
+#endif
+
+#ifdef OVERLOAD_R4
+
+float get_global_area_(void);
+
+#else
+
+double get_global_area_(void);
+
+#endif  /* OVERLOAD_R4 */
+
+#endif