flux_from_FF_flux_ports_self Subroutine

public subroutine flux_from_FF_flux_ports_self(me)

Arguments

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

Called by

proc~~flux_from_ff_flux_ports_self~~CalledByGraph proc~flux_from_ff_flux_ports_self flux_from_FF_flux_ports_self proc~main_loop main_loop proc~main_loop->proc~flux_from_ff_flux_ports_self program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

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

    ! in component
    me%flxHe%Cons(:,0)=me%HeProp%in%flx(:)
    me%flxHe%VitTNC(0)=me%HeProp%in%vit
    me%flxHe%Cons_DerdUR(:,:,0)=me%HeProp%in%derFlx_derCon(:,:)
    me%flxHe%VitTNC_DerdUR(:,0)=me%HeProp%in%derVit_derCon(:)

    ! out component
    me%flxHe%Cons(:,me%HeProp%NbCells)=me%HeProp%out%flx(:)
    me%flxHe%VitTNC(me%HeProp%NbCells)=me%HeProp%out%vit
    me%flxHe%Cons_DerdUL(:,:,me%HeProp%NbCells)=me%HeProp%out%derFlx_derCon(:,:)
    me%flxHe%VitTNC_DerdUL(:,me%HeProp%NbCells)=me%HeProp%out%derVit_derCon(:)
        
end subroutine flux_from_FF_flux_ports_self