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