00001 subroutine copy_def_matter_irrot_from_mpt(impt)
00002 use grid_parameter, only : nrg, ntg, npg, nlg, 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_potential
00008 use def_velocity_potential_mpt
00009 use copy_array_5dto4d_mpt
00010 use copy_array_4dto3d_mpt
00011 use copy_array_3dto2d_mpt
00012 implicit none
00013 integer :: impt
00014
00015 call copy_array4dto3d_mpt(impt, vep_ , vep , 0, nrf, 0, ntf, 0, npf)
00016 call copy_array4dto3d_mpt(impt, vepxf_, vepxf, 0, nrf, 0, ntf, 0, npf)
00017 call copy_array4dto3d_mpt(impt, vepyf_, vepyf, 0, nrf, 0, ntf, 0, npf)
00018 call copy_array4dto3d_mpt(impt, vepzf_, vepzf, 0, nrf, 0, ntf, 0, npf)
00019
00020 call copy_array4dto3d_mpt(impt, vepxg_, vepxg, 0, nrg, 0, ntg, 0, npg)
00021 call copy_array4dto3d_mpt(impt, vepyg_, vepyg, 0, nrg, 0, ntg, 0, npg)
00022 call copy_array4dto3d_mpt(impt, vepzg_, vepzg, 0, nrg, 0, ntg, 0, npg)
00023
00024 end subroutine copy_def_matter_irrot_from_mpt
