Load nodes coordinates from file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(file_grid_object), | intent(inout) | :: | self | File object. |
||
| type(grid_dimensions_object), | intent(in) | :: | grid_dimensions | Grid dimensions off all blocks into file. |
||
| type(block_object), | intent(inout) | :: | blocks(1:) | Blocks storage. |
||
| character(len=*), | intent(in), | optional | :: | file_name | File name. |
subroutine load_nodes_from_file(self, grid_dimensions, blocks, file_name)
!< Load nodes coordinates from file.
class(file_grid_object), intent(inout) :: self !< File object.
type(grid_dimensions_object), intent(in) :: grid_dimensions !< Grid dimensions off all blocks into file.
type(block_object), intent(inout) :: blocks(1:) !< Blocks storage.
character(*), intent(in), optional :: file_name !< File name.
integer(I4P) :: b !< Counter.
call self%open(file_name=file_name, action='read')
do b=1, size(blocks, dim=1)
call blocks(b)%load_nodes_from_file(file_unit=self%file_unit, pos=grid_dimensions%iopos_block_nodes(b=b))
enddo
call self%close
endsubroutine load_nodes_from_file