Changed invalid surface error to a true exception so that the driver can handle it

MintonGroup · Feb 24, 2022 · 0295dbb · 0295dbb
1 parent 4698626
commit 0295dbb
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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