00001 module def_faraday_tensor
00002 use phys_constant, only : long
00003 implicit none
00004 real(long), pointer :: fxd(:,:,:), fyd(:,:,:), fzd(:,:,:)
00005 real(long), pointer :: fxu(:,:,:), fyu(:,:,:), fzu(:,:,:)
00006 real(long), pointer :: fijd(:,:,:,:), fiju(:,:,:,:)
00007 real(long), pointer :: fijdu(:,:,:,:,:), fidfiu(:,:,:), fijfij(:,:,:)
00008 real(long), pointer :: fxd_grid(:,:,:), fyd_grid(:,:,:), fzd_grid(:,:,:)
00009 real(long), pointer :: fxu_grid(:,:,:), fyu_grid(:,:,:), fzu_grid(:,:,:)
00010 real(long), pointer :: fijd_grid(:,:,:,:), fiju_grid(:,:,:,:)
00011 real(long), pointer :: fijdu_grid(:,:,:,:,:), fidfiu_grid(:,:,:)
00012 real(long), pointer :: fijfij_grid(:,:,:)
00013 real(long), pointer :: Lie_bFxd(:,:,:), Lie_bFyd(:,:,:), Lie_bFzd(:,:,:)
00014 end module def_faraday_tensor
