From 3bc2d8c9c8eaca19a0d1f5ddbf590de434f8be99 Mon Sep 17 00:00:00 2001
From: David Minton <daminton@purdue.edu>
Date: Wed, 29 Apr 2020 17:39:33 -0400
Subject: [PATCH] Make sure to close files when you are done with them

---
 src/crater/crater_realistic_topography.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/crater/crater_realistic_topography.f90 b/src/crater/crater_realistic_topography.f90
index 44cd93dd..54168914 100644
--- a/src/crater/crater_realistic_topography.f90
+++ b/src/crater/crater_realistic_topography.f90
@@ -647,6 +647,7 @@ subroutine ejecta_texture(user,surf,crater,deltaMtot,inc,ejecta_dem)
    read(12,*) num_octaves
    read(12,*) xy_noise_fac
    read(12,*) noise_height
+   close(12)
 
    ! Get the ejecta mass
    ejbmass = sum(ejecta_dem)