define_marmousi_grid Subroutine

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

Calls

proc~~define_marmousi_grid~~CallsGraph proc~define_marmousi_grid define_marmousi_grid mpi_recv mpi_recv proc~define_marmousi_grid->mpi_recv mpi_send mpi_send proc~define_marmousi_grid->mpi_send

Called by

proc~~define_marmousi_grid~~CalledByGraph proc~define_marmousi_grid define_marmousi_grid program~helmholtz_2d helmholtz_2d program~helmholtz_2d->proc~define_marmousi_grid