00001 subroutine copy_weight_midpoint_fluid_from_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_2dto1d_mpt
00007 use copy_array_4dto3d_mpt
00008 implicit none
00009 integer :: impt
00010
00011 call copy_arraystatic_2dto1d_mpt(impt, hwdrf_, hwdrf, 1, nnrf)
00012 call copy_arraystatic_2dto1d_mpt(impt, hwdtf_, hwdtf, 1, nntf)
00013 call copy_arraystatic_2dto1d_mpt(impt, hwdpf_, hwdpf, 1, nnpf)
00014 call copy_arraystatic_2dto1d_mpt(impt, tzwdrf_, tzwdrf, 0, nnrf)
00015 call copy_arraystatic_2dto1d_mpt(impt, siwdrf_, siwdrf, 0, nnrf)
00016 call copy_arraystatic_2dto1d_mpt(impt, siwdtf_, siwdtf, 0, nntf)
00017 call copy_arraystatic_2dto1d_mpt(impt, tzwdpf_, tzwdpf, 0, nnpf)
00018 call copy_arraystatic_2dto1d_mpt(impt, wdxf_, wdxf, 0, nnrf)
00019 call copy_array4dto3d_mpt(impt, hwrtpf_, hwrtpf, 1, nrf, 1, ntf, 1, npf)
00020 call copy_array4dto3d_mpt(impt, tzwrtpf_, tzwrtpf, 0, nrf, 1, ntf, 1, npf)
00021 call copy_array4dto3d_mpt(impt, siwrtpf_, siwrtpf, 0, nrf, 1, ntf, 1, npf)
00022 call copy_array4dto3d_mpt(impt, rtsiwrtpf_,rtsiwrtpf, 0, nrf, 0, ntf, 0, npf)
00023
00024 end subroutine copy_weight_midpoint_fluid_from_mpt
