00001 module grid_points_binary_excision_mpt
00002 use phys_constant, only : long, nnmpt
00003 implicit none
00004 integer, pointer :: irg_exin_(:,:,:), itg_exin_(:,:,:), ipg_exin_(:,:,:)
00005 integer, pointer :: irg_exout_(:,:,:), itg_exout_(:,:,:), ipg_exout_(:,:,:)
00006 real(long), pointer :: rg_exin_(:,:,:), thg_exin_(:,:,:), phig_exin_(:,:,:)
00007 real(long), pointer :: rg_exout_(:,:,:),thg_exout_(:,:,:),phig_exout_(:,:,:)
00008 integer, pointer :: ihrg_exin_(:,:,:), ihtg_exin_(:,:,:), ihpg_exin_(:,:,:)
00009 integer, pointer :: ihrg_exout_(:,:,:),ihtg_exout_(:,:,:),ihpg_exout_(:,:,:)
00010 real(long), pointer :: hrg_exin_(:,:,:),hthg_exin_(:,:,:),hphig_exin_(:,:,:)
00011 real(long), pointer :: hrg_exout_(:,:,:),hthg_exout_(:,:,:),
00012 hphig_exout_(:,:,:)
00013
00014 real(long), pointer :: rb_(:,:,:,:), thb_(:,:,:,:), phib_(:,:,:,:)
00015 real(long), pointer :: hrb_(:,:,:,:), hthb_(:,:,:,:), hphib_(:,:,:,:)
00016 integer :: ntg_exin_min_(nnmpt), ntg_exout_max_(nnmpt),
00017 npg_exin_max_(nnmpt), npg_exout_min_(nnmpt)
00018 end module grid_points_binary_excision_mpt
