diff --git a/src/modsurface.f90 b/src/modsurface.f90
index 914f7563..4023dc22 100644
--- a/src/modsurface.f90
+++ b/src/modsurface.f90
@@ -99,7 +99,8 @@ subroutine initsurface
       !2leaf AGS, sunlit/shaded
       lsplitleaf, &
       ! Exponential emission function
-      i_expemis, expemis0, expemis1, expemis2
+      i_expemis, expemis0, expemis1, expemis2, &
+      min_horv
 
 
     ! 1    -   Initialize soil
@@ -172,6 +173,8 @@ subroutine initsurface
     call D_MPI_BCAST(expemis1                   ,            1, 0, comm3d, mpierr)
     call D_MPI_BCAST(expemis2                   ,            1, 0, comm3d, mpierr)
 
+    call D_MPI_BCAST(min_horv                   ,            1, 0, comm3d, mpierr)
+
     if(lCO2Ags .and. (.not. lrsAgs)) then
       if(myid==0) print *,"WARNING::: You set lCO2Ags to .true., but lrsAgs to .false."
       if(myid==0) print *,"WARNING::: Since AGS does not run, lCO2Ags will be set to .false. as well."