channels_FF_flux_port_comm Subroutine

public subroutine channels_FF_flux_port_comm(me)

Arguments

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

Called by

proc~~channels_ff_flux_port_comm~~CalledByGraph proc~channels_ff_flux_port_comm channels_FF_flux_port_comm proc~main_loop main_loop proc~main_loop->proc~channels_ff_flux_port_comm program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine channels_FF_flux_port_comm(me)
    type(channel_t), intent(inout) :: me

    me%HeProp%in%Prim(:)         = me%StVar%He_pr(:,1)
    me%HeProp%in%Cons(:)         = me%StVar%He_cs(:,1)
    me%HeProp%in%Su_fric        = me%srcPP%Su(1)
    me%HeProp%in%DerSu_fric(:)  = me%srcPP%DerSu(:,1)
    me%HeProp%in%Sr_fric        = me%srcPP%Sr(1)
    me%HeProp%in%DerSr_fric(:)  = me%srcPP%DerSr(:,1)
        
    me%HeProp%out%Prim(:)        = me%StVar%He_pr(:,me%HeProp%NbCells)
    me%HeProp%out%Cons(:)        = me%StVar%He_cs(:,me%HeProp%NbCells)
    me%HeProp%out%Su_fric       = me%srcPP%Su(me%HeProp%NbCells)
    me%HeProp%out%DerSu_fric(:) = me%srcPP%DerSu(:,me%HeProp%NbCells)
    me%HeProp%out%Sr_fric       = me%srcPP%Sr(me%HeProp%NbCells)
    me%HeProp%out%DerSr_fric(:) = me%srcPP%DerSr(:,me%HeProp%NbCells)
        
end subroutine channels_FF_flux_port_comm