Put back Jun's newer realistic function

MintonGroup · Sep 8, 2023 · 762f589 · 762f589
1 parent bb93155
commit 762f589
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90
@@ -320,7 +320,7 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt
 
          if (user%doregotrack) call regolith_interior(user,surf,crater,domain,incval,nmeltsheet,vmeltsheet)
 
-         if (user%dorealistic) call crater_realistic_topography(user,surf,crater,domain,ejecta_dem) 
+         if (user%dorealistic) call realistic_crater_topography(user,surf,crater,domain,ejecta_dem) 
          deallocate(ejecta_dem)
 
          ! Collapse any remaining unstable slopes