From c27ffe3dc6a668fafa8913a9a11a3c7941efa9ac Mon Sep 17 00:00:00 2001 From: Soren Rasmussen Date: Wed, 17 Jan 2024 16:47:40 -0700 Subject: [PATCH] Fix GNU warning "Warning: Return value err_message of function declared at (1) not set [-Wreturn-type]" --- physics/module_ccpp_suite_simulator.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/physics/module_ccpp_suite_simulator.F90 b/physics/module_ccpp_suite_simulator.F90 index c4f9fc4e4..83fc8166c 100644 --- a/physics/module_ccpp_suite_simulator.F90 +++ b/physics/module_ccpp_suite_simulator.F90 @@ -128,7 +128,7 @@ function linterp_1D(this, var_name, year, month, day, hour, min, sec) result(err this%tend1d%q = this%tend2d%q(:,1) endif end select - + err_message = "" end function linterp_1D ! #################################################################################### @@ -163,6 +163,7 @@ function linterp_2D(this, var_name, lon, lat, year, month, day, hour, min, sec) case("q") this%tend1d%q = w1*this%tend3d%q(iNearest,:,ti(1)) + w2*this%tend3d%q(iNearest,:,tf(1)) end select + err_message = "" end function linterp_2D ! ####################################################################################