Merge pull request #1490 from ExtremeFLOW/fix/tgv_enst

Fix computation of enstrophy on device backends
ExtremeFLOW · Sep 18, 2024 · d212096 · d212096
2 parents 2969cdb + 4e5fabb
commit d212096
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/tgv/tgv.f90 b/examples/tgv/tgv.f90
@@ -150,7 +150,7 @@ subroutine user_calc_quantities(t, tstep, u, v, w, p, coef, params)
        e1 = 0.5 * device_glsc2(w1%x_d, coef%B_d, ntot) / coef%volume
 
        call device_col3(w1%x_d, omega_x%x_d, omega_x%x_d, ntot)
-       call device_addcol3(w1%x_d, omega_x%x_d, omega_y%x_d, ntot)
+       call device_addcol3(w1%x_d, omega_y%x_d, omega_y%x_d, ntot)
        call device_addcol3(w1%x_d, omega_z%x_d, omega_z%x_d, ntot)
        e2 = 0.5 * device_glsc2(w1%x_d, coef%B_d, ntot) / coef%volume
     else