00001 subroutine copy_def_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 def_velocity_rot
00008 use def_velocity_rot_mpt
00009 use copy_array_4dto3d_mpt
00010 use copy_array_3dto2d_mpt
00011 implicit none
00012 integer :: impt
00013
00014 call copy_array3dto2d_mpt(impt, rs_, rs, 0, ntf, 0, npf)
00015 call copy_array4dto3d_mpt(impt, emd_, emd, 0, nrf, 0, ntf, 0, npf)
00016 call copy_array4dto3d_mpt(impt, utf_, utf, 0, nrf, 0, ntf, 0, npf)
00017 call copy_array4dto3d_mpt(impt, omef_, omef, 0, nrf, 0, ntf, 0, npf)
00018 call copy_array4dto3d_mpt(impt, jomef_, jomef, 0, nrf, 0, ntf, 0, npf)
00019 call copy_array4dto3d_mpt(impt, jomef_int_, jomef_int, 0, nrf, 0, ntf, 0, npf)
00020
00021 call copy_array4dto3d_mpt(impt, emdg_, emdg, 0, nrg, 0, ntg, 0, npg)
00022 call copy_array4dto3d_mpt(impt, utg_, utg, 0, nrg, 0, ntg, 0, npg)
00023 call copy_array4dto3d_mpt(impt, omeg_, omeg, 0, nrg, 0, ntg, 0, npg)
00024 call copy_array4dto3d_mpt(impt, jomeg_, jomeg, 0, nrg, 0, ntg, 0, npg)
00025 call copy_array4dto3d_mpt(impt, jomeg_int_, jomeg_int, 0, nrg, 0, ntg, 0, npg)
00026
00027 call copy_array4dto3d_mpt(impt, vep_ , vep, 0, nrf, 0, ntf, 0, npf)
00028 call copy_array4dto3d_mpt(impt, wxspf_, wxspf, 0, nrf, 0, ntf, 0, npf)
00029 call copy_array4dto3d_mpt(impt, wyspf_, wyspf, 0, nrf, 0, ntf, 0, npf)
00030 call copy_array4dto3d_mpt(impt, wzspf_, wzspf, 0, nrf, 0, ntf, 0, npf)
00031
00032 end subroutine copy_def_matter_from_mpt
