Remove char() inline during write to fates_log

NGEET · Jul 26, 2019 · 542452a · 542452a
1 parent d95e356
commit 542452a
Showing 1 changed file with 6 additions and 6 deletions.
diff --git 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