/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_radial_green_fn_grav_to_mpt.f90

Go to the documentation of this file.

! --- Computation of the radial green's function hgfn. ---
! ________________________________________________________
subroutine copy_radial_green_fn_grav_to_mpt(impt)
  use grid_parameter, only : nrg, nlg
  use radial_green_fn_grav
  use radial_green_fn_grav_mpt
  use copy_array_3dto4d_mpt
  implicit none
  integer :: impt
!
  call copy_array3dto4d_mpt(impt, hgfn, hgfn_, 1, nrg, 0, nlg, 0, nrg)
  call copy_array3dto4d_mpt(impt, gfnsf, gfnsf_, 0, nlg, 0, nrg, 1, 4)
!
end subroutine copy_radial_green_fn_grav_to_mpt

---