temporarily fix viscosity ratio to 5

2020-10-27 08:06:01 +09:00 · 2020-10-27 08:06:01 +09:00 · 0ca93a2597
commit 0ca93a2597
parent c5abbc2e3b
1 changed files with 1 additions and 0 deletions
--- a/code/ysolve.f90
+++ b/code/ysolve.f90
@ -670,6 +670,7 @@
     REAL FUNCTION diffusivity_sutherland(c)
         REAL, INTENT(IN) :: c
         REAL :: theta, As, Ts, T0, T1
+         REAL, PARAMETER :: rvis=5.0d0
         T0 = 1.0
         T1 = (1.0 + bc)