define_grid Module

This is a module to determine the grid coordinate. First determined by Rank 0 and then distributed to the other ranks. For now, only rectangular domain with uniform space step size, i.e. hx==hy.


Uses

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

Used by

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

Subroutines

public subroutine define_uniform_grid(phys1, phys2)

A square computational domain with a unit side length

Arguments

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

Local coordinates in x and y directions
real(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: phys2

Local coordinates in x and y directions

public subroutine define_wedge_grid(phys1, phys2)

Wedge model problem

Arguments

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

public subroutine define_marmousi_grid(phys1, phys2)

Marmousi problem

Arguments

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