00001 subroutine copy_grid_points_binary_excision_from_mpt(impt)
00002 use grid_parameter, only : nrg, ntg, npg
00003 use grid_points_binary_excision
00004 use grid_points_binary_excision_mpt
00005 use copy_array_3dto2d_mpt
00006 use copy_array_4dto3d_mpt
00007 use copy_int_array_3dto2d_mpt
00008 use copy_int_array_static_1dto0d_mpt
00009 implicit none
00010 integer :: impt
00011
00012 call copy_int_array3dto2d_mpt(impt, irg_exin_, irg_exin, 0, ntg, 0, npg)
00013 call copy_int_array3dto2d_mpt(impt, irg_exout_, irg_exout, 0, ntg, 0, npg)
00014 call copy_int_array3dto2d_mpt(impt, itg_exin_, itg_exin, 0, nrg, 0, npg)
00015 call copy_int_array3dto2d_mpt(impt, itg_exout_, itg_exout, 0, nrg, 0, npg)
00016 call copy_int_array3dto2d_mpt(impt, ipg_exin_, ipg_exin, 0, nrg, 0, ntg)
00017 call copy_int_array3dto2d_mpt(impt, ipg_exout_, ipg_exout, 0, nrg, 0, ntg)
00018
00019 call copy_array3dto2d_mpt(impt, rg_exin_, rg_exin, 0, ntg, 0, npg)
00020 call copy_array3dto2d_mpt(impt, rg_exout_, rg_exout, 0, ntg, 0, npg)
00021 call copy_array3dto2d_mpt(impt, thg_exin_, thg_exin, 0, nrg, 0, npg)
00022 call copy_array3dto2d_mpt(impt, thg_exout_, thg_exout, 0, nrg, 0, npg)
00023 call copy_array3dto2d_mpt(impt, phig_exin_, phig_exin, 0, nrg, 0, ntg)
00024 call copy_array3dto2d_mpt(impt, phig_exout_, phig_exout, 0, nrg, 0, ntg)
00025
00026 call copy_int_array3dto2d_mpt(impt, ihrg_exin_, ihrg_exin, 0, ntg, 0, npg)
00027 call copy_int_array3dto2d_mpt(impt, ihrg_exout_, ihrg_exout, 0, ntg, 0, npg)
00028 call copy_int_array3dto2d_mpt(impt, ihtg_exin_, ihtg_exin, 0, nrg, 0, npg)
00029 call copy_int_array3dto2d_mpt(impt, ihtg_exout_, ihtg_exout, 0, nrg, 0, npg)
00030 call copy_int_array3dto2d_mpt(impt, ihpg_exin_, ihpg_exin, 0, nrg, 0, ntg)
00031 call copy_int_array3dto2d_mpt(impt, ihpg_exout_, ihpg_exout, 0, nrg, 0, ntg)
00032
00033 call copy_array3dto2d_mpt(impt, hrg_exin_, hrg_exin, 0, ntg, 0, npg)
00034 call copy_array3dto2d_mpt(impt, hrg_exout_, hrg_exout,0, ntg, 0, npg)
00035 call copy_array3dto2d_mpt(impt, hthg_exin_, hthg_exin, 0, nrg, 0, npg)
00036 call copy_array3dto2d_mpt(impt, hthg_exout_, hthg_exout, 0, nrg, 0, npg)
00037 call copy_array3dto2d_mpt(impt, hphig_exin_, hphig_exin, 0, nrg, 0, ntg)
00038 call copy_array3dto2d_mpt(impt, hphig_exout_, hphig_exout, 0, nrg, 0, ntg)
00039
00040 call copy_array4dto3d_mpt(impt, rb_, rb, 0, nrg, 0, ntg, 0, npg)
00041 call copy_array4dto3d_mpt(impt, thb_, thb, 0, nrg, 0, ntg, 0, npg)
00042 call copy_array4dto3d_mpt(impt, phib_, phib, 0, nrg, 0, ntg, 0, npg)
00043 call copy_array4dto3d_mpt(impt, hrb_, hrb, 1, nrg, 1, ntg, 1, npg)
00044 call copy_array4dto3d_mpt(impt, hthb_, hthb, 1, nrg, 1, ntg, 1, npg)
00045 call copy_array4dto3d_mpt(impt, hphib_, hphib, 1, nrg, 1, ntg, 1, npg)
00046
00047 call copy_int_arraystatic_1dto0d_mpt(impt, ntg_exin_min_, ntg_exin_min)
00048 call copy_int_arraystatic_1dto0d_mpt(impt, ntg_exout_max_, ntg_exout_max)
00049 call copy_int_arraystatic_1dto0d_mpt(impt, npg_exin_max_, npg_exin_max)
00050 call copy_int_arraystatic_1dto0d_mpt(impt, npg_exout_min_, npg_exout_min)
00051
00052 end subroutine copy_grid_points_binary_excision_from_mpt
