cells_number Function

  1. off_block_signature_object.f90
  2. off_block_signature_object
  3. cells_number

private elemental function cells_number(self, with_ghosts) result(cells_number_)

Return the number of cells.

Arguments

Type IntentOptional AttributesName
class(block_signature_object), intent(in) :: self

Block.
logical, intent(in), optional :: with_ghosts

Take into account ghost cells.

Return Value integer(kind=I4P)

Number of cells.


Source Code

cells_number

Source Code

   elemental function cells_number(self, with_ghosts) result(cells_number_)
   !< Return the number of cells.
   class(block_signature_object), intent(in)           :: self          !< Block.
   logical,                       intent(in), optional :: with_ghosts   !< Take into account ghost cells.
   integer(I4P)                                        :: cells_number_ !< Number of cells.
   logical                                             :: with_ghosts_  !< Take into account ghost cells, local variable.

   with_ghosts_ = .true. ; if (present(with_ghosts)) with_ghosts_ = with_ghosts
   if (with_ghosts_) then
      cells_number_ = (self%ni + self%gc(1) + self%gc(2)) &
                    * (self%nj + self%gc(3) + self%gc(4)) &
                    * (self%nk + self%gc(5) + self%gc(6))
   else
      cells_number_ = (self%ni) &
                    * (self%nj) &
                    * (self%nk)
   endif
   endfunction cells_number

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