Save nodes coordinates into 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. |
subroutine save_nodes_into_file(self, grid_dimensions, blocks)
!< Save nodes coordinates into 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.
integer(I4P) :: b !< Counter.
call self%open(action='write')
do b=1, size(blocks, dim=1)
call blocks(b)%save_nodes_into_file(file_unit=self%file_unit, pos=grid_dimensions%iopos_block_nodes(b=b))
enddo
call self%close
endsubroutine save_nodes_into_file