Load the grid dimensions of all blocks from file.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(grid_dimensions_object), | intent(in) | :: | self | Grid dimensions object. |
||
| integer(kind=I4P), | intent(in) | :: | file_unit | File unit. |
subroutine save_into_file(self, file_unit)
!< Load the grid dimensions of all blocks from file.
class(grid_dimensions_object), intent(in) :: self !< Grid dimensions object.
integer(I4P), intent(in) :: file_unit !< File unit.
integer(I4P) :: b !< Counter.
if (self%blocks_number > 0) then
write(unit=file_unit) self%blocks_number
do b=1, self%blocks_number
call self%block_signature(b)%save_into_file(file_unit=file_unit)
enddo
endif
endsubroutine save_into_file