messages

Module

Description

$Id$

This module takes care of code messages.

Quick access

Variables:: errors, extract_substring, fatal_errors, fatal_errors_total, iinformation_ip, iip_default, iip_everything, iterm_bg_black, iterm_bg_blue, iterm_bg_cyan, iterm_bg_green, iterm_bg_magenta, iterm_bg_red, iterm_bg_yellow, iterm_bright, iterm_default, iterm_fg_black, iterm_fg_blue, iterm_fg_cyan, iterm_fg_green, iterm_fg_magenta, iterm_fg_red, iterm_fg_white, iterm_fg_yellow, iterm_flash, iterm_underline, ldie_onerror, ldie_onfatalerror, ldie_onwarning, llife_support, ltermcap_color, message_stored, scaller, scanfile, terminal_defaultcolor, terminal_highlight_error, terminal_highlight_fatal_error, terminal_highlight_warning
Routines:: error(), fatal_error(), fatal_error_local(), fatal_error_local_collect(), inevitably_fatal_error(), information(), initialize_messages(), life_support_off(), life_support_on(), memory_usage(), not_implemented(), outlog(), set_caller(), svn_id(), terminal_setfgbrightcolor(), terminal_setfgcolor(), timing(), warning()

Needed modules

cdata: $Id$
mpicomm: $Id$

Variables

messages/errors [integer,private/optional/default=0]
messages/extract_substring [private]
messages/fatal_errors [integer,private/optional/default=0]
messages/fatal_errors_total [integer,private/optional/default=0]
messages/iinformation_ip [integer,private/parameter/optional/default=1000]
messages/iip_default [integer,parameter=0]
messages/iip_everything [integer,parameter=0]
messages/iterm_bg_black [integer,parameter=40]
messages/iterm_bg_blue [integer,parameter=44]
messages/iterm_bg_cyan [integer,parameter=46]
messages/iterm_bg_green [integer,parameter=42]
messages/iterm_bg_magenta [integer,parameter=45]
messages/iterm_bg_red [integer,parameter=41]
messages/iterm_bg_yellow [integer,parameter=43]
messages/iterm_bright [integer,parameter=1]
messages/iterm_default [integer,parameter=0]
messages/iterm_fg_black [integer,parameter=30]
messages/iterm_fg_blue [integer,parameter=34]
messages/iterm_fg_cyan [integer,parameter=36]
messages/iterm_fg_green [integer,parameter=32]
messages/iterm_fg_magenta [integer,parameter=35]
messages/iterm_fg_red [integer,parameter=31]
messages/iterm_fg_white [integer,parameter=37]
messages/iterm_fg_yellow [integer,parameter=33]
messages/iterm_flash [integer,parameter=5]
messages/iterm_underline [integer,parameter=4]
messages/ldie_onerror [logical,private/optional/default=.true.]
messages/ldie_onfatalerror [logical,private/optional/default=.true.]
messages/ldie_onwarning [logical,private/optional/default=.false.]
messages/llife_support [logical,private/optional/default=.false.]
messages/ltermcap_color [logical,private/optional/default=.false.]
messages/message_stored [character,private/optional/default='']
messages/scaller [character,private/optional/default='']
messages/scanfile [private]
messages/terminal_defaultcolor [private]
messages/terminal_highlight_error [private]
messages/terminal_highlight_fatal_error [private]
messages/terminal_highlight_warning [private]

Subroutines and functions

subroutine messages/initialize_messages()

Set a flag if colored output has been requested. Also set a flag if fake_parallel_io is requested.

subroutine messages/set_caller(caller)

Parameters:: caller [character]
Call to:: die_immediately(), die_gracefully(), mpiabort(), mpigather_scl_str(), fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/not_implemented([location[, message[, force]]])

Parameters:

location [character]
message [character]
force [logical]

Use :

general (loptest()), mpicomm (die_immediately(), die_gracefully())

Called from:

