Fixed an (innucuous) bug on masource (thx ZG!)

schism-dev · Oct 10, 2022 · 1955928 · 1955928
1 parent 1178e2d
commit 1955928
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)), &