v_prim_to_v_Conss Subroutine

public subroutine v_prim_to_v_Conss(i, Prim, Cons)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
real(kind=dp), intent(in) :: Prim(:,:)
real(kind=dp), intent(inout) :: Cons(:,:)

Called by

proc~~v_prim_to_v_conss~~CalledByGraph proc~v_prim_to_v_conss v_prim_to_v_Conss proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~v_prim_to_v_conss program~reims_p reims_p program~reims_p->proc~channel_init_part1

Source Code

subroutine v_prim_to_v_Conss(i,Prim,Cons)  
    integer, intent(in) :: i
    real(dp), intent(in) :: Prim(:,:)
    real(dp), intent(inout) :: Cons(:,:)
    
    Cons(Con_Mas,i)=Prim(Pri_ro,i)
    Cons(Con_Qdm,i)=Prim(Pri_ro,i)*Prim(Pri_u,i)
    Cons(Con_Ene,i)=Prim(Pri_ro,i)*(Prim(Pri_e,i)+0.5_dp*Prim(Pri_u,i)**2)
    Cons(Con_R,i)=Prim(Pri_R,i)
end subroutine v_prim_to_v_Conss