explicit_scheme_for_fluxes_solid Subroutine

public subroutine explicit_scheme_for_fluxes_solid(me, dt)

Arguments

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

Calls

proc~~explicit_scheme_for_fluxes_solid~~CallsGraph proc~explicit_scheme_for_fluxes_solid explicit_scheme_for_fluxes_solid proc~material_heat_capacity material_t%material_heat_capacity proc~explicit_scheme_for_fluxes_solid->proc~material_heat_capacity

Called by

proc~~explicit_scheme_for_fluxes_solid~~CalledByGraph proc~explicit_scheme_for_fluxes_solid explicit_scheme_for_fluxes_solid proc~main_loop main_loop proc~main_loop->proc~explicit_scheme_for_fluxes_solid program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

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

    real(dp) :: VarcentreeS, cpMS
    integer :: i, ii

    if(me%MC_Prop%cond_btw_nodes) then
        do i=1,me%MC_Prop%NbCells
            cpMS=me%mat%heat_capacity(me%StVar%MCtemp(i))
            VarcentreeS=1.0_dp/(me%mat%density*cpMS)
            me%StVar%MCtemp(i)=me%StVar%MCtemp(i)-(dt/me%MC_Prop%dxLoc(i))*VarcentreeS*(me%flxS%sd(i)-me%flxS%sd(i-1))
        enddo
    endif

end subroutine explicit_scheme_for_fluxes_solid