distio_mix Module Reference

Data Types
interface	comm_array

Functions/Subroutines
subroutine, public	dist_close (UNIT, FILE, STATUS, IOSTAT)
subroutine, public	dist_inquire (FILE, EXIST)
subroutine, public	dist_open (unit, file, iostat, status, form, action, access, recl, fmt, ARRAY, IARRAY, localfile)
subroutine, public	get_next_unit (KUNIT)
subroutine, public	get_mrfsdir (KOUT, CDOUT)
subroutine, public	get_dist_maxfilesize (KOUT, KMAXSIZE)
subroutine	toupper (CDS)
subroutine	strip (CDS, CDWHAT)
subroutine	make_local_filename (CLFILE, CDFILE)
subroutine	comm_file (CDFILE, LDSTATUS)
subroutine	real_comm_array (I_UNIT, ARRAY, CDFMT, IERR, LL_DIRECT_ACCESS, LL_FORMATTED)
subroutine	int_comm_array (I_UNIT, IARRAY, CDFMT, IERR, LL_DIRECT_ACCESS, LL_FORMATTED)
subroutine, public	mrfsfile (FILE_IN, FILE_OUT)

Variables
integer(kind=jpim)	myproc
integer(kind=jpim)	nproc
integer(kind=jpim)	iret
integer(kind=jpim)	ilen
integer(kind=jpim)	iroot
integer(kind=jpim)	itag
integer(kind=jpim)	icomm
integer(kind=jpim)	iwords
integer(kind=jpim), parameter	jpe_byte = 0
integer(kind=jpim), parameter	jpe_integer = 1
integer(kind=jpim), parameter	jpe_real = 2
integer(kind=jpim), parameter	jpintbyt = 4
integer(kind=jpim), parameter	jpreabyt = 8
character(len= *), parameter	notdef = 'NOT DEFINED'
character(len=255), save	mrfsdir = NOTDEF
character(len=12), save	dist_maxfilesize = NOTDEF
logical, save	ll_has_mrfsdir = .FALSE.
integer(kind=jpim), save	maxfilesize = 8 * 1024 * 1024
integer(kind=jpim), parameter	jp_maxunit = 99
integer(kind=jpim), parameter	jp_minunit = 0

Function/Subroutine Documentation

comm_file()

subroutine distio_mix::comm_file ( character(len=*), intent(in)  CDFILE, logical, intent(out)  LDSTATUS  )

private

Definition at line 640 of file distio_mix.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

dist_close()

subroutine, public distio_mix::dist_close	(	integer(kind=jpim), intent(in)	UNIT,
		character(len=*), intent(in), optional	FILE,
		character(len=*), intent(in), optional	STATUS,
		integer(kind=jpim), intent(out), optional	IOSTAT
	)

Definition at line 51 of file distio_mix.F90.

Here is the call graph for this function:

dist_inquire()

subroutine, public distio_mix::dist_inquire	(	character(len=*), intent(in)	FILE,
		logical, intent(out)	EXIST
	)

Definition at line 99 of file distio_mix.F90.

dist_open()

subroutine, public distio_mix::dist_open	(	integer(kind=jpim), intent(in), optional	unit,
		character(len=*), intent(in), optional	file,
		integer(kind=jpim), intent(out), optional	iostat,
		character(len=*), intent(in), optional	status,
		character(len=*), intent(in), optional	form,
		character(len=*), intent(in), optional	action,
		character(len=*), intent(in), optional	access,
		integer(kind=jpim), intent(in), optional	recl,
		character(len=*), intent(in), optional	fmt,
		real(kind=jprb), dimension(:), intent(out), optional	ARRAY,
		integer(kind=jpim), dimension(:), intent(out), optional	IARRAY,
		character(len=*), intent(out), optional	localfile
	)

Definition at line 148 of file distio_mix.F90.

Here is the call graph for this function:

get_dist_maxfilesize()

subroutine, public distio_mix::get_dist_maxfilesize	(	integer(kind=jpim), intent(in), optional	KOUT,
		integer(kind=jpim), intent(out), optional	KMAXSIZE
	)

Definition at line 533 of file distio_mix.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

get_mrfsdir()

subroutine, public distio_mix::get_mrfsdir	(	integer(kind=jpim), intent(in), optional	KOUT,
		character(len=*), intent(out), optional	CDOUT
	)

Definition at line 491 of file distio_mix.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

get_next_unit()

subroutine, public distio_mix::get_next_unit

(

integer(kind=jpim), intent(out)

KUNIT

)

Definition at line 472 of file distio_mix.F90.

