Commit a2ce15e8 authored by Lorenzo Micalizzi's avatar Lorenzo Micalizzi
Browse files

Corrected the wrong sign of the source in variable_def_sw.f90

parent 8f106f04
......@@ -121,7 +121,7 @@ CONTAINS
INTEGER , INTENT(IN) :: test
TYPE(PVar) :: s
s%u(1) = 0._dp
s%u(2) = grav*e%u(1)*deriv_bathymetry(test,x(1))
s%u(2) = -grav*e%u(1)*deriv_bathymetry(test,x(1))
END FUNCTION source_sw
FUNCTION Jacobian_sw(Var,x) RESULT(J)
......
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