00001 subroutine copy_def_matter_irrot_to_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_4dto5d_mpt
00010 use copy_array_3dto4d_mpt
00011 use copy_array_2dto3d_mpt
00012 implicit none
00013 integer :: impt
00014
00015 call copy_array3dto4d_mpt(impt, vep , vep_ , 0, nrf, 0, ntf, 0, npf)
00016 call copy_array3dto4d_mpt(impt, vepxf, vepxf_, 0, nrf, 0, ntf, 0, npf)
00017 call copy_array3dto4d_mpt(impt, vepyf, vepyf_, 0, nrf, 0, ntf, 0, npf)
00018 call copy_array3dto4d_mpt(impt, vepzf, vepzf_, 0, nrf, 0, ntf, 0, npf)
00019
00020 call copy_array3dto4d_mpt(impt, vepxg, vepxg_, 0, nrg, 0, ntg, 0, npg)
00021 call copy_array3dto4d_mpt(impt, vepyg, vepyg_, 0, nrg, 0, ntg, 0, npg)
00022 call copy_array3dto4d_mpt(impt, vepzg, vepzg_, 0, nrg, 0, ntg, 0, npg)
00023
00024 end subroutine copy_def_matter_irrot_to_mpt
