Load grid file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(simulation_object), | intent(inout) | :: | self | simulation data. |
||
| character(len=*), | intent(in) | :: | file_basename | File basename. |
subroutine load_file_grid(self, file_basename)
!< Load grid file.
class(simulation_object), intent(inout) :: self !< simulation data.
character(*), intent(in) :: file_basename !< File basename.
call self%file_grid%load_grid_dimensions_from_file(file_name=trim(adjustl(file_basename))//'.grd', &
grid_dimensions=self%grid_dimensions)
call self%allocate_blocks
call self%file_grid%load_nodes_from_file(file_name=trim(adjustl(file_basename))//'.grd', &
grid_dimensions=self%grid_dimensions, blocks=self%blocks)
endsubroutine load_file_grid