From 14a5677b8346a757a257b597151b7497469fd7a8 Mon Sep 17 00:00:00 2001 From: David Minton Date: Tue, 10 Sep 2019 10:35:07 -0400 Subject: [PATCH 1/3] Updated version number for stable version --- 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 51ed36c1..91a64547 100644 --- a/src/globals/module_globals.f90 +++ b/src/globals/module_globals.f90 @@ -14,7 +14,7 @@ module module_globals implicit none public -character(len=*),parameter :: CTEMVER = "1.3 DEVELOPMENT" +character(len=*),parameter :: CTEMVER = "1.4 DEVELOPMENT" ! Symbolic names for kind types of 4-, 2-, and 1-byte integers: integer, parameter :: I8B = selected_int_kind(17) From c45cbbffa0c3bc6cc8f22b069d7413dbd729fd86 Mon Sep 17 00:00:00 2001 From: David Minton Date: Tue, 10 Sep 2019 10:35:07 -0400 Subject: [PATCH 2/3] Updated version number for stable version. This is the version of the code used in Minton et al. (2019) --- 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 51ed36c1..91a64547 100644 --- a/src/globals/module_globals.f90 +++ b/src/globals/module_globals.f90 @@ -14,7 +14,7 @@ module module_globals implicit none public -character(len=*),parameter :: CTEMVER = "1.3 DEVELOPMENT" +character(len=*),parameter :: CTEMVER = "1.4 DEVELOPMENT" ! Symbolic names for kind types of 4-, 2-, and 1-byte integers: integer, parameter :: I8B = selected_int_kind(17) From cfad544d9050d28b9a205a2ed5593d4a4a33e1e9 Mon Sep 17 00:00:00 2001 From: David Minton Date: Tue, 10 Sep 2019 10:38:53 -0400 Subject: [PATCH 3/3] Updated reference to Minton et al. 2019 to correct year --- src/globals/module_globals.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/globals/module_globals.f90 b/src/globals/module_globals.f90 index 91a64547..f2c0c31d 100644 --- a/src/globals/module_globals.f90 +++ b/src/globals/module_globals.f90 @@ -184,9 +184,9 @@ module module_globals real(DP) :: regcoh ! target surface regolith layer cohesion ! Crater diffusion input parameters - real(DP) :: Kd1 ! Degradation function coefficient (from Minton et al. (2018)) - real(DP) :: psi ! Degradation function exponent (from Minton et al. (2018)) - real(DP) :: fe ! Scale factor for size of degradation region (from Minton et al. (2018)) + real(DP) :: Kd1 ! Degradation function coefficient (from Minton et al. (2019)) + real(DP) :: psi ! Degradation function exponent (from Minton et al. (2019)) + real(DP) :: fe ! Scale factor for size of degradation region (from Minton et al. (2019)) ! Ejecta softening variables logical :: dosoftening ! Set T to use the extra crater softening model