mapl_checkpoint_support_mod Module


Uses

  • module~~mapl_checkpoint_support_mod~~UsesGraph module~mapl_checkpoint_support_mod mapl_checkpoint_support_mod ESMF ESMF module~mapl_checkpoint_support_mod->ESMF NetCDF NetCDF module~mapl_checkpoint_support_mod->NetCDF fargparse fargparse module~mapl_checkpoint_support_mod->fargparse iso_fortran_env iso_fortran_env module~mapl_checkpoint_support_mod->iso_fortran_env module~mapl_errorhandlingmod mapl_ErrorHandlingMod module~mapl_checkpoint_support_mod->module~mapl_errorhandlingmod mpi mpi module~mapl_checkpoint_support_mod->mpi module~mapl_errorhandling mapl_ErrorHandling module~mapl_errorhandlingmod->module~mapl_errorhandling module~mapl_errorhandling->mpi module~mapl_throwmod MAPL_ThrowMod module~mapl_errorhandling->module~mapl_throwmod

Used by

  • module~~mapl_checkpoint_support_mod~~UsedByGraph module~mapl_checkpoint_support_mod mapl_checkpoint_support_mod program~checkpoint_tester checkpoint_tester program~checkpoint_tester->module~mapl_checkpoint_support_mod

Variables

Type Visibility Attributes Name Initial
real(kind=REAL64), public, parameter :: byte_to_mega = (1.0d0/1024.0d0)*(1.0d0/1024.0d0)

Derived Types

type, public ::  array_wrapper

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: field_name
real, public, allocatable :: field(:,:,:)

type, public ::  cli_options

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: config_file
integer, public :: im_world
integer, public :: lm
integer, public :: n_trials
integer, public :: num_arrays
integer, public :: num_writers
integer, public :: nx
integer, public :: ny
logical, public :: do_chunking = .true.
logical, public :: do_writes = .true.
logical, public :: gather_3d = .false.
logical, public :: netcdf_writes = .true.
logical, public :: random_data = .true.
logical, public :: split_file = .false.
logical, public :: write_barrier = .false.

type, public ::  test_support

Components

Type Visibility Attributes Name Initial
integer(kind=INT64), public :: close_file_time
integer(kind=INT64), public :: create_file_time
integer(kind=INT64), public :: mpi_time
integer(kind=INT64), public :: write_2d_time
integer(kind=INT64), public :: write_3d_time
integer(kind=INT64), public :: write_counter
integer, public :: face_index
integer, public :: gather_comm
integer, public, allocatable :: i1(:)
integer, public :: im_world
integer, public, allocatable :: in(:)
integer, public, allocatable :: j1(:)
integer, public, allocatable :: jn(:)
integer, public :: lm
integer, public :: n_trials
integer, public :: ncid
integer, public :: num_arrays
integer, public :: num_writers
integer, public :: nx
integer, public :: ny
integer, public :: writers_comm
integer, public :: xcomm
integer, public :: ycomm
logical, public :: do_chunking
logical, public :: do_writes
logical, public :: extra_info
logical, public :: gather_3D
logical, public :: netcdf_writes
logical, public :: random
logical, public :: split_file
logical, public :: write_barrier
real(kind=REAL64), public :: data_volume
real(kind=REAL64), public :: time_mpi
real(kind=REAL64), public :: time_writing
type(array_wrapper), public, allocatable :: bundle(:)

Type-Bound Procedures

procedure, public :: allocate_n_arrays
procedure, public :: close_file
procedure, public :: compute_decomposition
procedure, public :: create_arrays
procedure, public :: create_communicators
procedure, public :: create_file
procedure, public :: reset
procedure, public :: set_parameters_by_cli
procedure, public :: set_parameters_by_config
procedure, public :: write_file
procedure, public :: write_level
procedure, public :: write_variable

Functions

public function compute_decomposition(this, axis) result(decomp)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this
integer, intent(in) :: axis

Return Value integer, allocatable, (:)

public function parse_arguments() result(options)

Arguments

None

Return Value type(StringUnlimitedMap)


Subroutines

public subroutine allocate_n_arrays(this, im, jm)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this
integer, intent(in) :: im
integer, intent(in) :: jm

public subroutine close_file(this)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this

public subroutine create_arrays(this)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this

public subroutine create_communicators(this)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this

public subroutine create_file(this)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this

public subroutine get_cli_options(options, cli)

Arguments

Type IntentOptional Attributes Name
type(StringUnlimitedMap), intent(in) :: options
type(cli_options), intent(out) :: cli

public subroutine reset(this)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this

public subroutine set_parameters_by_cli(this, cli)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this
type(cli_options), intent(in) :: cli

public subroutine set_parameters_by_config(this, config_file)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this
character(len=*), intent(in) :: config_file

public subroutine write_file(this)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this

public subroutine write_level(this, var_name, local_var, z_index)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this
character(len=*), intent(in) :: var_name
real, intent(in) :: local_var(:,:)
integer, intent(in) :: z_index

public subroutine write_variable(this, var_name, local_var)

Arguments

Type IntentOptional Attributes Name
class(test_support), intent(inout) :: this
character(len=*), intent(in) :: var_name
real, intent(in) :: local_var(:,:,:)