Removed some old unused seismic shaking calcs that were causing an FPE

MintonGroup · Sep 19, 2023 · eaeafeb · eaeafeb
1 parent 00c7734
commit eaeafeb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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.