From 762f589196026b306b1e71237d9ffd0e92090ec5 Mon Sep 17 00:00:00 2001 From: MintoDA1 <51412913+MintoDA1@users.noreply.github.com> Date: Fri, 8 Sep 2023 15:21:47 -0400 Subject: [PATCH] Put back Jun's newer realistic function --- src/crater/crater_populate.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90 index 7f36bf92..3c3ef7e7 100644 --- 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