io_mpi2

Module

Description

$Id$

I/O via the MPI v2 standard IO routines. (storing data into one file, e.g. data/allprocs/var.dat)

The file written by output_snap() (and used e.g. for ‘var.dat’) consists of the followinig records (not using record markers):

data(mxgrid,mygrid,mzgrid,nvar)

t(1), x(mxgrid), y(mygrid), z(mzgrid), dx(1), dy(1), dz(1)

Where nvar denotes the number of variables to be saved. In the case of MHD with entropy, nvar is 8 for a ‘var.dat’ file. Only outer ghost-layers are written, so mzlocal is between nz and mz, depending on the corresponding ipz-layer.

To read these snapshots in IDL, the parameter allprocs needs to be set: IDL> pc_read_var, obj=vars, /allprocs or in a much more efficient way by reading into an array: IDL> pc_read_var_raw, obj=data, tags=tags, grid=grid, /allprocs

20-Mar-2012/PABourdin: adapted from io_collect.f90 and io_collect_xy.f90 06-Oct-2015/PABourdin: reworked, should work now

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 (fnlen(), max_int()): $Id$
messages (fatal_error(), fatal_error_local(), fatal_error_local_collect(), svn_id(), warning()): $Id$
mpicomm (mpi_precision(), mpi_comm_pencil()): $Id$

Variables

io/check_consistency [private]
io/check_success [private]
io/check_success_local [private]
io/displacement [integer,private/parameter/optional/default=0]
io/distribute_grid [private]
io/gen_in_snapname [private]
io/get_dimensions [private]
io/get_disp_to_par_real [private]
io/global_size (*) [integer,private/allocatable]
io/global_start (*) [integer,private/allocatable]
io/global_type [integer,private]
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_proc_bounds [private]
io/input_proc_bounds_double [private]
io/input_proc_bounds_single [private]
io/input_slice [public]
io/input_slice_real_arr [private]
io/input_slice_scat_arr [private]
io/io_dims [integer,private]
io/io_info [integer,private/parameter/optional/default=mpi_info_null]
io/io_strategy [character,public/optional/default="mpi-io"]
io/lcollective_io [logical,public/optional/default=.true.]
io/local_size (*) [integer,private/allocatable]
io/local_start (*) [integer,private/allocatable]
io/local_type [integer,private]
io/lread_add [logical,private/optional/default=.true.]
io/lun_input [integer,parameter=88]
io/lun_output [integer,parameter=91]
io/lwrite_add [logical,private/optional/default=.true.]
io/mpi_err [integer,private]
io/order [integer,private/parameter/optional/default=mpi_order_fortran]
io/persist_initialized [logical,private/optional/default=.false.]
io/persist_last_id [integer,private/optional/default=-max_int]
io/read_persist [public]
io/snaplink [character,private/optional/default='']
io/status (mpi_status_size) [integer,private]
io/subsize (*) [integer,private/allocatable]
io/wdim_default [private]
io/wdim_default_grid [private]
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.

06-Oct-2015/PABourdin: reworked, should work now

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[, nv1[, nv2[, file[, mode]]]])

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

10-Feb-2012/PABourdin: coded 13-feb-2014/MR: made file optional (prep for downsampled output)

Parameters:

a (,,*,*) [real,in]
nv1 [integer,in,]
nv2 [integer,in,]
file [character,in,]
mode [integer,in,]

Use :

general (ioptest()), mpicomm (globalize_xy(), collect_grid())

Call to:

