DISPATCH
io_unit_mod.f90
1 !|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
2 !> $Id: 8abb5d961ed01826290b0f0235272277b310097c $
3 !> Source of authoritative I/O unit number information
4 !|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
5 MODULE io_unit_mod
6  implicit none
7  private
8  type io_unit_t
9  logical:: master=.true., do_validate=.false.
10  integer:: verbose=0, input=1, output=6, data=3, log=4, debug=7, &
11  flag=8, index=9, dump=10, trace=11, os=12, mpi=13, queue=14, direct=15, &
12  validate=16, dispatcher=17, nml=18, copy1=19, copy2=20, datain=21, &
13  nml1=22, nml2=23, dbg=24, hash=25, sinks=26, task=27, tmp=50, sent=150
14  integer:: iodir = -1
15  character(len=64):: inputname, outputname, datadir='data', top
16  character(len=64):: rundir, inputdir
17  character(len=64):: rankbase, threadbase
18  end type
19  integer, parameter, public:: mch=120
20  type(io_unit_t), public:: io_unit
21  integer, public:: stdout=6, stderr=6, stdin=1
22  !$omp threadprivate (io_unit)
23 END MODULE io_unit_mod