Changed uplifted rim height to be half of what the total height is

MintonGroup · Dec 6, 2016 · f062f3c · f062f3c
1 parent 9c9d21c
commit f062f3c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/globals/module_globals.f90 b/src/globals/module_globals.f90
@@ -274,7 +274,7 @@ module module_globals
 !real(DP),parameter :: CT = KT * 1.0077158813689795507466256218613060723322903283648264_DP ! KT * (PI*THIRD)**(SIXTH) 
 real(DP),parameter :: CT = KT * (PI*THIRD)**(SIXTH) 
 real(DP),parameter :: DDRATIO = 0.19_DP        ! ?
-real(DP),parameter :: RDRATIO = 0.040_DP      ! Rim height to diameter ratio
+real(DP),parameter :: RDRATIO = 0.020_DP      ! Rim height to diameter ratio
 real(DP),parameter :: RIMDROP = 4.22_DP        ! Power law index for rim profile 
 real(DP),parameter :: RIMFAC = 1.5_DP          ! ?
 real(DP),parameter :: TRSIM = 1.25_DP          ! ?