Commit 47c937d4 authored by Yu-Hsiang Lan's avatar Yu-Hsiang Lan Committed by Stefan K
Browse files

fix variable mg_lmax in hsmg.f (#620)

#619
parent ef4b68da
......@@ -2292,6 +2292,7 @@ c if (np.eq.1) param(82)=2 ! single proc. too slow
c mg_h1_lmax = 4
if (lx1.eq.4) mg_h1_lmax = 2
c if (param(79).ne.0) mg_h1_lmax = param(79)
mg_lmax = mg_h1_lmax
mglx1 = p82-1 !1
mg_nx(1) = mglx1
mg_ny(1) = mglx1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment