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

Go to the documentation of this file.

!  weight for numerical integration using mid-point rule
!______________________________________________
subroutine allocate_weight_midpoint_grav_mpt
  use weight_midpoint_grav_mpt
  use phys_constant, only : nmpt
  use grid_parameter, only : nrg, ntg, npg 
  use make_array_3d
  use make_array_4d
  implicit none
! weight
  call alloc_array3d(hwtpgsf_, 1, ntg, 1, npg, 1, nmpt)
  call alloc_array4d(hwrtpg_, 1, nrg, 1, ntg, 1, npg, 1, nmpt)
  call alloc_array4d(tzwrtpg_, 0, nrg, 1, ntg, 1, npg, 1, nmpt)
!
end subroutine allocate_weight_midpoint_grav_mpt

---