pio_support.F90 File Reference

#include "config.h"

Include dependency graph for pio_support.F90:

Functions/Subroutines
subroutine, public	pio_support::replace_c_null (istr, ilen)
	Remove null termination (C-style) from strings for Fortran.
subroutine, public	pio_support::piodie (file, line, msg, ival1, msg2, ival2, msg3, ival3, mpirank)
	Abort the model for abnormal termination. More...
subroutine, public	pio_support::checkmpireturn (locmesg, errcode, file, line)
	Check and prints an error message if an error occured in an MPI subroutine. More...
subroutine, public	pio_support::pio_writedof (file, gdims, DOF, comm, punit)
	Fortran interface to write a mapping file. More...
subroutine, public	pio_support::pio_readdof (file, ndims, gdims, DOF, comm, punit)
	Fortran interface to read a mapping file. More...

Variables
logical, public	pio_support::debug =.FALSE.
	debug mode
logical, public	pio_support::debugio =.FALSE.
	IO debug mode.
logical, public	pio_support::debugasync =.FALSE.
	async debug mode

Detailed Description

Internal code for compiler workarounds, aborts and debug functions.

Function/Subroutine Documentation

checkmpireturn()

subroutine, public pio_support::checkmpireturn	(	character(len=*), intent(in)	locmesg,
		integer(i4), intent(in)	errcode,
		character(len=*), optional	file,
		integer, intent(in), optional	line
	)

Check and prints an error message if an error occured in an MPI subroutine.

Parameters

locmesg	Message to output
errcode	MPI error code
file	The file where the error message originated.
line	The line number where the error message originated.

Author

Jim Edwards

pio_readdof()

subroutine, public pio_support::pio_readdof	(	character(len=*), intent(in)	file,
		integer, intent(out)	ndims,
		integer, dimension(:), pointer	gdims,
		integer(pio_offset_kind), dimension(:), pointer	DOF,
		integer, intent(in)	comm,
		integer, intent(in), optional	punit
	)

Fortran interface to read a mapping file.

Parameters

file	The file from where the decomp map is read.
ndims	The number of dimensions of the data.
gdims	The actual dimensions of the data (pointer to an integer array of length ndims).
DOF	Pointer to an integer array where the Decomp map will be stored.
comm	MPI comm index
punit	Optional argument that is no longer used.

Author

T Craig

pio_writedof()

subroutine, public pio_support::pio_writedof	(	character(len=*), intent(in)	file,
		integer, dimension(:), intent(in)	gdims,
		integer(pio_offset_kind), dimension(:), intent(in)	DOF,
		integer, intent(in)	comm,
		integer, intent(in), optional	punit
	)

Fortran interface to write a mapping file.

Parameters

file	: The file where the decomp map will be written.
gdims	: The dimensions of the data array in memory.
DOF	: The multidimensional array of indexes that describes how data in memory are written to a file.
comm	: The MPI comm index.
punit	: Optional argument that is no longer used.

Author

T Craig

piodie()

subroutine, public pio_support::piodie	(	character(len=*), intent(in)	file,
		integer, intent(in)	line,
		character(len=*), intent(in), optional	msg,
		integer, intent(in), optional	ival1,
		character(len=*), intent(in), optional	msg2,
		integer, intent(in), optional	ival2,
		character(len=*), intent(in), optional	msg3,
		integer, intent(in), optional	ival3,
		integer, intent(in), optional	mpirank
	)

Abort the model for abnormal termination.

Parameters

file	File where piodie is called from.
line	Line number where it is called.
msg,msg2,msg3,ival1,ival2,ival3,mpirank	: Optional argument for error messages.

Author

Jim Edwards