heat_diffusion_mesh2D Subroutine

public subroutine heat_diffusion_mesh2D(me, sim)

Arguments

Type IntentOptional Attributes Name
type(mesh2D_t), intent(inout) :: me
type(simulation_t), intent(in) :: sim

Calls

proc~~heat_diffusion_mesh2d~~CallsGraph proc~heat_diffusion_mesh2d heat_diffusion_mesh2D proc~required_variables_for_implicit_2d_heat_diffusion required_variables_for_implicit_2D_heat_diffusion proc~heat_diffusion_mesh2d->proc~required_variables_for_implicit_2d_heat_diffusion proc~material_thermal_conductivity material_t%material_thermal_conductivity proc~required_variables_for_implicit_2d_heat_diffusion->proc~material_thermal_conductivity proc~material_thermal_conductivity_der material_t%material_thermal_conductivity_der proc~required_variables_for_implicit_2d_heat_diffusion->proc~material_thermal_conductivity_der proc~signal_v0d signal_t%signal_v0d proc~required_variables_for_implicit_2d_heat_diffusion->proc~signal_v0d proc~signal_v1d signal_t%signal_v1d proc~signal_v0d->proc~signal_v1d

Called by

proc~~heat_diffusion_mesh2d~~CalledByGraph proc~heat_diffusion_mesh2d heat_diffusion_mesh2D proc~main_loop main_loop proc~main_loop->proc~heat_diffusion_mesh2d program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine heat_diffusion_mesh2D(me,sim)
    type(mesh2D_t), intent(inout) :: me
    type(simulation_t), intent(in) :: sim
    
    integer :: nb_e
    
    do nb_e=1,me%M2D_Prop%nb_elements
      call required_variables_for_implicit_2D_heat_diffusion(me,nb_e,sim)
    enddo
        
end subroutine heat_diffusion_mesh2D