wavenumber Module

This module is used to determine the wavenumber of the computational domain, as well as (kh)^2


Uses

  • module~~wavenumber~~UsesGraph module~wavenumber wavenumber module~comm_variable comm_variable module~wavenumber->module~comm_variable module~mpi_setup mpi_setup module~wavenumber->module~mpi_setup mpi mpi module~wavenumber->mpi module~comm_variable->mpi module~mpi_setup->module~comm_variable module~mpi_setup->mpi

Used by

  • module~~wavenumber~~UsedByGraph module~wavenumber wavenumber module~cslp_solver CSLP_Solver module~cslp_solver->module~wavenumber module~operators operators module~cslp_solver->module~operators module~smoother smoother module~cslp_solver->module~smoother module~define_bc define_BC module~define_bc->module~wavenumber module~deflaion_setup deflaion_setup module~deflaion_setup->module~wavenumber module~deflaion_setup->module~cslp_solver module~deflaion_setup->module~operators module~operators->module~wavenumber module~operators->module~define_bc program~helmholtz_2d helmholtz_2d program~helmholtz_2d->module~wavenumber module~solvers solvers program~helmholtz_2d->module~solvers module~user_module user_module program~helmholtz_2d->module~user_module module~idrs_module idrs_module program~helmholtz_2d->module~idrs_module module~smoother->module~define_bc module~smoother->module~operators module~solvers->module~cslp_solver module~solvers->module~deflaion_setup module~solvers->module~operators module~user_module->module~cslp_solver module~user_module->module~deflaion_setup module~user_module->module~operators module~idrs_module->module~user_module

Variables

Type Visibility Attributes Name Initial
real(kind=realdp), public, allocatable, dimension(:,:) :: wavenumber_k
real(kind=realdp), public, allocatable, dimension(:,:) :: kh_pow_2

Subroutines

public subroutine Const_K()

constant wavenumber, determine by input variable k0 data communication with neighbouring subdomains

Arguments

None

public subroutine wavenumber_k_Wedge(xx, yy)

Wavenumber for Wedge model problem The top layer The bottom layer The middle layer

Arguments

Type IntentOptional Attributes Name
real(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: xx
real(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: yy

public subroutine read_wavenumber_k_marmousi()

Read the velocity profile of Marmousi problem with specified grid size and calculate the wavenumber

Arguments

None

public subroutine wavenumber_k_destroy()

Deallocate the wavenumber field in the end

Arguments

None