00001 module def_vector_phi_mpt
00002   use phys_constant, only : long
00003   implicit none
00004   real(long), pointer :: vec_phif_(:,:,:,:,:), vec_phig_(:,:,:,:,:)
00005   real(long), pointer :: hvec_phif_(:,:,:,:,:), hvec_phig_(:,:,:,:,:)
00006   real(long), pointer :: hvec_phif_surface_(:,:,:,:)
00007 end module def_vector_phi_mpt