bcasting fates history density level

rgknox · Jan 30, 2024 · cd289a1 · cd289a1
1 parent 8b7b4f7
commit cd289a1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/main/controlMod.F90 b/src/main/controlMod.F90
@@ -790,6 +790,7 @@ subroutine control_spmd()
     call mpi_bcast (fluh_timeseries, len(fluh_timeseries) , MPI_CHARACTER, 0, mpicom, ier)
     call mpi_bcast (fates_parteh_mode, 1, MPI_INTEGER, 0, mpicom, ier)
     call mpi_bcast (fates_seeddisp_cadence, 1, MPI_INTEGER, 0, mpicom, ier)
+    call mpi_bcast (fates_hist_dense_level, 2, MPI_INTEGER, 0, mpicom, ier)
 
     ! flexibleCN nitrogen model
     call mpi_bcast (use_flexibleCN, 1, MPI_LOGICAL, 0, mpicom, ier)