source_from_SS_src_ports_self_solid Subroutine

public subroutine source_from_SS_src_ports_self_solid(me, dt)

Arguments

Type IntentOptional Attributes Name
type(solid_t), intent(inout) :: me
real(kind=dp), intent(in) :: dt

Called by

proc~~source_from_ss_src_ports_self_solid~~CalledByGraph proc~source_from_ss_src_ports_self_solid source_from_SS_src_ports_self_solid proc~main_loop main_loop proc~main_loop->proc~source_from_ss_src_ports_self_solid program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine source_from_SS_src_ports_self_solid(me,dt)
  type(solid_t), intent(inout) :: me
  real(dp), intent(in) :: dt

  integer :: i

  if(me%MC_Prop%SSsrcLink) then
    do i=1,me%MC_Prop%NbCells          
      me%big%bmS(i)=me%big%bmS(i)-dt*me%MC_Prop%thermS(i)%p%DerSrcSdT
      me%big%bvS(i)=me%big%bvS(i)+dt*me%MC_Prop%thermS(i)%p%rhs_SrcS
    enddo   
  endif

end subroutine source_from_SS_src_ports_self_solid