Here is the caller graph for this function:

int_comm_array()

subroutine distio_mix::int_comm_array ( integer(kind=jpim), intent(in)  I_UNIT, integer(kind=jpim), dimension(:), intent(inout)  IARRAY, character(len=*), intent(in)  CDFMT, integer(kind=jpim), intent(out)  IERR, logical, intent(in), optional  LL_DIRECT_ACCESS, logical, intent(in), optional  LL_FORMATTED  )

private

Definition at line 803 of file distio_mix.F90.

make_local_filename()

subroutine distio_mix::make_local_filename ( character(len=*), intent(out)  CLFILE, character(len=*), intent(in)  CDFILE  )

private

Definition at line 623 of file distio_mix.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

mrfsfile()

subroutine, public distio_mix::mrfsfile	(	character(len=*), intent(in)	FILE_IN,
		character(len=*), intent(out)	FILE_OUT
	)

Definition at line 873 of file distio_mix.F90.

Here is the call graph for this function:

real_comm_array()

subroutine distio_mix::real_comm_array ( integer(kind=jpim), intent(in)  I_UNIT, real(kind=jprb), dimension(:), intent(inout)  ARRAY, character(len=*), intent(in)  CDFMT, integer(kind=jpim), intent(out)  IERR, logical, intent(in), optional  LL_DIRECT_ACCESS, logical, intent(in), optional  LL_FORMATTED  )

private

Definition at line 729 of file distio_mix.F90.

strip()

subroutine distio_mix::strip ( character(len=*), intent(inout)  CDS, character(len=1), intent(in)  CDWHAT  )

private

Definition at line 599 of file distio_mix.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

toupper()

subroutine distio_mix::toupper ( character(len=*), intent(inout)  CDS )

private

Definition at line 575 of file distio_mix.F90.

Here is the caller graph for this function:

Variable Documentation

dist_maxfilesize

character(len=12), save distio_mix::dist_maxfilesize = NOTDEF

private

Definition at line 36 of file distio_mix.F90.

icomm

integer(kind=jpim) distio_mix::icomm

private

Definition at line 26 of file distio_mix.F90.

ilen

integer(kind=jpim) distio_mix::ilen

private

Definition at line 26 of file distio_mix.F90.

iret

integer(kind=jpim) distio_mix::iret

private

Definition at line 26 of file distio_mix.F90.

iroot

integer(kind=jpim) distio_mix::iroot

private

Definition at line 26 of file distio_mix.F90.

itag

integer(kind=jpim) distio_mix::itag

private

Definition at line 26 of file distio_mix.F90.

iwords

integer(kind=jpim) distio_mix::iwords

private

Definition at line 26 of file distio_mix.F90.

jp_maxunit

integer(kind=jpim), parameter distio_mix::jp_maxunit = 99

private

Definition at line 41 of file distio_mix.F90.

jp_minunit

integer(kind=jpim), parameter distio_mix::jp_minunit = 0

private

Definition at line 42 of file distio_mix.F90.

jpe_byte

integer(kind=jpim), parameter distio_mix::jpe_byte = 0

private

Definition at line 28 of file distio_mix.F90.

jpe_integer

integer(kind=jpim), parameter distio_mix::jpe_integer = 1

private

Definition at line 29 of file distio_mix.F90.

jpe_real

integer(kind=jpim), parameter distio_mix::jpe_real = 2

private

Definition at line 30 of file distio_mix.F90.

jpintbyt

integer(kind=jpim), parameter distio_mix::jpintbyt = 4

private

Definition at line 31 of file distio_mix.F90.

jpreabyt

integer(kind=jpim), parameter distio_mix::jpreabyt = 8

private

Definition at line 32 of file distio_mix.F90.

ll_has_mrfsdir

logical, save distio_mix::ll_has_mrfsdir = .FALSE.

private

Definition at line 38 of file distio_mix.F90.

maxfilesize

integer(kind=jpim), save distio_mix::maxfilesize = 8 * 1024 * 1024

private

Definition at line 39 of file distio_mix.F90.

mrfsdir

character(len=255), save distio_mix::mrfsdir = NOTDEF

private

Definition at line 35 of file distio_mix.F90.

myproc

integer(kind=jpim) distio_mix::myproc

private

Definition at line 25 of file distio_mix.F90.

notdef

character(len=*), parameter distio_mix::notdef = 'NOT DEFINED'

private

Definition at line 34 of file distio_mix.F90.

nproc

integer(kind=jpim) distio_mix::nproc

private

Definition at line 25 of file distio_mix.F90.