diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90 index 409dfe58..6bef8315 100644 --- a/src/crater/crater_populate.f90 +++ b/src/crater/crater_populate.f90 @@ -396,6 +396,7 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt write(*,*) crater%imp, crater%impvel, crater%xl, crater%yl, crater%sinimpang error stop "Invalid surface elevation detected. Halting." end if + oldGa = crater%timestampGa end do ! end crater production loop if (ntrue > 0) then