00001 module def_vector_x
00002 use phys_constant, only : long
00003 implicit none
00004 real(long), pointer :: vec_xf(:,:,:,:), vec_xg(:,:,:,:)
00005 real(long), pointer :: hvec_xf(:,:,:,:), hvec_xg(:,:,:,:)
00006 contains
00007 subroutine allocate_vector_x
00008 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00009 use make_array_4d
00010 implicit none
00011 call alloc_array4d(vec_xg, 0, nrg, 0, ntg, 0, npg, 1, 3)
00012 call alloc_array4d(vec_xf, 0, nrf, 0, ntf, 0, npf, 1, 3)
00013 call alloc_array4d(hvec_xg, 1, nrg, 1, ntg, 1, npg, 1, 3)
00014 call alloc_array4d(hvec_xf, 1, nrf, 1, ntf, 1, npf, 1, 3)
00015 end subroutine allocate_vector_x
00016 end module def_vector_x
