gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2024-06-01 23:41:28 -03:00
commit 9fbe586803
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sources/evolution.F90
View File

@ -1283,9 +1283,9 @@ module evolution
d(1:2) = sqrt(fnorm * d(1:2))
if (minval(d(1:2)) >= 1.0d-05) then
h0 = 1.0d-02 * d(1) / d(2)
h0 = min(dt, 1.0d-02 * d(1) / d(2))
else
h0 = 1.0d-06
h0 = dt
end if
m = 10
@ -1354,7 +1354,7 @@ module evolution
if (h1 > 1.0d-15) then
h1 = (1.0d-02 / h1)**(1.0d+00 / 3.0d+00)
else
h1 = max(1.0d-06, 1.0d-03 * h0)
h1 = max(dt, 1.0d-03 * h0)
end if
dte = min(1.0d+02 * h0, h1)