diff --git a/sources/user_problem.F90 b/sources/user_problem.F90 index 3970de0..f262e37 100644 --- a/sources/user_problem.F90 +++ b/sources/user_problem.F90 @@ -863,8 +863,8 @@ module user_problem call reduce_sum(rterms(:)) #endif /* MPI */ - rterms(7) = eta * rterms(6) - rterms(8) = eta * rterms(7) + rterms(6) = eta * rterms(6) + rterms(7) = eta * rterms(7) write(runit,"(9es25.15e3)") time, rterms(1:8) call flush_and_sync(runit)