Removed code that pulled the current random seed prior to saving it t…

…o file so that we don't accidentally get out of sequence
MintonGroup · Dec 10, 2021 · e1cd6bc · e1cd6bc
1 parent 7f30fec
commit e1cd6bc
Showing 1 changed file with 0 additions and 1 deletion.
diff --git 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)