From 53d23834d9663fa5c07e0f33daeaa8630380c273 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Mon, 18 Jul 2022 13:12:16 -0400 Subject: [PATCH] Changed RAD_GP to 1 per Ya-Huei's request --- src/globals/module_globals.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/globals/module_globals.f90 b/src/globals/module_globals.f90 index 6da3fb25..8013b051 100644 --- a/src/globals/module_globals.f90 +++ b/src/globals/module_globals.f90 @@ -61,7 +61,7 @@ module module_globals 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 ! Exponent of continuous ejecta size power law from Moore et al. (1974) real(DP),parameter :: PF = 5.0e9 ! The shock pressure exceeding the hungoit elastic limit of common geological materials in Pa. (5 GPa) -real(DP),parameter :: RAD_GP = 20.0_DP ! The maximum radial position of producing impact glass spherules within a transient crater (unit of crater radii, crater%rad) +real(DP),parameter :: RAD_GP = 1.0_DP ! The maximum radial position of producing impact glass spherules within a transient crater (unit of crater radii, crater%rad) type regodatatype