compute_metrics Subroutine

  1. off_face_object.f90
  2. off_face_object
  3. compute_metrics

private elemental subroutine compute_metrics(self, pt1, pt2, pt3, pt4, signd)

Compute face metrics.

Arguments

Type IntentOptional AttributesName
class(face_object), intent(inout) :: self

Face.
type(vector), intent(in) :: pt1

Point 1 of face.
type(vector), intent(in) :: pt2

Point 2 of face.
type(vector), intent(in) :: pt3

Point 3 of face.
type(vector), intent(in) :: pt4

Point 4 of face.
real(kind=R8P), intent(in) :: signd

Sign of direction along normal coordinate.

Source Code

compute_metrics

Source Code

   elemental subroutine compute_metrics(self, pt1, pt2, pt3, pt4, signd)
   !< Compute face metrics.
   class(face_object), intent(inout) :: self  !< Face.
   type(vector),       intent(in)    :: pt1   !< Point 1 of face.
   type(vector),       intent(in)    :: pt2   !< Point 2 of face.
   type(vector),       intent(in)    :: pt3   !< Point 3 of face.
   type(vector),       intent(in)    :: pt4   !< Point 4 of face.
   real(R8P),          intent(in)    :: signd !< Sign of direction along normal coordinate.

   self%normal = self%normal%face_normal4(pt1 = pt1, pt2 = pt2, pt3 = pt3, pt4 = pt4) * signd
   self%area = self%normal%normL2()
   call self%normal%normalize
   endsubroutine compute_metrics

All Procedures

adim_assign_adim allocate_blocks block_assign_block block_d_assign_block_d cell_assign_cell cells_number cells_number check cli_parse cli_parse cli_parse close compute_extents compute_faces_metrics compute_metrics compute_metrics compute_reference_values compute_space_operator compute_volumes correct_metrics cp create_linspace description description description description description description description description description destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy destroy err_assign_err face_assign_face file_assign_file free_assign_free grid_d_assign_grid_d initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize initialize_unix initialize_windows integrate interpolate_at_nodes iolength iolength iopos_block_nodes is_the_end load_file_grid load_file_name_from_file load_file_parameters load_from_file load_from_file load_from_file load_from_file load_from_file load_from_file load_from_file load_grid_dimensions_from_file load_input_files load_nodes_from_file load_nodes_from_file mkdir node_assign_node node_to_center nodes_number nodes_number nullify_normals open os_assign_os parse_command_line_interface progress rm save_file_grid save_file_grid save_file_grid_tec save_file_grid_vtk save_file_name_into_file save_file_parameters save_grid_dimensions_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_into_file save_nodes_into_file save_nodes_into_file set_command_line_interface set_stop solver_assign_solver time_assign_time update