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

Go to the documentation of this file.

!  Associated Legendre function and factorials
!______________________________________________
subroutine copy_legendre_fn_grav_from_mpt(impt)
  use legendre_fn_grav
  use legendre_fn_grav_mpt
  use grid_parameter, only : ntg, nlg
  use copy_array_4dto3d_mpt
  use copy_array_2dto1d_mpt
  use copy_array_3dto2d_mpt
  implicit none
  integer :: impt
!
  call copy_array4dto3d_mpt(impt, plmg_, plmg, 0, nlg, 0, nlg, 0, ntg)
  call copy_array4dto3d_mpt(impt, hplmg_, hplmg, 0, nlg, 0, nlg, 1, ntg)
  call copy_array4dto3d_mpt(impt, dtplmg_, dtplmg, 0, nlg, 0, nlg, 0, ntg)
  call copy_array4dto3d_mpt(impt, hdtplmg_, hdtplmg, 0, nlg, 0, nlg, 1, ntg)
  call copy_array4dto3d_mpt(impt, yplmg_, yplmg, 0, nlg, 0, nlg, 0, ntg)
  call copy_array4dto3d_mpt(impt, hyplmg_, hyplmg, 0, nlg, 0, nlg, 1, ntg)
  call copy_array4dto3d_mpt(impt, dtyplmg_, dtyplmg, 0, nlg, 0, nlg, 0, ntg)
  call copy_array4dto3d_mpt(impt, hdtyplmg_, hdtyplmg, 0, nlg, 0, nlg, 1, ntg)
  call copy_array3dto2d_mpt(impt, facnmg_, facnmg, 0, nlg, 0, nlg)
  call copy_array2dto1d_mpt(impt, epsig_, epsig, 0, nlg)
!
end subroutine copy_legendre_fn_grav_from_mpt

---