FF_src_port_to_channels_comm Subroutine

public subroutine FF_src_port_to_channels_comm(me)

Arguments

Type IntentOptional Attributes Name
type(channel_t), intent(inout) :: me

Called by

proc~~ff_src_port_to_channels_comm~~CalledByGraph proc~ff_src_port_to_channels_comm FF_src_port_to_channels_comm proc~main_loop main_loop proc~main_loop->proc~ff_src_port_to_channels_comm program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine FF_src_port_to_channels_comm(me)
    type(channel_t), intent(inout) :: me
    
    integer :: jj

    if(me%HeProp%FFsrcLink) then
      do jj=1,me%HeProp%NbCells
        me%StVar%He_pr(:,jj) = me%HeProp%thermF(jj)%p%Prim(:)
        me%StVar%He_cs(:,jj) = me%HeProp%thermF(jj)%p%Cons(:)
      enddo
    endif
        
end subroutine FF_src_port_to_channels_comm