From 32fff4e044ebb6c5cf89f3eaaf91d75192e0392b Mon Sep 17 00:00:00 2001
From: daminton <daminton@purdue.edu>
Date: Fri, 2 Dec 2016 21:34:49 +0000
Subject: [PATCH] Added ability to alter ejecta thickness based on the relative
 slope of the impact site to the downrange location.

---
 src/ejecta/module_ejecta.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ejecta/module_ejecta.f90 b/src/ejecta/module_ejecta.f90
index a7fc64f3..83c4ada7 100644
--- 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