00001 subroutine copy_def_metric_and_matter_to_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_3dto4d_mpt
00008 use copy_array_2dto3d_mpt
00009 implicit none
00010 integer :: impt
00011
00012 call copy_array3dto4d_mpt(impt, psi , psi_ , 0, nrg, 0, ntg, 0, npg)
00013 call copy_array3dto4d_mpt(impt, alph, alph_, 0, nrg, 0, ntg, 0, npg)
00014 call copy_array3dto4d_mpt(impt, alps, alps_, 0, nrg, 0, ntg, 0, npg)
00015 call copy_array3dto4d_mpt(impt, bvxd, bvxd_, 0, nrg, 0, ntg, 0, npg)
00016 call copy_array3dto4d_mpt(impt, bvyd, bvyd_, 0, nrg, 0, ntg, 0, npg)
00017 call copy_array3dto4d_mpt(impt, bvzd, bvzd_, 0, nrg, 0, ntg, 0, npg)
00018
00019 call copy_array2dto3d_mpt(impt, rs , rs_ , 0, ntf, 0, npf)
00020 call copy_array3dto4d_mpt(impt, emdg , emdg_ , 0, nrg, 0, ntg, 0, npg)
00021 call copy_array3dto4d_mpt(impt, emd , emd_ , 0, nrf, 0, ntf, 0, npf)
00022 call copy_array3dto4d_mpt(impt, utg , utg_ , 0, nrg, 0, ntg, 0, npg)
00023 call copy_array3dto4d_mpt(impt, utf , utf_ , 0, nrf, 0, ntf, 0, npf)
00024 call copy_array3dto4d_mpt(impt, omeg , omeg_ , 0, nrg, 0, ntg, 0, npg)
00025 call copy_array3dto4d_mpt(impt, omef , omef_ , 0, nrf, 0, ntf, 0, npf)
00026 call copy_array3dto4d_mpt(impt, jomeg , jomeg_ , 0, nrg, 0, ntg, 0, npg)
00027 call copy_array3dto4d_mpt(impt, jomef , jomef_ , 0, nrf, 0, ntf, 0, npf)
00028 call copy_array3dto4d_mpt(impt, jomeg_int, jomeg_int_, 0, nrg, 0, ntg, 0, npg)
00029 call copy_array3dto4d_mpt(impt, jomef_int, jomef_int_, 0, nrf, 0, ntf, 0, npf)
00030
00031 end subroutine copy_def_metric_and_matter_to_mpt
