surface: add forgotten velocity parameter namelist entry and mpi exch…

…ange
dalesteam · Nov 13, 2023 · 0c64c5b · 0c64c5b
1 parent 9314706
commit 0c64c5b
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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."