fatal_error(), collect_grid(), output_ode(), fatal_error_local(), fatal_error_local_collect(), warning(), islink(), input_ode(), system_cmd(), not_implemented(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier()

subroutine io/output_snap_finalize()

Close snapshot file.

11-Feb-2012/PABourdin: coded

subroutine io/output_average_2d(label, navg, avgname, avgdata, time, lwrite[, header])

Output 2D average to a file.

18-dec-2022/ccyang: coded

Parameters:

label [character,in]
navg [integer,in,]
avgname (navg) [character,in]
avgdata (,,*) [real,in]
time [real,in]
lwrite [logical,in]
header (*) [real,in,]

Use :

cparam (root()), general (keep_compiler_quiet()), mpicomm (size_of_real())

Call to:

fatal_error(), fatal_error_local(), fatal_error_local_collect(), warning(), islink(), input_ode(), system_cmd(), not_implemented(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

subroutine io/output_slice_position()

Dummy subroutine; no need to record slice positions.

14-nov-20/ccyang: dummy

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

Append to a slice file.

15-nov-20/ccyang: coded

Parameters:

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

Use :

general (keep_compiler_quiet()), mpicomm (mpiallreduce_or(), size_of_real())

Call to:

fatal_error_local(), fatal_error_local_collect(), fatal_error(), warning(), islink(), input_ode(), system_cmd(), not_implemented(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Write particle snapshot file.

23-Oct-2018/PABourdin: stub 12-nov-2020/ccyang: coded

NOTE: The optional argument ltruncate is required by IO=io_hdf5.

Parameters:

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

Use :

general (keep_compiler_quiet()), mpicomm (mpiallreduce_sum_int(), size_of_int(), size_of_real())

Call to:

warning(), fatal_error_local_collect(), fatal_error(), fatal_error_local(), islink(), input_ode(), system_cmd(), not_implemented(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Writes the log of removed particles to a file.

27-jan-24/ccyang: coded

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()), mpicomm (size_of_int(), size_of_real())

Call to:

fatal_error(), fatal_error_local(), fatal_error_local_collect(), warning(), islink(), input_ode(), system_cmd(), not_implemented(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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]

Use :

general (keep_compiler_quiet())

Call to:

fatal_error(), warning(), islink(), input_ode(), system_cmd(), not_implemented(), fatal_error_local_collect(), fatal_error_local(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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 (keep_compiler_quiet())

Call to:

fatal_error(), warning(), islink(), input_ode(), system_cmd(), not_implemented(), fatal_error_local_collect(), fatal_error_local(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

subroutine io/output_part_finalize()

Close particle snapshot file.

03-May-2019/PABourdin: coded

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

Write pointmass snapshot file with time.

26-Oct-2018/PABourdin: adapted from output_snap

Parameters:

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

Use :

general (keep_compiler_quiet())

Call to:

fatal_error(), islink(), input_ode(), system_cmd(), not_implemented(), warning(), fatal_error_local_collect(), fatal_error_local(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

subroutine io/input_snap(file_, a, nv[, mode])

read snapshot file, possibly with mesh and time (if mode=1) 10-Feb-2012/PABourdin: coded 10-mar-2015/MR: avoided use of fseek

Parameters:

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

Use :

file_io (backskip_to_time()), mpicomm (localize_xy(), mpibcast_real()), syscalls (islink())

Call to:

islink(), fatal_error(), input_ode(), system_cmd(), not_implemented(), warning(), fatal_error_local_collect(), fatal_error_local(), 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(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

subroutine io/input_snap_finalize()

Close snapshot file.

11-Feb-2012/PABourdin: coded

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

Read particle snapshot file.

24-Oct-2018/PABourdin: stub 12-nov-20/ccyang: coded

Parameters:

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

Use :

general (keep_compiler_quiet()), particles_cdata (ixp()), mpicomm (size_of_int(), size_of_real())

Call to:

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 :

general (keep_compiler_quiet())

Call to:

fatal_error(), 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(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/init_write_persist([file])

Initialize writing of persistent data to persistent file.

13-Dec-2011/PABourdin: coded

Parameters:: file [character,in,]
Return:: init_write_persist [logical]
Call to:: write_persist_id(), init_write_persist(), write_persist_logical_0d(), fatal_error(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/write_persist_id(label, id)

Write persistent data to snapshot file.

13-Dec-2011/PABourdin: coded

Parameters:

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

Return:

write_persist_id [logical]

Call to:

init_write_persist(), write_persist_logical_0d(), write_persist_id(), fatal_error(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Write persistent data to snapshot file.

12-Feb-2012/PABourdin: coded

Parameters:

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

Return:

write_persist_logical_0d [logical]

Use :

mpicomm (mpisend_logical(), mpirecv_logical()), general (find_proc())

Call to:

write_persist_id(), fatal_error(), write_persist_logical_1d(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Write persistent data to snapshot file.

12-Feb-2012/PABourdin: coded

Parameters:

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

Return:

write_persist_logical_1d [logical]

Use :

mpicomm (mpisend_logical(), mpirecv_logical()), general (find_proc())

Call to:

write_persist_id(), fatal_error(), write_persist_int_0d(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Write persistent data to snapshot file.

12-Feb-2012/PABourdin: coded

Parameters:

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

Return:

write_persist_int_0d [logical]

Use :

mpicomm (mpisend_int(), mpirecv_int()), general (find_proc())

Call to:

write_persist_id(), fatal_error(), write_persist_int_1d(), write_persist_real_0d(), write_persist_real_1d(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Write persistent data to snapshot file.

12-Feb-2012/PABourdin: coded

Parameters:

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

Return:

write_persist_int_1d [logical]

Use :

mpicomm (mpisend_int(), mpirecv_int()), general (find_proc())

Call to:

write_persist_id(), fatal_error(), write_persist_real_0d(), write_persist_real_1d(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Write persistent data to snapshot file.

12-Feb-2012/PABourdin: coded

Parameters:

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

Return:

write_persist_real_0d [logical]

Use :

mpicomm (mpisend_real(), mpirecv_real()), general (find_proc())

Call to:

write_persist_id(), fatal_error(), write_persist_real_1d(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Write persistent data to snapshot file.

12-Feb-2012/PABourdin: coded

Parameters:

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

Return:

write_persist_real_1d [logical]

Use :

mpicomm (mpisend_real(), mpirecv_real()), general (find_proc())

Call to:

write_persist_id(), fatal_error(), init_read_persist(), persist_exists(), warning(), 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(), write_persist_torus_rect(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/init_read_persist([file])

Initialize reading of persistent data from persistent file.

13-Dec-2011/PABourdin: coded

Parameters:: file [character,in,]
Return:: init_read_persist [logical]
Use :: file_io (file_exists()), mpicomm (mpibcast_logical())
Call to:: persist_exists(), warning(), read_persist_id(), read_persist_logical_0d(), fatal_error(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), write_persist_torus_rect(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/persist_exists([label])

Dummy routine

12-Oct-2019/PABourdin: coded

Parameters:: label [character,in,]
Return:: persist_exists [logical]
Call to:: warning(), read_persist_id(), read_persist_logical_0d(), fatal_error(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), write_persist_torus_rect(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

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

Read persistent block ID from snapshot file.

17-Feb-2012/PABourdin: coded

Parameters:

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

Return:

read_persist_id [logical]

Use :

mpicomm (mpibcast_int())

Call to:

read_persist_logical_0d(), fatal_error(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), write_persist_torus_rect(), warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/read_persist_logical_0d(label, value)

Read persistent data from snapshot file.

11-Feb-2012/PABourdin: coded

Parameters:

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

Return:

read_persist_logical_0d [logical]

Use :

mpicomm (mpisend_logical(), mpirecv_logical()), general (find_proc())

Call to:

fatal_error(), read_persist_logical_1d(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), write_persist_torus_rect(), warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/read_persist_logical_1d(label, value)

Read persistent data from snapshot file.

11-Feb-2012/PABourdin: coded

Parameters:

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

Return:

read_persist_logical_1d [logical]

Use :

mpicomm (mpisend_logical(), mpirecv_logical()), general (find_proc())

Call to:

fatal_error(), read_persist_int_0d(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), write_persist_torus_rect(), warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/read_persist_int_0d(label, value)

Read persistent data from snapshot file.

11-Feb-2012/PABourdin: coded

Parameters:

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

Return:

read_persist_int_0d [logical]

Use :

mpicomm (mpisend_int(), mpirecv_int()), general (find_proc())

Call to:

fatal_error(), read_persist_int_1d(), read_persist_real_0d(), read_persist_real_1d(), write_persist_torus_rect(), warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/read_persist_int_1d(label, value)

Read persistent data from snapshot file.

11-Feb-2012/PABourdin: coded

Parameters:

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

Return:

read_persist_int_1d [logical]

Use :

mpicomm (mpisend_int(), mpirecv_int()), general (find_proc())

Call to:

fatal_error(), read_persist_real_0d(), read_persist_real_1d(), write_persist_torus_rect(), warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/read_persist_real_0d(label, value)

Read persistent data from snapshot file.

11-Feb-2012/PABourdin: coded

Parameters:

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

Return:

read_persist_real_0d [logical]

Use :

mpicomm (mpisend_real(), mpirecv_real()), general (find_proc())

Call to:

fatal_error(), read_persist_real_1d(), write_persist_torus_rect(), warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/read_persist_real_1d(label, value)

Read persistent data from snapshot file.

11-Feb-2012/PABourdin: coded

Parameters:

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

Return:

read_persist_real_1d [logical]

Use :

mpicomm (mpisend_real(), mpirecv_real()), general (find_proc())

Call to:

fatal_error(), write_persist_torus_rect(), warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), collect_grid()

function io/write_persist_torus_rect(label, id[, value])

Write persistent data to snapshot file.

16-May-2020/MR: coded

Parameters:

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

Return:

write_persist_torus_rect [logical]

Use :

geometrical_types

Call to:

warning(), write_persist_id(), read_persist_torus_rect(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), fatal_error(), collect_grid()

function io/read_persist_torus_rect([label[, value]])

Read persistent data from snapshot file.

16-May-2020/MR: coded

Parameters:

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

Return:

read_persist_torus_rect [logical]

Use :

geometrical_types

Call to:

warning(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), fatal_error(), collect_grid()

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

Write snapshot file of globals, ignore time and mesh.

10-Feb-2012/PABourdin: coded

Parameters:

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

Call to:

warning(), output_snap(), output_snap_finalize(), input_snap(), input_snap_finalize(), mpibarrier(), fatal_error(), collect_grid()

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

Read globals snapshot file, ignore time and mesh.

10-Feb-2012/PABourdin: coded

Parameters:

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

Call to:

input_snap(), input_snap_finalize(), mpibarrier(), warning(), fatal_error(), collect_grid()

subroutine io/log_filename_to_file(filename, flist)

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

Parameters:

filename [character]
flist [character]

Use :

general (parse_filename(), safe_character_assign()), mpicomm (mpibarrier())

Call to:

mpibarrier(), warning(), fatal_error(), collect_grid()

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

Write grid coordinates.

10-Feb-2012/PABourdin: adapted for collective IO

Parameters:

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

Use :

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

Call to:

warning(), fatal_error(), collect_grid()

subroutine io/rgrid(file)

Read grid coordinates.

21-jan-02/wolf: coded 15-jun-03/axel: Lx,Ly,Lz are now read in from file (Tony noticed the mistake) 10-Feb-2012/PABourdin: adapted for collective IO