00001 module def_vector_phi
00002 use phys_constant, only : long
00003 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00004 implicit none
00005 real(long), pointer :: vec_phif(:,:,:,:), vec_phig(:,:,:,:)
00006 real(long), pointer :: hvec_phif(:,:,:,:), hvec_phig(:,:,:,:)
00007 real(long), pointer :: hvec_phif_surface(:,:,:)
00008 contains
00009 subroutine allocate_vector_phi
00010 use make_array_3d
00011 use make_array_4d
00012 implicit none
00013 call alloc_array4d(vec_phig, 0, nrg, 0, ntg, 0, npg, 1, 3)
00014 call alloc_array4d(vec_phif, 0, nrf, 0, ntf, 0, npf, 1, 3)
00015 call alloc_array4d(hvec_phig, 1, nrg, 1, ntg, 1, npg, 1, 3)
00016 call alloc_array4d(hvec_phif, 1, nrf, 1, ntf, 1, npf, 1, 3)
00017 call alloc_array3d(hvec_phif_surface, 1, ntf, 1, npf, 1, 3)
00018 end subroutine allocate_vector_phi
00019 end module def_vector_phi
