Load the grid dimensions of all blocks from file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_grid_object), | intent(inout) | :: | self | File object. |
||
| type(grid_dimensions_object), | intent(inout) | :: | grid_dimensions | Grid dimensions off all blocks into file. |
||
| character(len=*), | intent(in), | optional | :: | file_name | File name. |
subroutine load_grid_dimensions_from_file(self, grid_dimensions, file_name)
!< Load the grid dimensions of all blocks from file.
class(file_grid_object), intent(inout) :: self !< File object.
type(grid_dimensions_object), intent(inout) :: grid_dimensions !< Grid dimensions off all blocks into file.
character(*), intent(in), optional :: file_name !< File name.
call self%open(file_name=file_name, action='read')
call grid_dimensions%load_from_file(file_unit=self%file_unit)
call self%close
endsubroutine load_grid_dimensions_from_file