From 638bd453665bb00a93b4739b43cdb7e097a5c85d Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 23 Jul 2021 15:17:27 -0400 Subject: [PATCH] Added missing age component of regolith data structure --- src/globals/module_globals.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/globals/module_globals.f90 b/src/globals/module_globals.f90 index d9443b18..15eed07f 100644 --- 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