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"