channels_to_FF_src_port_comm Subroutine

public subroutine channels_to_FF_src_port_comm(me)

Arguments

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

Called by

proc~~channels_to_ff_src_port_comm~~CalledByGraph proc~channels_to_ff_src_port_comm channels_to_FF_src_port_comm proc~main_loop main_loop proc~main_loop->proc~channels_to_ff_src_port_comm program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

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

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