Merge pull request #5 from glemieux/glemieux-laweighthydro-fix-charfix

removing call the char() for log output
NGEET · Jul 26, 2019 · 8c24676 · 8c24676
2 parents 3b37b6f + e6a95ea
commit 8c24676
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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