flux_from_SS_flux_ports_self Subroutine

public subroutine flux_from_SS_flux_ports_self(me)

Arguments

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

Called by

proc~~flux_from_ss_flux_ports_self~~CalledByGraph proc~flux_from_ss_flux_ports_self flux_from_SS_flux_ports_self proc~main_loop main_loop proc~main_loop->proc~flux_from_ss_flux_ports_self program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine flux_from_SS_flux_ports_self(me)
  type(strand_t), intent(inout) :: me

  ! in component
  me%flxS%wire(0)=me%SC_Prop%in%Flx
  me%flxS%wire_DerdTR(0)=me%SC_Prop%in%derFlx_derCon

  ! out component
  me%flxS%wire(me%SC_Prop%NbCells)=me%SC_Prop%out%Flx
  me%flxS%wire_DerdTL(me%SC_Prop%NbCells)=me%SC_Prop%out%derFlx_derCon

end subroutine flux_from_SS_flux_ports_self