From 870fc9ae5dbdaccaa8e2ec01b3402f8d161ac3ab Mon Sep 17 00:00:00 2001
From: Austin Michael Blevins <blevins2@brown-a010.rcac.purdue.edu>
Date: Wed, 2 Aug 2023 14:49:31 -0400
Subject: [PATCH] Fixed a bug that should hopefully enable faster calculations
 of real time

---
 src/crater/crater_populate.f90 | 1 +
 1 file changed, 1 insertion(+)

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