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

Go to the documentation of this file.

!  trigonometric functions in phi coordinate
!______________________________________________
subroutine allocate_trigonometry_grav_phi_mpt
  use trigonometry_grav_phi_mpt
  use grid_parameter, only : npg, nlg
  use phys_constant, only : nmpt
  use make_array_3d
  implicit none
!
  call alloc_array3d(sinmpg_, 0, nlg, 0, npg, 1, nmpt)
  call alloc_array3d(cosmpg_, 0, nlg, 0, npg, 1, nmpt)
  call alloc_array3d(hsinmpg_, 0, nlg, 1, npg, 1, nmpt)
  call alloc_array3d(hcosmpg_, 0, nlg, 1, npg, 1, nmpt)
!
end subroutine allocate_trigonometry_grav_phi_mpt

---