00001 module def_emfield
00002 use phys_constant, only : long
00003 implicit none
00004 real(long), pointer :: va(:,:,:), alva(:,:,:)
00005 real(long), pointer :: vaxd(:,:,:), vayd(:,:,:), vazd(:,:,:)
00006 real(long), pointer :: vaxu(:,:,:), vayu(:,:,:), vazu(:,:,:)
00007 real(long), pointer :: jtd(:,:,:), jxd(:,:,:), jyd(:,:,:), jzd(:,:,:)
00008 real(long), pointer :: jtu(:,:,:), jxu(:,:,:), jyu(:,:,:), jzu(:,:,:)
00009 real(long), pointer :: jtuf(:,:,:),jxuf(:,:,:),jyuf(:,:,:),jzuf(:,:,:)
00010 end module def_emfield
