From eaeafeb1504a94631ee38ca0dda5a0180a7c360e Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Tue, 19 Sep 2023 15:40:27 -0400
Subject: [PATCH] Removed some old unused seismic shaking calcs that were
 causing an FPE

---
 src/init/init_domain.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/init/init_domain.f90 b/src/init/init_domain.f90
index a1010f28..79317177 100644
--- a/src/init/init_domain.f90
+++ b/src/init/init_domain.f90
@@ -75,8 +75,8 @@ subroutine init_domain(user,crater,domain,prod,pdist,vdist,crtscl,nflux)
    end select
 
    ! Preliminary seismic property calculations
-   user%seisk = THIRD * user%tvel * user%tfrac
-   user%cohaccel = user%regcoh / user%trho_r
+   ! user%seisk = THIRD * user%tvel * user%tfrac
+   ! user%cohaccel = user%regcoh / user%trho_r
 
    ! Now we build an idealized production population
    domain%initialize = .true.