magnetic_calc_spectra(), calc_diagnostic_auxiliaries_magnetic(), calc_diagnostics_magnetic(), magnetic_after_timestep(), magnetic_after_mn(), dynamical_resistivity(), magnetic_before_boundary(), input_persistent_magnetic(), beltrami_phase(), initialize_boundcond(), boundconds_x_c(), boundconds_y_c(), boundconds_z_c(), initialize_density_bcs(), bc_lnrho_cfb_r_iso(), bc_lnrho_hdss_z_iso(), bc_lnrho_hds_z_iso_dens(), bc_ism_dens(), initialize_diagnostic_arrays(), write_1daverages_prepare(), register_energy(), initialize_energy(), init_energy(), pencil_criteria_energy(), pencil_interdep_energy(), calc_pencils_energy(), energy_after_boundary(), bc_ss_flux(), bc_ss_flux_turb(), bdry_magnetic(), bc_ss_flux_turb_x(), bc_ss_flux_condturb_x(), bc_ss_flux_condturb_mean_x(), bc_ss_flux_condturb_z(), bc_ss_temp_old(), bc_ss_temp_x(), bc_ss_temp_y(), bc_ss_temp_z(), bc_lnrho_temp_z(), bc_lnrho_pressure_z(), bc_ss_temp2_z(), bc_ss_temp3_z(), bc_ss_stemp_x(), bc_ss_stemp_y(), bc_ss_stemp_z(), bc_ss_a2stemp_x(), bc_ss_a2stemp_y(), bc_ss_a2stemp_z(), bc_ss_energy(), register_eos(), units_eos(), initialize_eos(), select_eos_variable(), rprint_eos(), get_slices_eos(), pencil_criteria_eos(), pencil_interdep_eos(), getdensity(), gettemperature(), getpressure(), get_gamma_etc(), read_eos_init_pars(), write_eos_init_pars(), read_eos_run_pars(), write_eos_run_pars(), isothermal_entropy(), bc_stellar_surface(), bc_ism(), getmu(), temperature_gradient(), temperature_hessian(), isothermal_lnrho_ss(), temperature_laplacian(), get_average_pressure(), get_stratz(), init_eos(), ioncalc(), register_particles(), initialize_particles(), init_particles(), interpolate_linear(), register_testfield(), initialize_testfield(), init_aatest(), pencil_criteria_testfield(), pencil_interdep_testfield(), read_testfield_init_pars(), write_testfield_init_pars(), read_testfield_run_pars(), write_testfield_run_pars(), daatest_dt(), phi_siny_over_r2(), sinxsinz(), sinx_siny_sinz(), sinx_siny_cosz(), x3_siny_cosz(), x_siny_cosz(), x1_siny_cosz(), x32_siny_cosz(), x1_cosy_cosz(), lnx_cosy_cosz(), cosx_siny_cosz(), sinx_cosy_cosz(), sin2x_sin2y_cosz(), cosxz_cosz(), cosyz_sinz(), cosx_cosy_cosz(), cosx_cosz(), cosy_cosz(), cosy_sinz(), x3_cosy_cosz(), cosx_coscosy_cosz(), cos2x_cos2y_cos2z(), xpoint(), xpoint2(), innerbox(), couette(), couette_rings(), hat(), hat3d(), gaussian(), gaussian3d(), gaussianpos(), parabola(), wave(), linprof(), wave_uu(), acosy(), modes(), modev(), modeb(), jump(), bjump(), bjumpz(), beltrami_old(), abc_field(), beltrami(), beltramik_general(), beltrami_general(), bihelical(), bhyperz(), beltrami_complex(), bessel_x(), bessel_az_x(), straining(), rolls(), robertsflow(), rotated_robertsflow(), exponential(), vecpatternxy(), bipolar(), bipolar_restzero(), soundwave(), coswave(), sph_constb(), hatwave(), sinwave(), sinwave_phase(), coswave_phase(), hawley_etal99a(), stratification(), stratification_x(), stratification_xz(), planet_hc(), planet(), vortex_2d(), baroclinic(), crazy(), strange(), htanh(), vtube(), vtube_peri(), htube(), htube_x(), htube_erf(), htube2(), htube2_x(), magsupport(), hfluxlayer(), hfluxlayer_y(), hfluxlayer_y_theta(), vfluxlayer(), arcade_x(), halfcos_x(), halfcos_z(), uniform_x(), uniform_y(), uniform_z(), uniform_phi(), gaussian_by_z(), phi_comp_over_r(), vfield(), vfield2(), trilinear(), triquad(), isotdisk(), cos_cos_sin(), tor_pert(), const_omega(), diffrot(), olddiffrot(), powern(), power_randomphase(), power_randomphase_hel(), bunch_davies(), random_isotropic_ks(), random_isotropic_shell(), corona_init(), mdi_init(), mag_init(), mag_az_init(), file_init(), temp_hydrostatic(), const_lou(), ferriere_uniform_x(), ferriere_uniform_y(), rotblob(), rotblob_yz(), dipole(), quadrupole(), quadrupole2(), quadrupole3(), dipolea(), dipoleb(), switchback(), dipole_tor(), register_particles_breakup(), initialize_particles_breakup(), particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), register_particles_number(), initialize_particles_number(), register_particles_surfspec(), init_particles_surf(), read_particles_surf_init_pars(), write_particles_surf_init_pars(), read_particles_surf_run_pars(), write_particles_surf_run_pars(), initialize_particles_surf(), dpsurf_dt(), dpsurf_dt_pencil(), register_particles_tt(), initialize_particles_tt(), register_polymer(), initialize_polymer(), init_poly(), pencil_criteria_polymer(), pencil_interdep_polymer(), calc_pencils_polymer(), dpoly_dt(), calc_diagnostics_polymer(), initialize_power_spectrum(), read_power_spectrum_run_pars(), write_power_spectrum_run_pars(), power(), crossspec(), power_2d(), power_xy(), register_shear(), initialize_shear(), read_shear_init_pars(), write_shear_init_pars(), read_shear_run_pars(), write_shear_run_pars(), shear_before_boundary(), pencil_criteria_shear(), pencil_interdep_shear(), calc_pencils_shear(), shearing(), calc_diagnostics_shear(), advance_shear(), sheared_advection_fft(), boundcond_shear(), shear_variables(), wvid_prepare(), wvid(), setup_slices(), special_calc_hydro(), special_calc_density(), special_calc_dustdensity(), special_calc_energy(), special_calc_magnetic(), special_calc_pscalar(), special_calc_particles(), special_calc_chemistry(), special_before_boundary(), register_viscosity(), initialize_viscosity(), read_viscosity_run_pars(), write_viscosity_run_pars(), rprint_viscosity(), pencil_criteria_viscosity(), pencil_interdep_viscosity(), calc_pencils_viscosity(), viscosity_after_boundary(), calc_viscous_heat(), calc_viscous_force(), calc_diagnostics_viscosity(), calc_visc_heat_ppd(), getnu(), initialize_particles_map(), interpolate_quadratic(), interpolate_quadratic_spline(), map_nearest_grid(), sort_particles_imn(), boundcond_neighbour_list(), map_xxp_grid(), map_vvp_grid(), shepherd_neighbour_pencil(), shepherd_neighbour_block(), sort_particles_iblock(), fill_blocks_with_bricks(), fill_bricks_with_blocks(), shepherd_neighbour_pencil3d(), assign_slices_f_scal(), addto_slices(), initialize_eos_chemistry(), initialize_chemistry_og(), max_mn(), sum_mn(), dot_mn(), vec_dot_3tensor(), matrix2linarray(), linarray2matrix(), inv2_3x3mat(), scalartripleproduct(), det3x3mat(), dot_mn_sv(), dot_mn_sv_pencil(), dot_mn_sm(), dot_mn_vm(), dot_mn_vm_trans(), dot2_mn(), dot2_mx(), dot2fj(), dyadic2(), dyadic2_other(), trace_mn(), mult_matrix(), multm2_mn(), multm2_sym_mn(), multmv_mn(), invmat_db(), multsv_mn(), multsv_mn_add(), multsm_mn(), cross_mn(), cross_mixed(), gij(), gij_v_times_s(), gijl_symmetric(), grad5(), div(), div_tensor(), div_other(), div_mn(), div_mn_2tensor(), curl_mn(), curl_horizontal(), curl(), curl_other(), curli(), del2v(), del2m3x3_sym(), del2fj(), del2fi_dxjk(), d2fi_dxj(), symmetrise3x3_ut2lt(), del2v_etc(), del2vi_etc(), del4v(), del6v(), bij_tilde(), gij_etc(), g2ij(), del4(), del6(), del6_strict(), del4graddiv(), del6_other(), del6fj(), del6fjv(), u_dot_grad_mat(), initialize_timestep()

Call to:

die_immediately(), die_gracefully(), mpiabort(), mpigather_scl_str(), fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/fatal_error([location, message[, force]])

Parameters:

location [character]
message [character]
force [logical]

Use :

general (loptest()), mpicomm (die_immediately(), die_gracefully())

Called from:

Call to:

die_immediately(), die_gracefully(), mpiabort(), mpigather_scl_str(), fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/inevitably_fatal_error([location, message[, force]])

A fatal error that doesn’t care for llife_support Use (sparingly) in those cases where things should fail even during pencil_consistency_test 07-26-2011: JulienAdded forced exit if “force” is set to .true.

Parameters:

location [character]
message [character]
force [logical]

Use :

general (loptest()), mpicomm (die_immediately(), die_gracefully())

Called from:

initialize_power_spectrum()

Call to:

die_immediately(), die_gracefully(), mpiabort(), mpigather_scl_str(), fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/fatal_error_local([location, message])

Register a fatal error happening at one processor. The code will die at the end of the time-step.

17-may-2006/anders: coded 4-apr-2025/TP: if using the GPU abort on local errors immediately since combining local errors is surprisingly expensive

and anyways if using the GPU I think as of date this is not even called

Parameters:

location [character]
message [character]

Use :

mpicomm (mpiabort())

