Added missing age component of regolith data structure

MintonGroup · Jul 23, 2021 · 638bd45 · 638bd45
1 parent d32eaeb
commit 638bd45
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/globals/module_globals.f90 b/src/globals/module_globals.f90
@@ -58,10 +58,12 @@ module module_globals
 real(DP),parameter :: ALPHA = 0.125_DP
 real(DP),parameter  :: DISEJB = 100.0_DP       ! The extent of discontinuous ejecta in the unit of crater radii. It is used in ejecta_table_define.f90
 real(DP),parameter :: RCONT = 2.25267_DP       ! Coefficient of continuous ejecta size power law from Moore et al. (1974) - scaled from km to m
-real(DP),parameter :: EXPCONT = 1.006_DP       ! Exponentt of continuous ejecta size power law from Moore et al. (1974) 
+real(DP),parameter :: EXPCONT = 1.006_DP       ! Exponent of continuous ejecta size power law from Moore et al. (1974) 
+integer(I2B),parameter :: MAXAGEBINS=60       ! Maximum number of bins in age distribution reset by impact melting
 
 
 type regodatatype 
+   real(SP),dimension(MAXAGEBINS) :: age 
    real(DP) :: thickness
    real(DP) :: meltfrac 
    real(DP) :: comp