source_from_FS_ports_self_solid Subroutine

public subroutine source_from_FS_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_fs_ports_self_solid~~CalledByGraph proc~source_from_fs_ports_self_solid source_from_FS_ports_self_solid proc~main_loop main_loop proc~main_loop->proc~source_from_fs_ports_self_solid program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

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

    integer :: i

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

end subroutine source_from_FS_ports_self_solid