diff --git a/src/Hydro/schism_init.F90 b/src/Hydro/schism_init.F90
index 257dfb0d..b9fdb6b0 100644
--- a/src/Hydro/schism_init.F90
+++ b/src/Hydro/schism_init.F90
@@ -2831,7 +2831,7 @@ subroutine schism_init(iorder,indir,iths,ntime)
         endif !myrank=0
         call mpi_bcast(nsources,1,itype,0,comm,istat)
         call mpi_bcast(nsinks,1,itype,0,comm,istat)
-        call mpi_bcast(th_dt3,nthfiles2,rtype,0,comm,istat)
+        call mpi_bcast(th_dt3,nthfiles3,rtype,0,comm,istat)
 
         if(iorder==0) then
           allocate(ieg_source(max(1,nsources)),ieg_sink(max(1,nsinks)), &