00001 module def_velocity_potential 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: alm(:,:) 00005 end module def_velocity_potential