00001 subroutine allocate_grid_points_binary_excision_mpt
00002 use grid_points_binary_excision_mpt
00003 use phys_constant, only : nmpt
00004 use grid_parameter, only : nrg, ntg, npg
00005 use make_array_3d
00006 use make_array_4d
00007 use make_int_array_3d
00008 implicit none
00009
00010 call alloc_int_array3d(irg_exin_, 0, ntg, 0, npg, 1, nmpt)
00011 call alloc_int_array3d(irg_exout_, 0, ntg, 0, npg, 1, nmpt)
00012 call alloc_int_array3d(itg_exin_, 0, nrg, 0, npg, 1, nmpt)
00013 call alloc_int_array3d(itg_exout_, 0, nrg, 0, npg, 1, nmpt)
00014 call alloc_int_array3d(ipg_exin_, 0, nrg, 0, ntg, 1, nmpt)
00015 call alloc_int_array3d(ipg_exout_,0, nrg, 0, ntg, 1, nmpt)
00016 call alloc_array3d(rg_exin_, 0, ntg, 0, npg, 1, nmpt)
00017 call alloc_array3d(rg_exout_, 0, ntg, 0, npg, 1, nmpt)
00018 call alloc_array3d(thg_exin_, 0, nrg, 0, npg, 1, nmpt)
00019 call alloc_array3d(thg_exout_, 0, nrg, 0, npg, 1, nmpt)
00020 call alloc_array3d(phig_exin_, 0, nrg, 0, ntg, 1, nmpt)
00021 call alloc_array3d(phig_exout_, 0, nrg, 0, ntg, 1, nmpt)
00022
00023 call alloc_int_array3d(ihrg_exin_, 0, ntg, 0, npg, 1, nmpt)
00024 call alloc_int_array3d(ihrg_exout_, 0, ntg, 0, npg, 1, nmpt)
00025 call alloc_int_array3d(ihtg_exin_, 0, nrg, 0, npg, 1, nmpt)
00026 call alloc_int_array3d(ihtg_exout_, 0, nrg, 0, npg, 1, nmpt)
00027 call alloc_int_array3d(ihpg_exin_, 0, nrg, 0, ntg, 1, nmpt)
00028 call alloc_int_array3d(ihpg_exout_, 0, nrg, 0, ntg, 1, nmpt)
00029 call alloc_array3d(hrg_exin_, 0, ntg, 0, npg, 1, nmpt)
00030 call alloc_array3d(hrg_exout_, 0, ntg, 0, npg, 1, nmpt)
00031 call alloc_array3d(hthg_exin_, 0, nrg, 0, npg, 1, nmpt)
00032 call alloc_array3d(hthg_exout_, 0, nrg, 0, npg, 1, nmpt)
00033 call alloc_array3d(hphig_exin_, 0, nrg, 0, ntg, 1, nmpt)
00034 call alloc_array3d(hphig_exout_, 0, nrg, 0, ntg, 1, nmpt)
00035
00036 call alloc_array4d(rb_, 0,nrg,0, ntg, 0, npg, 1, nmpt)
00037 call alloc_array4d(thb_, 0,nrg,0, ntg, 0, npg, 1, nmpt)
00038 call alloc_array4d(phib_, 0,nrg,0, ntg, 0, npg, 1, nmpt)
00039 call alloc_array4d(hrb_, 1, nrg, 1, ntg, 1, npg, 1, nmpt)
00040 call alloc_array4d(hthb_, 1, nrg, 1, ntg, 1, npg, 1, nmpt)
00041 call alloc_array4d(hphib_, 1, nrg, 1, ntg, 1, npg, 1, nmpt)
00042
00043 end subroutine allocate_grid_points_binary_excision_mpt
