00001 subroutine copy_def_matter_to_mpt(impt)
00002 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00003 use def_matter
00004 use def_matter_mpt
00005 use def_velocity_rot
00006 use def_velocity_rot_mpt
00007 use copy_array_3dto4d_mpt
00008 use copy_array_2dto3d_mpt
00009 implicit none
00010 integer :: impt
00011
00012 call copy_array2dto3d_mpt(impt, rs, rs_, 0, ntf, 0, npf)
00013 call copy_array3dto4d_mpt(impt, emd, emd_, 0, nrf, 0, ntf, 0, npf)
00014 call copy_array3dto4d_mpt(impt, utf, utf_, 0, nrf, 0, ntf, 0, npf)
00015 call copy_array3dto4d_mpt(impt, omef, omef_, 0, nrf, 0, ntf, 0, npf)
00016 call copy_array3dto4d_mpt(impt, jomef, jomef_, 0, nrf, 0, ntf, 0, npf)
00017 call copy_array3dto4d_mpt(impt, jomef_int, jomef_int_, 0, nrf, 0, ntf, 0, npf)
00018
00019 call copy_array3dto4d_mpt(impt, emdg, emdg_, 0, nrg, 0, ntg, 0, npg)
00020 call copy_array3dto4d_mpt(impt, utg, utg_, 0, nrg, 0, ntg, 0, npg)
00021 call copy_array3dto4d_mpt(impt, omeg, omeg_, 0, nrg, 0, ntg, 0, npg)
00022 call copy_array3dto4d_mpt(impt, jomeg, jomeg_, 0, nrg, 0, ntg, 0, npg)
00023 call copy_array3dto4d_mpt(impt, jomeg_int, jomeg_int_, 0, nrg, 0, ntg, 0, npg)
00024
00025 call copy_array3dto4d_mpt(impt, vep, vep_, 0, nrf, 0, ntf, 0, npf)
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 end subroutine copy_def_matter_to_mpt
