From 57b098a42bec0c90e2ebf1d3a176628af8e04c74 Mon Sep 17 00:00:00 2001 From: daminton Date: Tue, 6 Dec 2016 15:23:00 +0000 Subject: [PATCH] Removed obsolete tally components. --- src/globals/module_globals.f90 | 7 ------- 1 file changed, 7 deletions(-) diff --git a/src/globals/module_globals.f90 b/src/globals/module_globals.f90 index f58a0a92..141bfbc4 100644 --- a/src/globals/module_globals.f90 +++ b/src/globals/module_globals.f90 @@ -74,12 +74,8 @@ module module_globals type surftype real(DP),dimension(MAXLAYER) :: diam real(SP),dimension(MAXLAYER) :: xl,yl ! Crater center - real(SP),dimension(MAXLAYER) :: original_depth ! Original crater depth (used for crater counting) - real(SP),dimension(MAXLAYER) :: baseline ! Slope-corrected baseline of measurement for crater elevations - integer(I2B),dimension(MAXLAYER) :: isrim ! 1 if the pixel was part of the original rim and 0 if part of the bowl real(DP) :: ejcov ! Ejecta coverage real(DP) :: dem ! Digital elevation model - real(DP) :: demOrig ! Original digital elevation model used for mass conservation calculation real(DP) :: mantle ! Height of mantle (should be smaller than dem) type(regolisttype),pointer :: regolayer => null() ! Pointer to the top of the regolith layer stack end type surftype @@ -249,9 +245,6 @@ module module_globals character(*),parameter :: STACKNUMFILE = 'surface_stacknum.dat' !character(*),parameter :: THICKFILE = 'surface_crustal_thickness.dat' character(*),parameter :: POSFILE = 'surface_pos.dat' -character(*),parameter :: ELEVFILE = 'surface_original_crater_depth.dat' -character(*),parameter :: BASEFILE = 'surface_baseline.dat' -character(*),parameter :: RIMFILE = 'surface_isrim.dat' character(*),parameter :: TDISTFILE = 'tdistribution.dat' character(*),parameter :: TLISTFILE = 'tcumulative.dat' character(*),parameter :: ODISTFILE = 'odistribution.dat'