From e1cd6bc480379cf403b9fc7bcc23d6a0abf48612 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 10 Dec 2021 12:57:53 -0500 Subject: [PATCH] Removed code that pulled the current random seed prior to saving it to file so that we don't accidentally get out of sequence --- src/main/CTEM.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/src/main/CTEM.f90 b/src/main/CTEM.f90 index b7289b0d..986356c8 100644 --- a/src/main/CTEM.f90 +++ b/src/main/CTEM.f90 @@ -124,7 +124,6 @@ program CTEM fracdone,nflux,ntotcrat,curyear,rclist) ! Get the last seed and save it to file - call random_seed(get=crater%seedarr) totalimpacts = totalimpacts + ntotcrat call io_write_const(totalimpacts,ncount,curyear,restart,fracdone,masstot,crater%seedarr) call crater_tally_true(domain,truelist(:,1:ntrue),ntrue,truedist)