Added ability to alter ejecta thickness based on the relative slope o…

…f the impact site to the downrange location.
MintonGroup · Dec 2, 2016 · 32fff4e · 32fff4e
1 parent cb00421
commit 32fff4e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/ejecta/module_ejecta.f90 b/src/ejecta/module_ejecta.f90
@@ -104,7 +104,7 @@ end subroutine ejecta_table_define
    end interface
 
    interface
-      subroutine ejecta_interpolate(crater,domain,lrad,ejb,ejtble,ebh,vsq,theta,melt)
+      subroutine ejecta_interpolate(crater,domain,lrad,ejb,ejtble,ebh,vsq,theta,erad,melt)
       use module_globals
       implicit none
       type(cratertype),intent(in) :: crater
@@ -114,7 +114,7 @@ subroutine ejecta_interpolate(crater,domain,lrad,ejb,ejtble,ebh,vsq,theta,melt)
       type(ejbtype),dimension(ejtble),intent(in) :: ejb
       real(DP),intent(out) :: ebh
       real(DP),intent(out),optional :: vsq,theta
-      real(DP),intent(out),optional :: melt
+      real(DP),intent(out),optional :: erad,melt
       end subroutine ejecta_interpolate
    end interface