Merge branch 'quasimc' of https://github.itap.purdue.edu/MintonGroup/…

…CTEM into quasimc
MintonGroup · Jul 18, 2022 · 722c9a1 · 722c9a1
2 parents 8dd3d25 + 53d2383
commit 722c9a1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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