heat_diffusion_solid Subroutine

public subroutine heat_diffusion_solid(me)

Arguments

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

Calls

proc~~heat_diffusion_solid~~CallsGraph proc~heat_diffusion_solid heat_diffusion_solid proc~s_heat_flux_internal_calculation S_heat_flux_internal_calculation proc~heat_diffusion_solid->proc~s_heat_flux_internal_calculation proc~material_thermal_conductivity material_t%material_thermal_conductivity proc~s_heat_flux_internal_calculation->proc~material_thermal_conductivity proc~material_thermal_conductivity_der material_t%material_thermal_conductivity_der proc~s_heat_flux_internal_calculation->proc~material_thermal_conductivity_der

Called by

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

Source Code

subroutine heat_diffusion_solid(me)
    type(solid_t), intent(inout) :: me
    
    integer :: i
    
    if(me%MC_Prop%cond_btw_nodes) then
      do i=1,me%MC_Prop%NbCells-1
        call S_heat_flux_internal_calculation(me,i)
      enddo
  
      ! Adiabatic boundary conditions
      me%flxS%sd(0)=0.0_dp
      me%flxS%sd_DerdTR(0)=0.0_dp
  
      me%flxS%sd(me%MC_Prop%NbCells)=0.0_dp
      me%flxS%sd_DerdTL(me%MC_Prop%NbCells)=0.0_dp
    endif
        
end subroutine heat_diffusion_solid