Added frequent flushing of log file

main/ym.jl

@@ -161,6 +161,9 @@ for i in 1:nthm
                 i, nthm, acc[i] ? "true " : "false", dh[i], pl[i],
                 sfc[i,1], sfc[i,2])
     end
+    if i%10 == 0
+        flush(flog)
+    end
 end
 
 
@@ -204,6 +207,10 @@ for i in 1:nt
         Qt[end,kfl]  = Qtop(U, gp, lp, ymws)
     end
     U .= ymws.U1
+
+    if i%10 == 0
+        flush(flog)
+    end
 end
 
 print_timer(flog)