Called from:

initialize_boundcond(), boundconds_x_c(), boundconds_y_c(), boundconds_z_c(), jet_x(), register_density(), initialize_density(), init_lnrho(), pencil_criteria_density(), pencil_interdep_density(), density_after_boundary(), calc_pencils_density(), pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries(), perform_diagnostics(), finalize_diagnostics(), debug_imn_arrays(), impose_floors_ceilings(), initialize_particles_mpicomm(), migrate_particles(), load_balance_particles(), output_blocks(), input_blocks(), sort_blocks(), register_particles_nbody(), initialize_particles_nbody(), pencil_criteria_par_nbody(), pencil_interdep_par_nbody(), calc_pencils_par_nbody(), init_particles_nbody(), dvvp_dt_nbody_pencil(), dxxp_dt_nbody(), dvvp_dt_nbody(), loop_through_nbodies(), loop_through_nbodies_inertial(), loop_through_nbodies_fixstar(), get_evr(), point_par_name(), read_particles_nbody_init_pars(), write_particles_nbody_init_pars(), read_particles_nbody_run_pars(), write_particles_nbody_run_pars(), reset_center_of_mass(), integrate_selfgravity(), bcast_nbodyarray(), particles_nbody_special(), get_totalmass(), get_gravity_field_nbody(), calc_torque(), get_ramped_mass(), calc_nbodygravity_particles(), get_total_gravity(), add_indirect_term(), advance_particles_in_cartesian(), update_position(), update_velocity(), particles_nbody_read_snapshot(), particles_nbody_write_snapshot(), particles_nbody_write_spdim(), rprint_particles_nbody(), create_particles_sink_nbody(), remove_particles_sink_nbody(), merge_and_share(), in_solid_cell(), initialize_particles_adaptation(), particles_adaptation_pencils(), read_particles_adapt_run_pars(), write_particles_adapt_run_pars(), rprint_particles_adaptation(), get_brick_index(), register_particles_sink(), initialize_particles_sink(), init_particles_sink(), calc_selfpot_sinkparticles(), create_particles_sink(), remove_particles_sink(), initialize_particles_stalker(), finalize_particles_stalker(), particles_stalker_sub(), initialize_particles_map(), map_nearest_grid(), input_particles(), output_particles(), append_npvar(), append_npaux(), boundconds_particles()

Call to:

mpiabort(), mpigather_scl_str(), die_gracefully(), fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/fatal_error_local_collect()

Collect fatal errors from processors and die if there are any.

17-may-2006/anders: coded 4-apr-2025/TP: not done on the GPU since surprisingly expensive: instead MPI_ABORT on any local error immediately

