00001 subroutine copy_def_matter_spin_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 def_velocity_rot
00010 use def_velocity_rot_mpt
00011 use copy_array_4dto5d_mpt
00012 use copy_array_3dto4d_mpt
00013 use copy_array_2dto3d_mpt
00014 implicit none
00015 integer :: impt
00016
00017 call copy_array3dto4d_mpt(impt, vep , vep_ , 0, nrf, 0, ntf, 0, npf)
00018 call copy_array3dto4d_mpt(impt, vepxf, vepxf_, 0, nrf, 0, ntf, 0, npf)
00019 call copy_array3dto4d_mpt(impt, vepyf, vepyf_, 0, nrf, 0, ntf, 0, npf)
00020 call copy_array3dto4d_mpt(impt, vepzf, vepzf_, 0, nrf, 0, ntf, 0, npf)
00021
00022 call copy_array3dto4d_mpt(impt, vepxg, vepxg_, 0, nrg, 0, ntg, 0, npg)
00023 call copy_array3dto4d_mpt(impt, vepyg, vepyg_, 0, nrg, 0, ntg, 0, npg)
00024 call copy_array3dto4d_mpt(impt, vepzg, vepzg_, 0, nrg, 0, ntg, 0, npg)
00025
00026 call copy_array3dto4d_mpt(impt, wxspf, wxspf_, 0, nrf, 0, ntf, 0, npf)
00027 call copy_array3dto4d_mpt(impt, wyspf, wyspf_, 0, nrf, 0, ntf, 0, npf)
00028 call copy_array3dto4d_mpt(impt, wzspf, wzspf_, 0, nrf, 0, ntf, 0, npf)
00029
00030 call copy_array3dto4d_mpt(impt, wxspg, wxspg_, 0, nrg, 0, ntg, 0, npg)
00031 call copy_array3dto4d_mpt(impt, wyspg, wyspg_, 0, nrg, 0, ntg, 0, npg)
00032 call copy_array3dto4d_mpt(impt, wzspg, wzspg_, 0, nrg, 0, ntg, 0, npg)
00033
00034 end subroutine copy_def_matter_spin_to_mpt
