Commit e448893d authored by Thomas Dubos's avatar Thomas Dubos
Browse files

Deactivate update for Euler scheme

parent 8dcef030
Pipeline #127493 failed with stages
in 60 minutes and 1 second
......@@ -51,7 +51,7 @@ CONTAINS
IF (is_omp_first_level) THEN
!DIR$ SIMD
DO ij=ij_begin,ij_end
ps(ij)=ps(ij)+dt*dps(ij)
! ps(ij)=ps(ij)+dt*dps(ij)
ENDDO
ENDIF
ELSE ! update mass
......@@ -72,7 +72,7 @@ CONTAINS
u=f_u(ind) ; theta_rhodz=f_theta_rhodz(ind)
du=f_du(ind) ; dtheta_rhodz=f_dtheta_rhodz(ind)
CALL compute_euler_scheme(u, du, theta_rhodz, dtheta_rhodz)
! CALL compute_euler_scheme(u, du, theta_rhodz, dtheta_rhodz)
ENDDO
CALL trace_end("Euler_scheme")
......
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