00001 subroutine allocate_matter_4velocity
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_matter, only : utf, uxf, uyf, uzf, utdf, uxdf, uydf, uzdf, &
00005 & utg, uxg, uyg, uzg, utdg, uxdg, uydg, uzdg
00006 use make_array_3d
00007 implicit none
00008
00009 call alloc_array3d(utf, 0,nrf, 0,ntf, 0,npf)
00010 call alloc_array3d(uxf, 0,nrf, 0,ntf, 0,npf)
00011 call alloc_array3d(uyf, 0,nrf, 0,ntf, 0,npf)
00012 call alloc_array3d(uzf, 0,nrf, 0,ntf, 0,npf)
00013 call alloc_array3d(utdf, 0,nrf, 0,ntf, 0,npf)
00014 call alloc_array3d(uxdf, 0,nrf, 0,ntf, 0,npf)
00015 call alloc_array3d(uydf, 0,nrf, 0,ntf, 0,npf)
00016 call alloc_array3d(uzdf, 0,nrf, 0,ntf, 0,npf)
00017
00018 call alloc_array3d(utg, 0,nrg, 0,ntg, 0,npg)
00019 call alloc_array3d(uxg, 0,nrg, 0,ntg, 0,npg)
00020 call alloc_array3d(uyg, 0,nrg, 0,ntg, 0,npg)
00021 call alloc_array3d(uzg, 0,nrg, 0,ntg, 0,npg)
00022 call alloc_array3d(utdg, 0,nrg, 0,ntg, 0,npg)
00023 call alloc_array3d(uxdg, 0,nrg, 0,ntg, 0,npg)
00024 call alloc_array3d(uydg, 0,nrg, 0,ntg, 0,npg)
00025 call alloc_array3d(uzdg, 0,nrg, 0,ntg, 0,npg)
00026
00027 end subroutine allocate_matter_4velocity
