00001 module def_faraday_tensor_cartesian 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: fxdca(:,:,:), fydca(:,:,:), fzdca(:,:,:) 00005 real(long), pointer :: fxuca(:,:,:), fyuca(:,:,:), fzuca(:,:,:) 00006 real(long), pointer :: fijdca(:,:,:,:),fijuca(:,:,:,:) 00007 real(long), pointer :: fijduca(:,:,:,:,:),fidfiuca(:,:,:),fijfijca(:,:,:) 00008 real(long), pointer :: fxd_gridca(:,:,:),fyd_gridca(:,:,:),fzd_gridca(:,:,:) 00009 real(long), pointer :: fxu_gridca(:,:,:),fyu_gridca(:,:,:),fzu_gridca(:,:,:) 00010 real(long), pointer :: fijd_gridca(:,:,:,:), fiju_gridca(:,:,:,:) 00011 real(long), pointer :: Lie_bFxdca(:,:,:),Lie_bFydca(:,:,:),Lie_bFzdca(:,:,:) 00012 end module def_faraday_tensor_cartesian