00001 module def_matter_mpt
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 :: rhof_(:,:,:,:)
00008 real(long), pointer :: uxf_(:,:,:,:), uyf_(:,:,:,:), uzf_(:,:,:,:)
00009 real(long), pointer :: uxg_(:,:,:,:), uyg_(:,:,:,:), uzg_(:,:,:,:)
00010
00011 real(long), pointer :: omeg_(:,:,:,:), jomeg_(:,:,:,:), jomeg_int_(:,:,:,:)
00012 real(long), pointer :: omef_(:,:,:,:), jomef_(:,:,:,:), jomef_int_(:,:,:,:)
00013
00014 real(long), pointer :: vep_(:,:,:,:)
00015 real(long), pointer :: vepxf_(:,:,:,:), vepyf_(:,:,:,:), vepzf_(:,:,:,:)
00016 real(long), pointer :: vepxg_(:,:,:,:), vepyg_(:,:,:,:), vepzg_(:,:,:,:)
00017 end module def_matter_mpt
