00001 module def_matter_velocity 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: vxu(:,:,:), vyu(:,:,:), vzu(:,:,:) 00005 end module def_matter_velocity