read_wavenumber_k_marmousi Subroutine

public subroutine read_wavenumber_k_marmousi()

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

Arguments

None

Calls

proc~~read_wavenumber_k_marmousi~~CallsGraph proc~read_wavenumber_k_marmousi read_wavenumber_k_marmousi mpi_recv mpi_recv proc~read_wavenumber_k_marmousi->mpi_recv mpi_send mpi_send proc~read_wavenumber_k_marmousi->mpi_send proc~mg_checkreal_xy2d mg_checkreal_xy2d proc~read_wavenumber_k_marmousi->proc~mg_checkreal_xy2d proc~mg_checkreal_x2d mg_checkreal_x2d proc~mg_checkreal_xy2d->proc~mg_checkreal_x2d proc~mg_checkreal_y2d mg_checkreal_y2d proc~mg_checkreal_xy2d->proc~mg_checkreal_y2d mpi_sendrecv mpi_sendrecv proc~mg_checkreal_x2d->mpi_sendrecv proc~mg_checkreal_y2d->mpi_sendrecv

Called by

proc~~read_wavenumber_k_marmousi~~CalledByGraph proc~read_wavenumber_k_marmousi read_wavenumber_k_marmousi program~helmholtz_2d helmholtz_2d program~helmholtz_2d->proc~read_wavenumber_k_marmousi