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 :: ergoin(:,:), ergoout(:,:)
00010 real(long), pointer :: rhog(:,:,:)
00011 real(long), pointer :: rhof(:,:,:), hhf(:,:,:)
00012 real(long), pointer :: utdf(:,:,:), utdg(:,:,:)
00013 real(long), pointer :: uxf(:,:,:), uyf(:,:,:), uzf(:,:,:)
00014 real(long), pointer :: uxdf(:,:,:), uydf(:,:,:), uzdf(:,:,:)
00015 real(long), pointer :: uxg(:,:,:), uyg(:,:,:), uzg(:,:,:)
00016 real(long), pointer :: uxdg(:,:,:), uydg(:,:,:), uzdg(:,:,:)
00017 real(long), pointer :: vep(:,:,:)
00018 real(long), pointer :: vepxf(:,:,:), vepyf(:,:,:), vepzf(:,:,:)
00019 real(long), pointer :: vepxg(:,:,:), vepyg(:,:,:), vepzg(:,:,:)
00020 end module def_matter
00021
