Skip to content

ExaHyPE-Engine
ExaHyPE-Engine
Commit d0b6e67f authored by Francesco's avatar Francesco
Browse files
Options

fix in the eigenvectors of GRHD

parent 20e6919c
Pipeline #176148 passed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 9 additions and 9 deletions
    ApplicationExamples/FOCCZ4/FOCCZ4/GRMHD.f90
    View file @ d0b6e67f
    ......@@ -4535,16 +4535,16 @@ RECURSIVE SUBROUTINE PDEEigenvectorsGRMHD(R,L,iR,Q,nv)
    ENDIF
    !
    ! to be sure that we use the same routine
    CALL PDEEigenvaluesGRMHD(lambda,Q,nv)
    !CALL PDEEigenvaluesGRMHD(lambda,Q,nv)
    Lambda(1) = ( u*(1.0-cs2) - SQRT( cs2*lf2m*( (1.0-v2*cs2)*gg - u**2*(1.0-cs2) )) )*den
    Lambda(2:4) = u
    Lambda(5) = ( u*(1.0-cs2) + SQRT( cs2*lf2m*( (1.0-v2*cs2)*gg - u**2*(1.0-cs2) )) )*den
    Lambda_ia(1:5) = Lambda(1:5)
    Lambda(1:5) = lapse*Lambda(1:5) - sft
    !
    !Lambda(1) = ( u*(1.0-cs2) - SQRT( cs2*lf2m*( (1.0-v2*cs2)*gg - u**2*(1.0-cs2) )) )*den
    !Lambda(2:4) = u
    !Lambda(5) = ( u*(1.0-cs2) + SQRT( cs2*lf2m*( (1.0-v2*cs2)*gg - u**2*(1.0-cs2) )) )*den
    !Lambda_ia(1:5) = Lambda(1:5)
    !Lambda(1:5) = lapse*Lambda(1:5) - sft
    !!
    !Lambda(6:) = 0.
    !
    Lambda(6:) = 0.
    !
    ! sv = (/ 1., 1., 1. /) - ABS(nv)
    ! sv = sv/SQRT(SUM(sv(:)**2))
    ......
    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