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