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

Go to the documentation of this file.

!  trigonometric functions in theta coordinate
!______________________________________________
subroutine copy_trigonometry_grav_theta_to_mpt(impt)
  use phys_constant, only : nntg
  use trigonometry_grav_theta
  use trigonometry_grav_theta_mpt
  use copy_array_static_1dto2d_mpt
  implicit none
  integer :: impt
!
  call copy_arraystatic_1dto2d_mpt(impt, sinthg, sinthg_, 0, nntg)
  call copy_arraystatic_1dto2d_mpt(impt, costhg, costhg_, 0, nntg)
  call copy_arraystatic_1dto2d_mpt(impt, cosecthg, cosecthg_, 0, nntg)
  call copy_arraystatic_1dto2d_mpt(impt, cotanthg, cotanthg_, 0, nntg)
  call copy_arraystatic_1dto2d_mpt(impt, hsinthg, hsinthg_, 1, nntg)
  call copy_arraystatic_1dto2d_mpt(impt, hcosthg, hcosthg_, 1, nntg)
  call copy_arraystatic_1dto2d_mpt(impt, hcosecthg, hcosecthg_, 1, nntg)
  call copy_arraystatic_1dto2d_mpt(impt, hcotanthg, hcotanthg_, 1, nntg)
!
end subroutine copy_trigonometry_grav_theta_to_mpt

---