Bugfixes and minor improvements

build/source/engine/run_oneGRU.f90

@@ -135,7 +135,7 @@ subroutine run_oneGRU(&
  logical(lgt)                            :: computeVegFluxFlag     ! flag to indicate if we are computing fluxes over vegetation (.false. means veg is buried with snow)
 
  ! initialize error control
- err=0; message='run_oneGRU/'
+ err=0; write(message, '(A24,I0,A2)' ) 'run_oneGRU (gru index = ',gruInfo%gru_nc,')/'
 
  ! ----- basin initialization --------------------------------------------------------------------------------------------
 
@@ -194,7 +194,7 @@ subroutine run_oneGRU(&
                   ! error control
                   err,cmessage)                      ! intent(out):   error control
   if(err/=0)then; err=20; message=trim(message)//trim(cmessage); return; endif
-
+ 
   ! update layer numbers that could be changed in run_oneHRU -- needed for model output
   gruInfo%hruInfo(iHRU)%nSnow = nSnow
   gruInfo%hruInfo(iHRU)%nSoil = nSoil

build/source/engine/run_oneHRU.f90

@@ -140,7 +140,7 @@ subroutine run_oneHRU(&
  real(dp)          , allocatable   :: zSoilReverseSign(:) ! height at bottom of each soil layer, negative downwards (m)
 
  ! initialize error control
- err=0; message='run_oneHRU/'
+ err=0; write(message, '(A20,I0,A2)' ) 'run_oneHRU (hruId = ',hruId,')/'
 
  ! ----- hru initialization ---------------------------------------------------------------------------------------------