From a440912822b1635b980b5c2565423d4531258f44 Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Mon, 12 Apr 2021 11:41:08 -0400
Subject: [PATCH] Check that the quasimc flag is set before trying to read the
 craterlist

---
 src/main/CTEM.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/main/CTEM.f90 b/src/main/CTEM.f90
index 7214c3cc..24d5e8a3 100644
--- a/src/main/CTEM.f90
+++ b/src/main/CTEM.f90
@@ -88,7 +88,7 @@ program CTEM
 call io_read_vdist(vdist,user,domain)
 
 ! Read in real crater list for quasi-MC run
-call io_read_craterlist(rclist,user,domain)
+if (user%doquasimc) call io_read_craterlist(rclist,user,domain)
 !write(*,*) rclist
 
 write(*,*) "Initializing simulation domain and determining minimum impactor size"