00001 module def_matter
00002 use phys_constant, only : long
00003 implicit none
00004 real(long), pointer :: emdg(:,:,:), utg(:,:,:)
00005 real(long), pointer :: emd(:,:,:), utf(:,:,:)
00006 real(long), pointer :: rs(:,:), lambda(:,:,:)
00007 real(long), pointer :: rhog(:,:,:)
00008 real(long), pointer :: rhof(:,:,:), hhf(:,:,:)
00009 real(long), pointer :: utdf(:,:,:), utdg(:,:,:)
00010 real(long), pointer :: uxf(:,:,:), uyf(:,:,:), uzf(:,:,:)
00011 real(long), pointer :: uxdf(:,:,:), uydf(:,:,:), uzdf(:,:,:)
00012 real(long), pointer :: uxg(:,:,:), uyg(:,:,:), uzg(:,:,:)
00013 real(long), pointer :: uxdg(:,:,:), uydg(:,:,:), uzdg(:,:,:)
00014 end module def_matter
