00001 subroutine allocate_def_vector_phi_mpt
00002 use def_vector_phi_mpt
00003 use phys_constant, only : nmpt
00004 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00005 use make_array_4d
00006 use make_array_5d
00007 implicit none
00008 call alloc_array5d(vec_phig_, 0, nrg, 0, ntg, 0, npg, 1, 3, 1, nmpt)
00009 call alloc_array5d(vec_phif_, 0, nrf, 0, ntf, 0, npf, 1, 3, 1, nmpt)
00010 call alloc_array5d(hvec_phig_, 1, nrg, 1, ntg, 1, npg, 1, 3, 1, nmpt)
00011 call alloc_array5d(hvec_phif_, 1, nrf, 1, ntf, 1, npf, 1, 3, 1, nmpt)
00012 call alloc_array4d(hvec_phif_surface_, 1, ntf, 1, npf, 1, 3, 1, nmpt)
00013 end subroutine allocate_def_vector_phi_mpt
