00001 subroutine copy_grid_points_binary_excision_to_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_2dto3d_mpt
00006 use copy_array_3dto4d_mpt
00007 use copy_int_array_2dto3d_mpt
00008 use copy_int_array_static_0dto1d_mpt
00009 implicit none
00010 integer :: impt
00011
00012 call copy_int_array2dto3d_mpt(impt, irg_exin, irg_exin_, 0, ntg, 0, npg)
00013 call copy_int_array2dto3d_mpt(impt, irg_exout, irg_exout_, 0, ntg, 0, npg)
00014 call copy_int_array2dto3d_mpt(impt, itg_exin, itg_exin_, 0, nrg, 0, npg)
00015 call copy_int_array2dto3d_mpt(impt, itg_exout, itg_exout_, 0, nrg, 0, npg)
00016 call copy_int_array2dto3d_mpt(impt, ipg_exin, ipg_exin_, 0, nrg, 0, ntg)
00017 call copy_int_array2dto3d_mpt(impt, ipg_exout, ipg_exout_, 0, nrg, 0, ntg)
00018
00019 call copy_array2dto3d_mpt(impt, rg_exin, rg_exin_, 0, ntg, 0, npg)
00020 call copy_array2dto3d_mpt(impt, rg_exout, rg_exout_, 0, ntg, 0, npg)
00021 call copy_array2dto3d_mpt(impt, thg_exin, thg_exin_, 0, nrg, 0, npg)
00022 call copy_array2dto3d_mpt(impt, thg_exout, thg_exout_, 0, nrg, 0, npg)
00023 call copy_array2dto3d_mpt(impt, phig_exin, phig_exin_, 0, nrg, 0, ntg)
00024 call copy_array2dto3d_mpt(impt, phig_exout, phig_exout_, 0, nrg, 0, ntg)
00025
00026 call copy_int_array2dto3d_mpt(impt, ihrg_exin, ihrg_exin_, 0, ntg, 0, npg)
00027 call copy_int_array2dto3d_mpt(impt, ihrg_exout, ihrg_exout_, 0, ntg, 0, npg)
00028 call copy_int_array2dto3d_mpt(impt, ihtg_exin, ihtg_exin_, 0, nrg, 0, npg)
00029 call copy_int_array2dto3d_mpt(impt, ihtg_exout, ihtg_exout_, 0, nrg, 0, npg)
00030 call copy_int_array2dto3d_mpt(impt, ihpg_exin, ihpg_exin_, 0, nrg, 0, ntg)
00031 call copy_int_array2dto3d_mpt(impt, ihpg_exout, ihpg_exout_, 0, nrg, 0, ntg)
00032
00033 call copy_array2dto3d_mpt(impt, hrg_exin, hrg_exin_, 0, ntg, 0, npg)
00034 call copy_array2dto3d_mpt(impt, hrg_exout, hrg_exout_,0, ntg, 0, npg)
00035 call copy_array2dto3d_mpt(impt, hthg_exin, hthg_exin_, 0, nrg, 0, npg)
00036 call copy_array2dto3d_mpt(impt, hthg_exout, hthg_exout_, 0, nrg, 0, npg)
00037 call copy_array2dto3d_mpt(impt, hphig_exin, hphig_exin_, 0, nrg, 0, ntg)
00038 call copy_array2dto3d_mpt(impt, hphig_exout, hphig_exout_, 0, nrg, 0, ntg)
00039
00040 call copy_array3dto4d_mpt(impt, rb, rb_, 0, nrg, 0, ntg, 0, npg)
00041 call copy_array3dto4d_mpt(impt, thb, thb_, 0, nrg, 0, ntg, 0, npg)
00042 call copy_array3dto4d_mpt(impt, phib, phib_, 0, nrg, 0, ntg, 0, npg)
00043 call copy_array3dto4d_mpt(impt, hrb, hrb_, 1, nrg, 1, ntg, 1, npg)
00044 call copy_array3dto4d_mpt(impt, hthb, hthb_, 1, nrg, 1, ntg, 1, npg)
00045 call copy_array3dto4d_mpt(impt, hphib, hphib_, 1, nrg, 1, ntg, 1, npg)
00046
00047 call copy_int_arraystatic_0dto1d_mpt(impt, ntg_exin_min, ntg_exin_min_)
00048 call copy_int_arraystatic_0dto1d_mpt(impt, ntg_exout_max, ntg_exout_max_)
00049 call copy_int_arraystatic_0dto1d_mpt(impt, npg_exin_max, npg_exin_max_)
00050 call copy_int_arraystatic_0dto1d_mpt(impt, npg_exout_min, npg_exout_min_)
00051
00052 end subroutine copy_grid_points_binary_excision_to_mpt
