Put back melt zone calculation

MintonGroup · Jul 23, 2021 · fbcd4da · fbcd4da
1 parent 92a72d9
commit fbcd4da
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90
@@ -119,9 +119,13 @@ subroutine ejecta_emplace(user,surf,crater,domain,ejb,ejtble,deltaMtot,age,age_r
    real(DP)      :: vsq, ejtheta
    integer(I4B) :: ind,klo
 
+   ! Age
+   real(SP) :: age_mean
+
+
    ! Executable code
 
-   !call regolith_melt_zone(user,crater,crater%imp,crater%impvel,rm,dm)
+   call regolith_melt_zone(user,crater,crater%imp,crater%impvel,rm,dm)
 
    cdepth = DDRATIO * crater%fcrat
    crater%vdepth = crater%ejrim + cdepth