| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | fh |
File handle |
subroutine dummy_write_info(fh) use mod_global_parameters integer, intent(in) :: fh !< File handle integer, dimension(MPI_STATUS_SIZE) :: st integer :: er ! Number of physics parameters integer, parameter :: n_par = 0 call MPI_FILE_WRITE(fh, n_par, 1, MPI_INTEGER, st, er) end subroutine dummy_write_info