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

Go to the documentation of this file.

!  theta_coordinate
!______________________________________________
subroutine copy_coordinate_grav_theta_from_mpt(impt)
  use phys_constant, only : nntg
  use coordinate_grav_theta
  use coordinate_grav_theta_mpt
  use copy_array_static_1dto0d_mpt
  use copy_array_static_2dto1d_mpt
  implicit none
  integer :: impt
!
  call copy_arraystatic_1dto0d_mpt(impt, dthg_, dthg)
  call copy_arraystatic_1dto0d_mpt(impt, dthginv_, dthginv)
  call copy_arraystatic_2dto1d_mpt(impt, thg_, thg, 0, nntg)
  call copy_arraystatic_2dto1d_mpt(impt, hthg_, hthg, 1, nntg)
!
end subroutine copy_coordinate_grav_theta_from_mpt

---