diff --git a/src/ejecta/ejecta_emplace.f90 b/src/ejecta/ejecta_emplace.f90 index 4b6dbf8a..de0e8e6e 100644 --- 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