From e6a95ea788606a5b86c1705831838da755df77b4 Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Fri, 26 Jul 2019 14:48:29 -0700 Subject: [PATCH] removing call the char() for log output --- biogeophys/FatesPlantHydraulicsMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/biogeophys/FatesPlantHydraulicsMod.F90 b/biogeophys/FatesPlantHydraulicsMod.F90 index c8cf41ba32..d16a6d75b8 100644 --- a/biogeophys/FatesPlantHydraulicsMod.F90 +++ b/biogeophys/FatesPlantHydraulicsMod.F90 @@ -3479,7 +3479,7 @@ subroutine Hydraulics_1DSolve(cc_p, ft, z_node, v_node, ths_node, thr_node, kmax end if end do if(catch_nan) then - write(fates_log(),*)'EDPlantHydraulics returns nan at k = ', char(index_nan) + write(fates_log(),*)'EDPlantHydraulics returns nan at k = ', index_nan call endrun(msg=errMsg(sourcefile, __LINE__)) end if