subroutine messages/error([location, message])

Parameters:

location [character]
message [character]

Use :

mpicomm (die_gracefully())

Called from:

register_density(), initialize_density(), init_lnrho(), max_mn(), sum_mn(), dot_mn(), vec_dot_3tensor(), matrix2linarray(), linarray2matrix(), inv2_3x3mat(), scalartripleproduct(), det3x3mat(), dot_mn_sv(), dot_mn_sv_pencil(), dot_mn_sm(), dot_mn_vm(), dot_mn_vm_trans(), dot2_mn(), dot2_mx(), dot2fj(), dyadic2(), dyadic2_other(), trace_mn(), mult_matrix(), multm2_mn(), multm2_sym_mn(), multmv_mn(), invmat_db(), multsv_mn(), multsv_mn_add(), multsm_mn(), cross_mn(), cross_mixed(), gij(), gij_v_times_s(), gijl_symmetric(), grad5(), div(), div_tensor(), div_other(), div_mn(), div_mn_2tensor(), curl_mn(), curl_horizontal(), curl(), curl_other(), curli(), del2v(), del2m3x3_sym(), del2fj(), del2fi_dxjk(), d2fi_dxj(), symmetrise3x3_ut2lt(), del2v_etc(), del2vi_etc(), del4v(), del6v(), bij_tilde(), gij_etc(), g2ij(), del4(), del6(), del6_strict(), del4graddiv(), del6_other(), del6fj(), del6fjv(), u_dot_grad_mat(), nou_dot_grad_scl(), h_dot_grad_vec(), gradf_upw1st(), rdim(), read_snaptime(), update_snaptime(), shift_dt(), set_next_dt(), set_dt(), vecout(), vecout_initialize(), vecout_finalize(), despike(), smooth_kernel(), smooth(), smooth_mn(), get_smooth_kernel(), eulag_filter(), identify_bcs(), noform()

Call to:

die_gracefully(), fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/warning([location, message[, ipr]])

Print out colored warning.

30-jun-05/tony: coded
2-apr-17/MR: optional parameter ip = processor number added

Parameters:

location [character]
message [character]
ipr [integer]

Use :

general (ioptest()), mpicomm (die_gracefully())

Called from:

Call to:

die_gracefully(), fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/information([location, message[, level[, ipr]]])

Print out colored warning.

30-jun-05/tony: coded

Parameters:

location [character]
message [character]
level [integer]
ipr [integer]

Use :

general (ioptest())

Called from:

initialize_boundcond(), register_density(), initialize_density(), init_lnrho(), register_io(), initialize_messages(), set_caller(), not_implemented(), fatal_error(), inevitably_fatal_error(), fatal_error_local(), fatal_error_local_collect(), error(), warning(), information(), svn_id(), timing(), life_support_off(), life_support_on(), initialize_power_spectrum(), read_power_spectrum_run_pars(), write_power_spectrum_run_pars(), power(), crossspec(), power_2d(), power_xy(), powerhel(), powerlor(), poweromu(), poweremf(), powertra(), powergws(), powerscl(), power_1d(), pdf(), pdf_2d(), pdf1d_ang(), power_phi(), powerhel_phi(), power_vec(), polar_spectrum(), power1d_plane(), power_cor(), power_cor_scl(), quadratic_invariants(), register_shear(), initialize_shear(), get_datadir(), get_snapdir(), read_all_init_pars(), read_all_run_pars(), get_downpars(), register_modules(), initialize_modules(), finalize_modules(), choose_pencils()

Call to:

fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/svn_id(svnid)

Print SVN Revision info in a compact, yet structured form. Expects the standard “SVN Id:” line as argument.

25-jun-02/wolf: coded

