Save the current value of of the random seed array to the dump file so that restarts are identical

MintonGroup · May 25, 2021 · d715674 · d715674
1 parent 0e62487
commit d715674
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/user/user_dump_param.f90 b/src/user/user_dump_param.f90
@@ -27,6 +27,7 @@ module subroutine user_dump_param(param,t)
       param_dump%inplfile = trim(adjustl(DUMP_PL_FILE(idx))) 
       param_dump%intpfile = trim(adjustl(DUMP_TP_FILE(idx))) 
       param_dump%in_type = "REAL8"
+      call random_seed(get = param_dump%seed)
       open(unit = LUN, file = DUMP_PARAM_FILE(idx), status='replace', form = 'formatted', iostat =ierr)
       if (ierr /=0) then
          write(*,*) 'Swiftest error.'