source_from_FS_ports_self_channel Subroutine

public subroutine source_from_FS_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_fs_ports_self_channel~~CalledByGraph proc~source_from_fs_ports_self_channel source_from_FS_ports_self_channel proc~main_loop main_loop proc~main_loop->proc~source_from_fs_ports_self_channel program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

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

    integer :: i
    
    if(me%HeProp%ExtHeating=='link') 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%thermP(i)%p%DerSrcP_Se(:)
        me%big%bmx(1:Nb_VarC,Con_R,i)=me%big%bmx(1:Nb_VarC,Con_R,i)-dt*me%HeProp%thermP(i)%p%DerSrcP_Sr(:)
    
        me%big%bvx(Con_Ene,i)=me%big%bvx(Con_Ene,i)+dt*me%HeProp%thermP(i)%p%rhs_SrcP_Se
        me%big%bvx(Con_R,i)=me%big%bvx(Con_R,i)+dt*me%HeProp%thermP(i)%p%rhs_SrcP_Sr
      enddo
    endif

end subroutine source_from_FS_ports_self_channel