io_dist_outlog

Module

Description

$Id$

Distributed IO (i.e. each process writes its own file data/procX)

The file format written by output_snap() (and used, e.g. in var.dat) consists of the followinig Fortran records:

data(mx,my,mz,nvar)

t(1), x(mx), y(my), z(mz), dx(1), dy(1), dz(1), deltay(1)

Here nvar denotes the number of slots, i.e. 1 for one scalar field, 3 for one vector field, 8 for var.dat in the case of MHD with entropy.

04-nov-11/MR: IOSTAT handling generally introduced 16-nov-11/MR: calls to outlog adapted 10-Dec-2011/Bourdin.KIS: major cleanup

Quick access

Variables:: check_consistency, check_success, check_success_local, dead_beef, displacement, distribute_grid, gen_in_snapname, get_dimensions, get_disp_to_par_real, global_size, global_start, global_type, input_grid, input_grid_double, input_grid_single, input_proc_bounds, input_proc_bounds_double, input_proc_bounds_single, input_slice, io_dims, io_info, io_strategy, lcollective_io, local_size, local_start, local_type, lread_add, lswitched_to_out, lwr_grid, lwrite_add, maxt, mint, mpi_err, order, persist_initialized, persist_last_id, read_globals, read_globals_double, read_globals_single, read_part, read_part_double, read_part_single, read_persist, read_snap, read_snap_double, read_snap_single, record_marker, snaplink, subsize, switch_io, varfile_name, wdim_default, wdim_default_grid, write_persist
Routines:: directory_names(), finalize_io(), init_read_persist(), init_write_persist(), input_globals(), input_ode(), input_part_snap(), input_pointmass(), input_snap(), input_snap_finalize(), log_filename_to_file(), output_average_2d(), output_globals(), output_ode(), output_part_finalize(), output_part_rmv(), output_part_snap(), output_pointmass(), output_slice(), output_slice_position(), output_snap(), output_snap_finalize(), output_stalker(), output_stalker_init(), persist_exists(), read_persist_id(), read_persist_int_0d(), read_persist_int_1d(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_real_0d(), read_persist_real_1d(), read_persist_torus_rect(), read_precision(), read_profile(), register_io(), rgrid(), rproc_bounds(), wdim(), wgrid(), wproc_bounds(), write_persist_id(), write_persist_int_0d(), write_persist_int_1d(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_real_0d(), write_persist_real_1d(), write_persist_torus_rect()

Needed modules

cdata: $Id$
cparam (intlen(), fnlen(), max_int()): $Id$
file_io (file_exists()): $Id$
hdf5_io (output_dim()): $Id$
messages (fatal_error(), outlog(), warning(), svn_id()): $Id$

Variables

io/id_block_persistent [integer,private/parameter/optional/default=2000]
io/id_record_dt_gw [integer,private/parameter/optional/default=350]
io/id_record_eps_rkf [integer,private/parameter/optional/default=331]
io/id_record_forcing_location [integer,private/parameter/optional/default=270]
io/id_record_forcing_torus [integer,private/parameter/optional/default=272]
io/id_record_forcing_tsforce [integer,private/parameter/optional/default=271]
io/id_record_hydro_ampl [integer,private/parameter/optional/default=286]
io/id_record_hydro_avec_gb [integer,private/parameter/optional/default=289]
io/id_record_hydro_location [integer,private/parameter/optional/default=285]
io/id_record_hydro_phase1 [integer,private/parameter/optional/default=281]
io/id_record_hydro_phase2 [integer,private/parameter/optional/default=282]
io/id_record_hydro_qvec_gb [integer,private/parameter/optional/default=288]
io/id_record_hydro_tphase [integer,private/parameter/optional/default=280]
io/id_record_hydro_tsforce [integer,private/parameter/optional/default=284]
io/id_record_hydro_wavenumber [integer,private/parameter/optional/default=287]
io/id_record_ism_bold_mass [integer,private/parameter/optional/default=252]
io/id_record_ism_pos_next_old [integer,private/parameter/optional/default=251]
io/id_record_ism_snrs [integer,private/parameter/optional/default=259]
io/id_record_ism_snrs_old [integer,private/parameter/optional/default=1002]
io/id_record_ism_t_cluster [integer,private/parameter/optional/default=261]
io/id_record_ism_t_next_old [integer,private/parameter/optional/default=250]
io/id_record_ism_t_next_sni [integer,private/parameter/optional/default=253]
io/id_record_ism_t_next_snii [integer,private/parameter/optional/default=254]
io/id_record_ism_toggle_old [integer,private/parameter/optional/default=1001]
io/id_record_ism_toggle_sni [integer,private/parameter/optional/default=257]
io/id_record_ism_toggle_snii [integer,private/parameter/optional/default=258]
io/id_record_ism_x_cluster [integer,private/parameter/optional/default=255]
io/id_record_ism_y_cluster [integer,private/parameter/optional/default=256]
io/id_record_ism_z_cluster [integer,private/parameter/optional/default=260]
io/id_record_iteration_number [integer,private/parameter/optional/default=100]
io/id_record_magnetic_ampl [integer,private/parameter/optional/default=312]
io/id_record_magnetic_phase [integer,private/parameter/optional/default=311]
io/id_record_random_seeds [integer,private/parameter/optional/default=1]
io/id_record_random_seeds2 [integer,private/parameter/optional/default=2]
io/id_record_shear_delta_y [integer,private/parameter/optional/default=320]
io/id_record_special_lnkmin0 [integer,private/parameter/optional/default=340]
io/id_record_time_step [integer,private/parameter/optional/default=330]
io/input_grid [private]
io/input_grid_double [private]
io/input_grid_single [private]
io/input_proc_bounds [private]
io/input_proc_bounds_double [private]
io/input_proc_bounds_single [private]
io/input_profile [private]
io/input_slice [public]
io/input_slice_real_arr [private]
io/input_slice_scat_arr [private]
io/io_strategy [character,public/optional/default="dist"]
io/lcollective_io [logical,public/optional/default=.false.]
io/lun_input [integer,parameter=88]
io/lun_output [integer,parameter=91]
io/output_average_1d [private]
io/output_average_phi [private]
io/output_profile [private]
io/persist_initialized [logical,private/optional/default=.false.]
io/persist_last_id [integer,private/optional/default=-max_int]
io/read_globals [private]
io/read_globals_double [private]
io/read_globals_single [private]
io/read_persist [public]
io/read_snap [private]
io/read_snap_double [private]
io/read_snap_single [private]
io/snaplink [character,private/optional/default='']
io/write_persist [public]

Subroutines and functions

subroutine io/register_io()

dummy routine, generates separate directory for each processor. VAR#-files are written to the directory directory_snap which will be the same as directory, unless specified otherwise.

20-sep-02/wolf: coded

identify version number

subroutine io/finalize_io()

subroutine io/directory_names()

Set up the directory names: set directory name for the output (one subdirectory for each processor) if datadir_snap (where var.dat, VAR# go) is empty, initialize to datadir

02-oct-2002/wolf: coded

subroutine io/output_snap(a, nv[, file])

Write snapshot file, always write time and mesh, could add other things.

11-apr-97/axel: coded 13-Dec-2011/Bourdin.KIS: reworked 13-feb-2014/MR: made ‘file’ optional, ‘a’ assumed-shape (for downsampled output);

moved donwsampling stuff to snapshot

Parameters:

a (,,*,*) [real,in]
nv [integer,in]
file [character,in,]

Use :

mpicomm (start_serialize(), end_serialize()), general (get_range_no())

Call to:

start_serialize(), outlog(), fatal_error(), end_serialize(), hdf5_output_slice_position(), hdf5_output_slice(), not_implemented(), output_stalker(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), stop_it(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_snap_finalize()

Close snapshot file.

13-Dec-2011/Bourdin.KIS: adapted from output_snap

subroutine io/output_average_2d(label, nc, name, data, time, lwrite[, header])

Output 2D average to a file.

01-dec-2022/ccyang: stub

Parameters:

label [character,in]
nc [integer,in,]
name (nc) [character,in]
data (,,*) [real,in]
time [real,in]
lwrite [logical,in]
header (*) [real,in,]

Use :

general (keep_compiler_quiet())

Call to:

fatal_error(), hdf5_output_slice_position(), hdf5_output_slice(), outlog(), not_implemented(), output_stalker(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_slice_position()

Record slice positions.

13-nov-20/ccyang: wrapper

subroutine io/output_slice(lwrite, time, label, suffix, pos, grid_pos, data)

Append to a slice file

13-nov-20/ccyang: wrapper

Parameters:

lwrite [logical,in]
time [real,in]
label [character,in]
suffix [character,in]
pos [real,in]
grid_pos [integer,in]
data (,) [real,pointer]

Use :

hdf5_io (hdf5_output_slice())

Call to:

hdf5_output_slice(), outlog(), not_implemented(), output_stalker(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_part_snap(ipar, ap, mv, nv, file[, label[, ltruncate]])

Write particle snapshot file, always write mesh and time.

23-Oct-2018/PABourdin: adapted from output_snap

Parameters:

ipar (mv) [integer,in]
ap (mv,mparray) [real,in]
mv [integer,in,]
nv [integer,in]
file [character,in]
label [character,in,]
ltruncate [logical,in,]

Call to:

outlog(), not_implemented(), output_stalker(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_part_rmv(ipar_rmv, ipar_sink, fp_rmv, fp_sink, nrmv)

Writes the log of removed particles to a file.

21-jan-24/ccyang: stub

Parameters:

ipar_rmv (*) [integer,in]
ipar_sink (*) [integer,in]
fp_rmv (,) [real,in]
fp_sink (,) [real,in]
nrmv [integer,in]

Use :

general (keep_compiler_quiet()), messages (not_implemented())

Call to:

not_implemented(), output_stalker(), outlog(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_stalker_init(num, nv, snap, id)

Open stalker particle snapshot file and initialize with snapshot time.

03-May-2019/PABourdin: coded

Parameters:

num [integer,in]
nv [integer,in,]
snap [integer,in]
id (nv) [integer,in]

Call to:

output_stalker(), outlog(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_stalker(label, mv, nv, data[, nvar[, lfinalize]])

Write stalker particle quantity to snapshot file.

03-May-2019/PABourdin: coded

Parameters:

label [character,in]
mv [integer,in,]
nv [integer,in]
data (mv) [real,in]
nvar [integer,in,]
lfinalize [logical,in,]

Use :

general (loptest())

Call to:

outlog(), output_stalker(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_part_finalize()

Close particle snapshot file.

03-May-2019/PABourdin: adapted from output_snap_finalize

subroutine io/output_pointmass(file, labels, fq, mv, nc)

Write pointmass snapshot file with time.

26-Oct-2018/PABourdin: coded

Parameters:

file [character,in]
labels (nc) [character,in]
fq (mv,nc) [real,in]
mv [integer,in,]
nc [integer,in,]

Call to:

outlog(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/output_slice_position()

Record slice positions.

13-nov-20/ccyang: wrapper

subroutine io/output_slice(lwrite, time, label, suffix, pos, grid_pos, data)

Append to a slice file

13-nov-20/ccyang: wrapper

Parameters:

lwrite [logical,in]
time [real,in]
label [character,in]
suffix [character,in]
pos [real,in]
grid_pos [integer,in]
data (,) [real,pointer]

Call to:

hdf5_output_slice(), outlog(), not_implemented(), output_stalker(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/init_write_persist([file])

Initialize writing of persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:: file [character,in,]
Return:: init_write_persist [logical]
Call to:: outlog(), write_persist_id(), init_write_persist(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/write_persist_id(label, id)

Write persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,in]

Return:

write_persist_id [logical]

Call to:

init_write_persist(), outlog(), write_persist_logical_0d(), write_persist_id(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/write_persist_logical_0d(label, id, value)

Write persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,in]
value [logical,in]

Return:

write_persist_logical_0d [logical]

Call to:

write_persist_id(), outlog(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/write_persist_logical_1d(label, id, value)

Write persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,in]
value (*) [logical,in]

Return:

write_persist_logical_1d [logical]

Call to:

write_persist_id(), outlog(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/write_persist_int_0d(label, id, value)

Write persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,in]
value [integer,in]

Return:

write_persist_int_0d [logical]

Call to:

write_persist_id(), outlog(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/write_persist_int_1d(label, id, value)

Write persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,in]
value (*) [integer,in]

Return:

write_persist_int_1d [logical]

Call to:

write_persist_id(), outlog(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/write_persist_real_0d(label, id, value)

Write persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,in]
value [real,in]

Return:

write_persist_real_0d [logical]

Call to:

write_persist_id(), outlog(), write_persist_real_1d(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

function io/write_persist_real_1d(label, id, value)

Write persistent data to snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,in]
value (*) [real,in]

Return:

write_persist_real_1d [logical]

Call to:

write_persist_id(), outlog(), start_serialize(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/input_snap(file, a, nv, mode)

manages reading of snapshot from different precision

24-oct-13/MR: coded

Parameters:

file [character,in]
a (mx,my,mz,nv) [real,out]
nv [integer,in]
mode [integer,in]

Call to:

start_serialize(), outlog(), fatal_error(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/input_snap_finalize()

Close snapshot file.

11-apr-97/axel: coded 13-Dec-2011/Bourdin.KIS: reworked

Use :: mpicomm (end_serialize())
Call to:: end_serialize(), outlog(), fatal_error(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), collect_grid(), warning(), wgrid()

subroutine io/input_part_snap(ipar, ap, mv, nv, npar_total, file[, label])

Read particle snapshot file, mesh and time are read in ‘input_snap’.

25-Oct-2018/PABourdin: apadpted and moved to IO module

Parameters:

ipar (mv) [integer,out]
ap (mv,mparray) [real,out]
mv [integer,in]
nv [integer,out]
npar_total [integer,out]
file [character,in]
label [character,in,]

Use :

mpicomm (mpireduce_sum_int())

Call to:

outlog(), fatal_error(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), end_serialize(), collect_grid(), warning(), wgrid()

subroutine io/input_pointmass(file, labels, fq, mv, nc)

Read pointmass snapshot file.

26-Oct-2018/PABourdin: coded

Parameters:

file [character,in]
labels (nc) [character,in]
fq (mv,nc) [real,out]
mv [integer,in]
nc [integer,in,]

Use :

mpicomm (mpibcast_real())

Call to:

outlog(), fatal_error(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), end_serialize(), collect_grid(), warning(), wgrid()

function io/init_read_persist([file])

Initialize writing of persistent data to persistent file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:: file [character,in,]
Return:: init_read_persist [logical]
Use :: file_io (file_exists()), mpicomm (mpibcast_logical(), mpi_comm_pencil())
Call to:: outlog(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/persist_exists(label)

Dummy routine

12-Oct-2019/PABourdin: coded

Parameters:: label [character,in]
Return:: persist_exists [logical]
Call to:: read_persist_id(), outlog(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/read_persist_id(label, id[, lerror_prone])

Read persistent block ID from snapshot file.

17-Feb-2012/Bourdin.KIS: coded

Parameters:

label [character,in]
id [integer,out]
lerror_prone [logical,in,]

Return:

read_persist_id [logical]

Call to:

outlog(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/read_persist_logical_0d(label, value)

Read persistent data from snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
value [logical,out]

Return:

read_persist_logical_0d [logical]

Call to:

outlog(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/read_persist_logical_1d(label, value)

Read persistent data from snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
value (*) [logical,out]

Return:

read_persist_logical_1d [logical]

Call to:

outlog(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/read_persist_int_0d(label, value)

Read persistent data from snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
value [integer,out]

Return:

read_persist_int_0d [logical]

Call to:

outlog(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/read_persist_int_1d(label, value)

Read persistent data from snapshot file.

13-Dec-2011/Bourdin.KIS: coded

Parameters:

label [character,in]
value (*) [integer,out]

Return:

read_persist_int_1d [logical]

Call to:

outlog(), read_persist_real_0d(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/read_persist_real_0d(label, value)

Read persistent data from snapshot file.

13-Dec-2011/Bourdin.KIS: coded 23-oct-2013/MR: modified for reading of different precision

Parameters:

label [character,in]
value [real,out]

Return:

read_persist_real_0d [logical]

Call to:

outlog(), read_persist_real_1d(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

function io/read_persist_real_1d(label, value)

Read persistent data from snapshot file.

13-Dec-2011/Bourdin.KIS: coded 23-oct-2013/MR: modified for reading of different precision

Parameters:

label [character,in]
value (*) [real,out]

Return:

read_persist_real_1d [logical]

Call to:

outlog(), start_serialize(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

subroutine io/output_globals(file, a, nv[, label])

Write snapshot file of globals, ignoring mesh.

10-nov-06/tony: coded

Parameters:

file [character]
a (mx,my,mz,nv) [real]
nv [integer]
label [character,in,]

Use :

mpicomm (start_serialize(), end_serialize())

Call to:

start_serialize(), outlog(), fatal_error(), end_serialize(), collect_grid(), warning(), wgrid()

subroutine io/input_globals(file, a, nv)

Read globals snapshot file, ignoring mesh.

10-nov-06/tony: coded

Parameters:

file [character]
a (mx,my,mz,nv) [real]
nv [integer]

Use :

mpicomm (start_serialize(), end_serialize())

Call to:

start_serialize(), outlog(), end_serialize(), fatal_error(), collect_grid(), warning(), wgrid()

subroutine io/log_filename_to_file(file, flist)

In the directory containing `filename’, append one line to file `flist’ containing the file part of filename

Parameters:

file [character]
flist [character]

Use :

general (parse_filename(), safe_character_assign())

Call to:

outlog(), fatal_error(), collect_grid(), warning(), wgrid()

subroutine io/wgrid(file[, mxout[, myout[, mzout[, lwrite]]]])

Write processor-local part of grid coordinates.

21-jan-02/wolf: coded 15-jun-03/axel: Lx,Ly,Lz are now written to file (Tony noticed the mistake) 30-sep-13/MR : optional parameters mxout,myout,mzout added

to be able to output coordinate vectors with coordinates differing from mx,my,mz

25-Aug-2016/PABourdin: now a global “grid.dat” is always written from all IO modules

Parameters:

file [character]
mxout [integer]
myout [integer]
mzout [integer]
lwrite [logical]

Use :

mpicomm (collect_grid()), general (loptest())

Call to:

fatal_error(), outlog(), collect_grid(), warning(), wgrid()

subroutine io/rgrid(file)

Read processor-local part of grid coordinates.

21-jan-02/wolf: coded 15-jun-03/axel: Lx,Ly,Lz are now read in from file (Tony noticed the mistake) 24-oct-13/MR : handling of reading from different precision introduced 28-oct-13/MR : added overwriting of grid.dat if restart from different precision

3-mar-15/MRcalculation of d[xyz]2_bound added: contain twice the distances of
three neighbouring points from the boundary point

15-apr-15/MR : automatic detection of precision added

Parameters:: file [character]
Use :: file_io (file_size())
Call to:: fatal_error(), outlog(), wgrid()

subroutine io/output_average_2d(path, label, nc, name, data, time, lbinary, lwrite[, header])

Output 2D average to a file.

01-dec-2022/ccyang: stub

Parameters:

path [character,in]
label [character,in]
nc [integer,in,]
name (nc) [character,in]
data (,,*) [real,in]
time [real,in]
lbinary [logical,in]
lwrite [logical,in]
header (*) [real,in,]

Call to:

fatal_error(), hdf5_output_slice_position(), hdf5_output_slice(), outlog(), not_implemented(), output_stalker(), init_write_persist(), write_persist_id(), write_persist_logical_0d(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), start_serialize(), stop_it(), end_serialize(), init_read_persist(), persist_exists(), read_persist_id(), read_persist_logical_0d(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), collect_grid(), warning(), wgrid()

subroutine io/wproc_bounds(file)

Export processor boundaries to file.

22-Feb-2012/PABourdin: adapted from io_dist 27-nov-2020/ccyang: make the file single

Parameters:: file [character,in]
Call to:: fatal_error(), outlog()

subroutine io/rproc_bounds(file)

Import processor boundaries from file.

10-jul-08/kapelrud: coded 16-Feb-2012/Bourdin.KIS: rewritten

Parameters:: file [character]
Call to:: outlog()