00001 module def_emfield_derivatives 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: Lie_bAxd(:,:,:), Lie_bAyd(:,:,:), Lie_bAzd(:,:,:) 00005 real(long), pointer :: Lie_bAxd_grid(:,:,:), gLie_bAxu_grid(:,:,:), 00006 Lie_bAyd_grid(:,:,:), gLie_bAyu_grid(:,:,:), & 00007 Lie_bAzd_grid(:,:,:), gLie_bAzu_grid(:,:,:) 00008 real(long), pointer :: cdvaxd(:,:,:,:), cdvayd(:,:,:,:), cdvazd(:,:,:,:) 00009 real(long), pointer :: pdvaxd(:,:,:,:), pdvayd(:,:,:,:), pdvazd(:,:,:,:) 00010 end module def_emfield_derivatives