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

Go to the documentation of this file.

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

---