From 542452a6a9cc8bccd8d8056f51b7c5c6a443631d Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Fri, 26 Jul 2019 15:53:19 -0700 Subject: [PATCH] Remove char() inline during write to fates_log --- biogeophys/FatesPlantHydraulicsMod.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/biogeophys/FatesPlantHydraulicsMod.F90 b/biogeophys/FatesPlantHydraulicsMod.F90 index d16a6d75b8..9d9de2d086 100644 --- a/biogeophys/FatesPlantHydraulicsMod.F90 +++ b/biogeophys/FatesPlantHydraulicsMod.F90 @@ -3784,7 +3784,7 @@ subroutine flc_from_psi(ft, pm, psi_node, flc_node, site_hydr, bc_in ) bc_in%bsw_sisl(1), & flc_node) case default - write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = '//char(iswc) + write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = ', iswc call endrun(msg=errMsg(sourcefile, __LINE__)) end select end if @@ -3838,7 +3838,7 @@ subroutine dflcdpsi_from_psi(ft, pm, psi_node, dflcdpsi_node, site_hydr, bc_in ) bc_in%bsw_sisl(1), & dflcdpsi_node) case default - write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = '//char(iswc) + write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = ', iswc call endrun(msg=errMsg(sourcefile, __LINE__)) end select end if @@ -3886,7 +3886,7 @@ subroutine th_from_psi(ft, pm, psi_node, th_node, site_hydr, bc_in) call psi_from_th(ft, pm, th_node, psi_check ) if(psi_check > -1.e-8_r8) then - write(fates_log(),*)'bisect_pv returned positive value for water potential at pm = ', char(pm) + write(fates_log(),*)'bisect_pv returned positive value for water potential at pm = ', pm call endrun(msg=errMsg(sourcefile, __LINE__)) end if @@ -3917,7 +3917,7 @@ subroutine th_from_psi(ft, pm, psi_node, th_node, site_hydr, bc_in) bc_in%watsat_sisl(1), & th_node) case default - write(fates_log(),*) 'invalid soil water characteristic function specified, iswc = '//char(iswc) + write(fates_log(),*) 'invalid soil water characteristic function specified, iswc = ', iswc call endrun(msg=errMsg(sourcefile, __LINE__)) end select end if @@ -4035,7 +4035,7 @@ subroutine psi_from_th(ft, pm, th_node, psi_node, site_hydr, bc_in) bc_in%bsw_sisl(1), & psi_node) case default - write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = '//char(iswc) + write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = ', iswc call endrun(msg=errMsg(sourcefile, __LINE__)) end select @@ -4086,7 +4086,7 @@ subroutine dpsidth_from_th(ft, pm, th_node, y, site_hydr, bc_in) bc_in%bsw_sisl(1), & y) case default - write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = '//char(iswc) + write(fates_log(),*) 'ERROR: invalid soil water characteristic function specified, iswc = ', iswc call endrun(msg=errMsg(sourcefile, __LINE__)) end select end if