Cleanup and Zeuthen flow

At this moment the zfl_* routines only perform the Symanzik flow. The
extra term has to be added, but it should not impact timmings
This commit is contained in:
Alberto Ramos 2021-09-26 10:32:58 +02:00
parent 3d464a0325
commit 4eed0ebb42
6 changed files with 38 additions and 4 deletions

View file

@ -42,3 +42,36 @@ function wfl_rk3(U, ns, eps, lp::SpaceParm, ymws::YMworkspace)
return nothing
end
function zfl_euler(U, ns, eps, lp::SpaceParm, ymws::YMworkspace)
for i in 1:ns
force_gauge(ymws, U, 5.0/3.0, lp)
U .= expm.(U, ymws.frc1, 2*eps)
end
return nothing
end
function zfl_rk3(U, ns, eps, lp::SpaceParm, ymws::YMworkspace)
for i in 1:ns
c0 = eps/2
force_gauge(ymws, U, 5.0/3.0, lp)
ymws.mom .= ymws.frc1
U .= expm.(U, ymws.mom, c0)
c0 = -34*eps/36
c1 = 16*eps/9
force_gauge(ymws, U, 5.0/3.0, lp)
ymws.mom .= c0.*ymws.mom .+ c1.*ymws.frc1
U .= expm.(U, ymws.mom)
c1 = 6*eps/4
force_gauge(ymws, U, 5.0/3.0, lp)
ymws.mom .= c1.*ymws.frc1 .- ymws.mom
U .= expm.(U, ymws.mom)
end
return nothing
end