snapshots_test_diffusion_m Module

Auxiliary module for test_diffusion for writing snapshopts to file


Uses

  • module~~snapshots_test_diffusion_m~~UsesGraph module~snapshots_test_diffusion_m snapshots_test_diffusion_m module~error_handling_m error_handling_m module~snapshots_test_diffusion_m->module~error_handling_m module~mesh_cart_m mesh_cart_m module~snapshots_test_diffusion_m->module~mesh_cart_m module~precision_m precision_m module~snapshots_test_diffusion_m->module~precision_m netcdf netcdf module~snapshots_test_diffusion_m->netcdf module~error_handling_m->module~precision_m module~error_handling_m->netcdf module~comm_handling_m comm_handling_m module~error_handling_m->module~comm_handling_m module~screen_io_m screen_io_m module~error_handling_m->module~screen_io_m module~status_codes_m status_codes_m module~error_handling_m->module~status_codes_m mpi mpi module~error_handling_m->mpi module~mesh_cart_m->module~error_handling_m module~mesh_cart_m->module~precision_m module~mesh_cart_m->netcdf iso_c_binding iso_c_binding module~mesh_cart_m->iso_c_binding module~mesh_cart_m->module~comm_handling_m module~descriptors_m descriptors_m module~mesh_cart_m->module~descriptors_m module~equilibrium_m equilibrium_m module~mesh_cart_m->module~equilibrium_m module~slab_equilibrium_m slab_equilibrium_m module~mesh_cart_m->module~slab_equilibrium_m module~mesh_cart_m->module~status_codes_m module~precision_m->netcdf module~precision_m->iso_c_binding iso_fortran_env iso_fortran_env module~precision_m->iso_fortran_env module~precision_m->mpi module~comm_handling_m->mpi module~descriptors_m->module~screen_io_m module~equilibrium_m->module~precision_m module~screen_io_m->module~precision_m module~screen_io_m->netcdf module~screen_io_m->iso_fortran_env module~slab_equilibrium_m->module~precision_m module~slab_equilibrium_m->module~descriptors_m module~slab_equilibrium_m->module~equilibrium_m module~slab_equilibrium_m->module~screen_io_m module~params_equi_slab_m params_equi_slab_m module~slab_equilibrium_m->module~params_equi_slab_m module~params_equi_slab_m->module~error_handling_m module~params_equi_slab_m->module~precision_m module~params_equi_slab_m->iso_fortran_env module~params_equi_slab_m->module~screen_io_m module~params_equi_slab_m->module~status_codes_m

Used by

  • module~~snapshots_test_diffusion_m~~UsedByGraph module~snapshots_test_diffusion_m snapshots_test_diffusion_m program~test_diffusion test_diffusion program~test_diffusion->module~snapshots_test_diffusion_m

Subroutines

public subroutine initialize_snapsfile(mesh, filename)

Creates a snapfile and sets dimension and variables

Arguments

Type IntentOptional Attributes Name
type(mesh_cart_t), intent(in) :: mesh

Mesh
character(len=*), intent(in) :: filename

Filename of netcdf file

public subroutine write_to_snapsfile(mesh, tau, u_naive, u_supp)

Writes variables to snapsfile

Arguments

Type IntentOptional Attributes Name
type(mesh_cart_t), intent(in) :: mesh

Mesh
real(kind=FP), intent(in) :: tau

Time
real(kind=FP), intent(in), dimension(mesh%get_n_points()) :: u_naive

Variable of naive solution
real(kind=FP), intent(in), dimension(mesh%get_n_points()) :: u_supp

Variable of support operator solution

public subroutine finalize_snapsfile()

Closes snapsfile

Arguments

None