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

Go to the documentation of this file.

!  Associated Legendre function and factorials
!______________________________________________
subroutine copy_legendre_fn_grav_to_mpt(impt)
  use legendre_fn_grav
  use legendre_fn_grav_mpt
  use grid_parameter, only : ntg, nlg
  use copy_array_3dto4d_mpt
  use copy_array_1dto2d_mpt
  use copy_array_2dto3d_mpt
  implicit none
  integer :: impt
!
  call copy_array3dto4d_mpt(impt, plmg, plmg_, 0, nlg, 0, nlg, 0, ntg)
  call copy_array3dto4d_mpt(impt, hplmg, hplmg_, 0, nlg, 0, nlg, 1, ntg)
  call copy_array3dto4d_mpt(impt, dtplmg, dtplmg_, 0, nlg, 0, nlg, 0, ntg)
  call copy_array3dto4d_mpt(impt, hdtplmg, hdtplmg_, 0, nlg, 0, nlg, 1, ntg)
  call copy_array3dto4d_mpt(impt, yplmg, yplmg_, 0, nlg, 0, nlg, 0, ntg)
  call copy_array3dto4d_mpt(impt, hyplmg, hyplmg_, 0, nlg, 0, nlg, 1, ntg)
  call copy_array3dto4d_mpt(impt, dtyplmg, dtyplmg_, 0, nlg, 0, nlg, 0, ntg)
  call copy_array3dto4d_mpt(impt, hdtyplmg, hdtyplmg_, 0, nlg, 0, nlg, 1, ntg)
  call copy_array2dto3d_mpt(impt, facnmg, facnmg_, 0, nlg, 0, nlg)
  call copy_array1dto2d_mpt(impt, epsig, epsig_, 0, nlg)
!
end subroutine copy_legendre_fn_grav_to_mpt

---