Check that the quasimc flag is set before trying to read the craterlist

MintonGroup · Apr 12, 2021 · a440912 · a440912
1 parent 8db3811
commit a440912
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"