From 6abaa2d82a4598e6b4293c7b15048721ee981ac5 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]" --- .../UFS_SCM_NEPTUNE/module_ccpp_suite_simulator.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/module_ccpp_suite_simulator.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/module_ccpp_suite_simulator.F90 index 45d3dd4e0..56d1d0666 100644 --- a/physics/Interstitials/UFS_SCM_NEPTUNE/module_ccpp_suite_simulator.F90 +++ b/physics/Interstitials/UFS_SCM_NEPTUNE/module_ccpp_suite_simulator.F90 @@ -121,7 +121,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 !> Type-bound procedure to compute tendency profile for time-of-day. @@ -153,6 +153,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 !> Type-bound procedure to find nearest location.