00001 subroutine copy_def_metric_and_matter_from_mpt(impt)
00002 use grid_parameter, only : nrg, ntg, npg, nrf, ntf, npf
00003 use def_metric
00004 use def_metric_mpt
00005 use def_matter
00006 use def_matter_mpt
00007 use copy_array_4dto3d_mpt
00008 use copy_array_3dto2d_mpt
00009 implicit none
00010 integer :: impt
00011
00012 call copy_array4dto3d_mpt(impt, psi_ , psi , 0, nrg, 0, ntg, 0, npg)
00013 call copy_array4dto3d_mpt(impt, alph_, alph, 0, nrg, 0, ntg, 0, npg)
00014 call copy_array4dto3d_mpt(impt, alps_, alps, 0, nrg, 0, ntg, 0, npg)
00015 call copy_array4dto3d_mpt(impt, bvxd_, bvxd, 0, nrg, 0, ntg, 0, npg)
00016 call copy_array4dto3d_mpt(impt, bvyd_, bvyd, 0, nrg, 0, ntg, 0, npg)
00017 call copy_array4dto3d_mpt(impt, bvzd_, bvzd, 0, nrg, 0, ntg, 0, npg)
00018
00019 call copy_array3dto2d_mpt(impt, rs_ , rs , 0, ntf, 0, npf)
00020 call copy_array4dto3d_mpt(impt, emdg_ , emdg , 0, nrg, 0, ntg, 0, npg)
00021 call copy_array4dto3d_mpt(impt, emd_ , emd , 0, nrf, 0, ntf, 0, npf)
00022 call copy_array4dto3d_mpt(impt, utg_ , utg , 0, nrg, 0, ntg, 0, npg)
00023 call copy_array4dto3d_mpt(impt, utf_ , utf , 0, nrf, 0, ntf, 0, npf)
00024 call copy_array4dto3d_mpt(impt, omeg_ , omeg , 0, nrg, 0, ntg, 0, npg)
00025 call copy_array4dto3d_mpt(impt, omef_ , omef , 0, nrf, 0, ntf, 0, npf)
00026 call copy_array4dto3d_mpt(impt, jomeg_ , jomeg , 0, nrg, 0, ntg, 0, npg)
00027 call copy_array4dto3d_mpt(impt, jomef_ , jomef , 0, nrf, 0, ntf, 0, npf)
00028 call copy_array4dto3d_mpt(impt, jomeg_int_, jomeg_int, 0, nrg, 0, ntg, 0, npg)
00029 call copy_array4dto3d_mpt(impt, jomef_int_, jomef_int, 0, nrf, 0, ntf, 0, npf)
00030
00031 end subroutine copy_def_metric_and_matter_from_mpt
