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