source_from_FF_src_ports_self_channel Subroutine

public subroutine source_from_FF_src_ports_self_channel(me, dt)

Arguments

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

Called by

proc~~source_from_ff_src_ports_self_channel~~CalledByGraph proc~source_from_ff_src_ports_self_channel source_from_FF_src_ports_self_channel proc~main_loop main_loop proc~main_loop->proc~source_from_ff_src_ports_self_channel program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine source_from_FF_src_ports_self_channel(me,dt)
    type(channel_t), intent(inout) :: me
    real(dp), intent(in) :: dt

    integer :: i
    
    if(me%HeProp%FFsrcLink) then
      do i=1,me%HeProp%NbCells
        me%big%bmx(1:Nb_VarC,Con_Ene,i)=me%big%bmx(1:Nb_VarC,Con_Ene,i)-dt*me%HeProp%thermF(i)%p%DerSe(:)
        me%big%bmx(1:Nb_VarC,Con_R,i)=me%big%bmx(1:Nb_VarC,Con_R,i)-dt*me%HeProp%thermF(i)%p%DerSr(:)
    
        me%big%bvx(Con_Ene,i)=me%big%bvx(Con_Ene,i)+dt*me%HeProp%thermF(i)%p%rhs_Se
        me%big%bvx(Con_R,i)=me%big%bvx(Con_R,i)+dt*me%HeProp%thermF(i)%p%rhs_Sr
      enddo
    endif

end subroutine source_from_FF_src_ports_self_channel