Make sure to close files when you are done with them

MintonGroup · Apr 29, 2020 · 3bc2d8c · 3bc2d8c
1 parent 2eae8bb
commit 3bc2d8c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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)