links_SSsrcLink_update Subroutine

public subroutine links_SSsrcLink_update(me, dt)

Arguments

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

Called by

proc~~links_sssrclink_update~~CalledByGraph proc~links_sssrclink_update links_SSsrcLink_update proc~main_loop main_loop proc~main_loop->proc~links_sssrclink_update program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine links_SSsrcLink_update(me,dt)
    type(SSsrcLink_t), intent(inout) :: me
    real(dp), intent(in) :: dt

    integer  :: ii, i
    real(dp) :: VarcentS

    do i = 1, me%sizeNodes
      if(me%lk(2,i)%p%typeS==trim("solid")) then
  
        me%Lk12(i) = -dt*me%DerSrcS1dT2(i)
        me%Lk21(i) = -dt*me%DerSrcS2dT1(i)
  
      else if(me%lk(2,i)%p%typeS==trim("mesh2D")) then
        
        do ii=1,me%nb_2D_Ports(i)
          me%LkArr(1,1+ii,i) = -dt*me%Der4LkArr(1,1+ii,i) 
  
          VarcentS=1.0_dp/(me%lk(1+ii,i)%p%rhoS*me%lk(1+ii,i)%p%cpS)
          me%LkArr(1+ii,1,i) = dt/me%lk(1+ii,i)%p%SurfS*VarcentS*me%Der4LkArr(1+ii,1,i)
        enddo
  
      endif
    enddo

end subroutine links_SSsrcLink_update