Parameters:: svnid [character]
Use :: syscalls (directory_exists())
Called from:: register_sgs_hydro(), register_ascalar(), register_magnetic(), register_chiral(), register_cosmicray(), register_cosmicrayflux(), register_density(), register_detonate(), register_dustdensity(), register_dustvelocity(), register_energy(), register_eos(), pde(), inverse_laplacian(), initialize_poisson(), register_conductivity(), register_forcing(), register_gravity(), register_hydro(), register_neutralvelocity(), register_particles(), register_particles_nbody(), register_particles_potential(), register_particles_radius(), register_shock(), register_heatflux(), register_testfield(), register_initial_condition(), register_lorenz_gauge(), register_neutraldensity(), register_interstellar(), register_particles_ads(), register_particles_caustics(), register_particles_density(), register_pars_diagnos_state(), register_particles_drag(), register_particles_grad(), register_particles_lyapunov(), register_particles_mass(), register_particles_number(), register_particles_persistence(), register_particles_selfgrav(), register_particles_sink(), register_particles_spin(), register_particles_tt(), register_particles_tetrad(), register_pointmasses(), register_polymer(), initialize_power_spectrum(), read_power_spectrum_run_pars(), write_power_spectrum_run_pars(), power(), crossspec(), power_2d(), power_xy(), powerhel(), powerlor(), poweromu(), poweremf(), powertra(), powergws(), powerscl(), power_1d(), pdf(), pdf_2d(), pdf1d_ang(), power_phi(), powerhel_phi(), power_vec(), polar_spectrum(), power1d_plane(), power_cor(), power_cor_scl(), quadratic_invariants(), power_fft3d_vec(), power_transfer_mag(), register_pscalar(), register_radiation(), register_selfgravity(), register_shear(), register_special(), register_particles_special(), register_testflow(), register_testscalar(), initialize_training(), register_training(), register_viscosity(), get_datadir(), get_snapdir(), read_all_init_pars(), read_all_run_pars(), helper_loop(), reload(), gen_output(), timeloop(), check_tspec_crit_log_interval(), check_tsnap_crit_log_interval(), check_tvid_crit_log_interval(), setup_signal_files(), print_metrics(), run_start(), initialize_testfield_general(), pc_collect, pc_configtest, pc_distribute, pc_distribute_z, pc_extract, pc_reduce, pc_tecplot, pc_tecplot_solid, start
Call to:: fatal_error(), directory_exists(), mpiwtime(), information(), outlog(), warning(), report_clean_output(), system_cmd(), memusage()

subroutine messages/timing([location, message[, instruct[, mnloop[, lforce]]]])

Timer: write the current systems time to standart output provided it=it_timing.

Parameters:

location [character]
message [character]
instruct [character]
mnloop [logical]
lforce [logical]

Use :

general (loptest()), mpicomm (mpiwtime())

Called from:

register_magnetic(), initialize_magnetic(), init_aa(), pencil_criteria_magnetic(), pencil_interdep_magnetic(), daa_dt(), pde(), write_diagnostics(), calc_all_module_diagnostic_auxiliaries(), perform_diagnostics(), finalize_diagnostics(), update_char_vel_magnetic(), set_ambipolar_diffusion(), diamagnetism(), particles_register_modules(), particles_rprint_list(), particles_initialize_modules(), particles_init(), particles_finalize(), particles_read_snapshot(), particles_write_snapshot(), particles_write_dsnapshot(), particles_write_pdim(), particles_write_block(), particles_write_rmv(), particles_timestep_first(), particles_timestep_second(), split_update_particles(), particles_load_balance(), particles_boundconds(), particles_pencil_criteria(), particles_pencil_interdep(), particles_calc_pencils(), particles_calc_selfpotential(), particles_before_boundary(), particles_special_bfre_bdary(), particles_special_after_dtsub(), particles_pde(), particles_pde_pencil(), read_all_particles_init_pars(), read_all_particles_run_pars(), write_dim_particles(), write_snapshot_particles(), read_snapshot_particles(), calc_pencils_chemistry_ogrid(), calc_pencils_eos_ogrid_chem(), calc_for_chem_mixture_ogrid(), dyk_dt_ogrid(), calc_pencils_magnetic(), helper_loop(), reload(), gen_output(), timeloop(), check_tspec_crit_log_interval(), check_tsnap_crit_log_interval(), check_tvid_crit_log_interval(), setup_signal_files(), print_metrics(), run_start(), initialize_eos_chemistry(), initialize_chemistry_og()

Call to:

mpiwtime(), information(), outlog(), warning(), fatal_error(), report_clean_output(), system_cmd(), memusage()

subroutine messages/life_support_off(message)

