00001 subroutine copy_weight_midpoint_fluid_to_mpt(impt)
00002 use phys_constant, only : nnrf, nntf, nnpf
00003 use grid_parameter, only : nrf, ntf, npf
00004 use weight_midpoint_fluid
00005 use weight_midpoint_fluid_mpt
00006 use copy_array_static_1dto2d_mpt
00007 use copy_array_3dto4d_mpt
00008 implicit none
00009 integer :: impt
00010
00011 call copy_arraystatic_1dto2d_mpt(impt, hwdrf, hwdrf_, 1, nnrf)
00012 call copy_arraystatic_1dto2d_mpt(impt, hwdtf, hwdtf_, 1, nntf)
00013 call copy_arraystatic_1dto2d_mpt(impt, hwdpf, hwdpf_, 1, nnpf)
00014 call copy_arraystatic_1dto2d_mpt(impt, tzwdrf, tzwdrf_, 0, nnrf)
00015 call copy_arraystatic_1dto2d_mpt(impt, siwdrf, siwdrf_, 0, nnrf)
00016 call copy_arraystatic_1dto2d_mpt(impt, siwdtf, siwdtf_, 0, nntf)
00017 call copy_arraystatic_1dto2d_mpt(impt, tzwdpf, tzwdpf_, 0, nnpf)
00018 call copy_arraystatic_1dto2d_mpt(impt, wdxf, wdxf_, 0, nnrf)
00019 call copy_array3dto4d_mpt(impt, hwrtpf, hwrtpf_, 1, nrf, 1, ntf, 1, npf)
00020 call copy_array3dto4d_mpt(impt, tzwrtpf, tzwrtpf_, 0, nrf, 1, ntf, 1, npf)
00021 call copy_array3dto4d_mpt(impt, siwrtpf, siwrtpf_, 0, nrf, 1, ntf, 1, npf)
00022 call copy_array3dto4d_mpt(impt,rtsiwrtpf,rtsiwrtpf_,0,nrf, 0, ntf, 0, npf)
00023
00024 end subroutine copy_weight_midpoint_fluid_to_mpt
