Fixed a bug that should hopefully enable faster calculations of real …

…time
MintonGroup · Aug 2, 2023 · 870fc9a · 870fc9a
1 parent 3aa3f62
commit 870fc9a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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