Allow code to die on errors

30-jun-05/tony: coded

Parameters:: message [character]
Called from:: pencil_consistency_check()
Call to:: information(), outlog(), warning(), fatal_error(), report_clean_output(), system_cmd(), memusage()

subroutine messages/life_support_on(message)

Prevent the code from dying on errors

30-jun-05/tony: coded

Parameters:: message [character]
Called from:: pencil_consistency_check()
Call to:: information(), outlog(), warning(), fatal_error(), report_clean_output(), system_cmd(), memusage()

subroutine messages/terminal_setfgcolor(col)

Set foreground color of terminal text

08-jun-05/tony: coded

Parameters:: col [integer]
Call to:: outlog(), warning(), fatal_error(), report_clean_output(), system_cmd(), memusage()

subroutine messages/terminal_setfgbrightcolor(col)

Set bright terminal colors

08-jun-05/tony: coded

Parameters:: col [integer]
Call to:: outlog(), warning(), fatal_error(), report_clean_output(), system_cmd(), memusage()

function messages/outlog(code, mode[, file[, dist[, msg[, lcont[, location[, iomsg]]]]]])

Creates log entries for I/O errors in ioerrors.log. Notifies user via e-mail if address mailaddress is given. stops program if lstop_on_ioerror is set. reverts incompletely written files to a defined state, in particular distributed files in data/procN/ -> all sub-files in a coherent state

Parameters:

code [integer,in] :: IN): errorcode from IOSTAT
mode [character,in] :: IN): describes failed action, starts with ‘open’, ‘openr’, ‘openw’, ‘read’, ‘write’ or ‘close’ for ‘read’ and ‘write’: should contain the name of the relevant variable(s)
file [character,in,] :: ‘) if omitted assumed to be the one saved in curfile usually set by the call with mode=’open’
dist [integer,in,] :: IN): indicator for distributed files (>0) and need of synchronization of file states across nodes or simple backskipping (<0);|dist| = logical unit number only considered in calls with mode=’open’
msg [character,in,] :: IN) : additional message text
lcont [logical,in,] :: IN): flag for continue despite of READ error
location [character,in,] :: IN): name of program unit, in which error occurred if omitted assumed to be the one saved in scaller usually set by the call with mode=’open’
iomsg [character,in,] ::
IN): Fortran runtime message text

return value: flag for ‘I/O error has occurred’. If so execution should jump immediately after the ‘close’
statement ending the present group of I/O operations as outlog closes (tries to close) the file. It is in the responsibility of the programmer that by this jump no relevant statements are missed.

3-nov-11/MR: coded;

16-nov-11/MR: modified; experimental version which always stops program on I/O error 13-Dec-2011/Bourdin.KIS: added EOF sensing, which is not an error. 20-oct-13/MR: new options lcont,location introduced 28-oct-13/MR: handling of lcont modified: now only in effect when reading 26-mar-15/MR: mode now saved across calls, reset by calls with mode=open and mode=close

-> read or write needs not to be indicated in mode when set by call with mode=open

Return:

outlog [logical]

Use :

general (itoa(), date_time_string(), safe_character_append(), safe_character_prepend(), backskip(), loptest()), mpicomm (report_clean_output()), syscalls (system_cmd())

Called from:

output_vect(), output_scal(), output_pencil_vect(), output_pencil_scal(), commit_io_type_vect(), commit_io_type_vect_1d(), write_record_info(), commit_gridio_types(), write_grid_data(), read_grid_data(), initialize_diagnostics(), prints(), report_undefined_diagnostics(), gen_form_legend(), initialize_messages(), set_caller(), not_implemented(), fatal_error(), inevitably_fatal_error(), fatal_error_local(), fatal_error_local_collect(), error(), warning(), information(), svn_id(), timing(), life_support_off(), life_support_on(), terminal_setfgcolor(), terminal_setfgbrightcolor()

Call to:

warning(), fatal_error(), report_clean_output(), system_cmd()

subroutine messages/memory_usage()

Prints total memory usage and per-process usage.

20-apr-23/MR: coded

Use :: mpicomm (mpireduce_max_int(), mpireduce_sum_int()), syscalls (memusage())
Call to:: memusage()