heat_diffusion_strand Subroutine

public subroutine heat_diffusion_strand(me)

Arguments

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

Calls

proc~~heat_diffusion_strand~~CallsGraph proc~heat_diffusion_strand heat_diffusion_strand proc~s_heat_flux_internal_calculation~2 S_heat_flux_internal_calculation proc~heat_diffusion_strand->proc~s_heat_flux_internal_calculation~2 proc~material_thermal_conductivity material_t%material_thermal_conductivity proc~s_heat_flux_internal_calculation~2->proc~material_thermal_conductivity proc~material_thermal_conductivity_der material_t%material_thermal_conductivity_der proc~s_heat_flux_internal_calculation~2->proc~material_thermal_conductivity_der

Called by

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

Source Code

subroutine heat_diffusion_strand(me)
    type(strand_t), intent(inout) :: me
    
    integer :: i
    
    do i=1,me%SC_Prop%NbCells-1
      call S_heat_flux_internal_calculation(me,i)
    enddo
        
end subroutine heat_diffusion_strand