distio_mix.F90 File Reference

Go to the source code of this file.

Data Types
interface	distio_mix::comm_array

Modules
module	distio_mix

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

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