00001 module def_SEM_tensor
00002 use phys_constant, only : long
00003 implicit none
00004 real(long), pointer :: rhoH(:,:,:)
00005 real(long), pointer :: jmd(:,:,:,:), jmu(:,:,:,:)
00006 real(long), pointer :: smijd(:,:,:,:,:), smiju(:,:,:,:,:)
00007 real(long), pointer :: trsm(:,:,:)
00008 real(long), pointer :: rhoH_grid(:,:,:)
00009 real(long), pointer :: jmd_grid(:,:,:,:), jmu_grid(:,:,:,:)
00010 real(long), pointer :: smijd_grid(:,:,:,:,:), smiju_grid(:,:,:,:,:)
00011 real(long), pointer :: trsm_grid(:,:,:)
00012 end module def_SEM_tensor
