add_euler Function

private function add_euler(lhs, rhs) result(opr)

Add two Euler fields.

Arguments

Type	Intent	Optional	Attributes		Name
class(euler_1d),	intent(in)			::	lhs	Left hand side.
class(integrand),	intent(in)			::	rhs	Right hand side.

Return Value class(integrand), allocatable

Operator result.

Source Code

Source Code

  function add_euler(lhs, rhs) result(opr)
  !< Add two Euler fields.
  class(euler_1d),  intent(in)  :: lhs !< Left hand side.
  class(integrand), intent(in)  :: rhs !< Right hand side.
  class(integrand), allocatable :: opr !< Operator result.
  integer(I4P)                  :: i   !< Counter.

  allocate (euler_1d :: opr)
  select type(opr)
  class is(euler_1d)
     opr = lhs
     select type(rhs)
     class is (euler_1d)
        do i=1, lhs%Ni
           opr%U(i) = lhs%U(i) + rhs%U(i)
        enddo
     endselect
  endselect
  endfunction add_euler

All Procedures

add add add_euler array array compute_derivate compute_dt compute_fluxes compute_fluxes compute_fluxes_from_primitive compute_post_rarefaction compute_post_shock compute_roe_state compute_states23_from_u23 compute_u23 compute_up23 compute_waves compute_waves_u23 compute_waves_up23 cons_assign_cons cons_divide_real cons_multiply_cons cons_multiply_real conservative_compressible conservative_compressible_instance conservative_compressible_pointer conservative_to_primitive_compressible cp cv delta density description description description description destroy destroy destroy dEuler_dt energy energy eos_assign_eos eos_compressible eos_compressible_instance eos_compressible_pointer eta euler_assign_euler euler_assign_real euler_local_error euler_multiply_euler euler_multiply_real g gm1 gp1 impose_boundary_conditions initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize left_eigenvectors momentum negative negative output parse_command_line_interface positive positive pressure pressure prim_assign_prim prim_divide_real prim_multiply_prim prim_multiply_real primitive_compressible primitive_compressible_instance primitive_compressible_pointer primitive_to_conservative_compressible R real_multiply_cons real_multiply_euler real_multiply_prim reconstruct_interfaces_characteristic reconstruct_interfaces_conservative reconstruct_interfaces_primitive right_eigenvectors rpat_assign_rpat save_time_serie solve solve solve solve solve speed_of_sound sub sub sub_euler temperature velocity