define_rhs Module

This is a module to determine the right-hand side for different model problems


Uses

  • module~~define_rhs~~UsesGraph module~define_rhs define_rhs module~comm_variable comm_variable module~define_rhs->module~comm_variable mpi mpi module~define_rhs->mpi module~comm_variable->mpi

Used by

  • module~~define_rhs~~UsedByGraph module~define_rhs define_rhs program~helmholtz_2d helmholtz_2d program~helmholtz_2d->module~define_rhs

Subroutines

public subroutine RHS_2DCloseOff(b, xx, yy)

2D close-off problem with Dirichlet boundary condition

Arguments

Type IntentOptional Attributes Name
complex(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: b
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 RHS_CenterSource2D(b, xx, yy)

2D constant wavenumber problem with a central point source A point source located at (0.5,0.5)

Arguments

Type IntentOptional Attributes Name
complex(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: b
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 RHS_2DWedge(b, xx, yy)

2D Wedge problem A point source located at (300,0)

Arguments

Type IntentOptional Attributes Name
complex(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: b
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 RHS_marmousi(b, xx, yy)

Marmousi problem A point source located at (6000,0)

Arguments

Type IntentOptional Attributes Name
complex(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: b
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