diff --git a/src/user/user_dump_param.f90 b/src/user/user_dump_param.f90 index 7c3792b33..e464a149c 100644 --- 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.'