links_SSfluxLink_update Subroutine

public subroutine links_SSfluxLink_update(me, dt)

Arguments

Type IntentOptional Attributes Name
type(SSfluxLink_t), intent(inout) :: me
real(kind=dp), intent(in) :: dt

Called by

proc~~links_ssfluxlink_update~~CalledByGraph proc~links_ssfluxlink_update links_SSfluxLink_update proc~main_loop main_loop proc~main_loop->proc~links_ssfluxlink_update program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine links_SSfluxLink_update(me,dt)
    type(SSfluxLink_t), intent(inout) :: me
    real(dp), intent(in) :: dt
    real(dp) :: VarcentreeS_1, VarcentreeS_2

    VarcentreeS_1=1.0_dp/(me%solLk(1)%p%rhoMS*me%solLk(1)%p%cpMs)
    me%Lk12=me%solLk(1)%p%Sgn4lk*(dt/me%solLk(1)%p%dxLoc)*VarcentreeS_1*me%derFlx_derOth12

    VarcentreeS_2=1.0_dp/(me%solLk(2)%p%rhoMS*me%solLk(2)%p%cpMs)
    me%Lk21=me%solLk(2)%p%Sgn4lk*(dt/me%solLk(2)%p%dxLoc)*VarcentreeS_2*me%derFlx_derOth21

end subroutine links_SSfluxLink_update