From 0295dbb3af6aa64dd617d106c8930d22d4f86de0 Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Thu, 24 Feb 2022 11:00:27 -0500
Subject: [PATCH] Changed invalid surface error to a true exception so that the
 driver can handle it

---
 src/crater/crater_populate.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90
index 3db1fa06..e60b68ce 100644
--- a/src/crater/crater_populate.f90
+++ b/src/crater/crater_populate.f90
@@ -345,9 +345,8 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt
       hmax = maxval(surf(:,:)%dem)
       hmin = minval(surf(:,:)%dem)
       if (any(surf(:,:)%dem /= surf(:,:)%dem)) then
-         write(*,*) 'Invalid surface elevation detected. Halting.'
          write(*,*) crater%imp, crater%impvel, crater%xl, crater%yl, crater%sinimpang
-         exit
+         error stop "Invalid surface elevation detected. Halting."
       end if
    end do  ! end crater production loop