if (time_step_loc .lt. time_step_full) then
_RL time_step_full, time_step_rem
time_step_full = time_step_loc