!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
!Code distribution @ tdem.org or sunhuaifeng.com

MODULE ELECTROMAGNETIC_VARIABLES
  REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: EX,EY,EZ    !The x,y and z component of electric field in 3 dimensions
  REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: HX,HY,HZ    !The x,y and z component of magnetic field in 3 dimensions
  !>Memory variables of the CPML absorbing boundary (Roden & Gedney 2000).
  !! psi_Eab_m: memory variable of the electric field Ea associated with the
  !! curl term in direction b; psi_Hab_m: the same for the magnetic field.
  !! _1 / _2 denote the lower/upper (or left/right) boundary of that direction.
  REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: psi_Exy_1, psi_Exy_2, psi_Exz_1, psi_Exz_2, &
                                                psi_Eyx_1, psi_Eyx_2, psi_Eyz_1, psi_Eyz_2, &
                                                psi_Ezx_1, psi_Ezx_2, psi_Ezy_1, psi_Ezy_2, &
                                                psi_Hxy_1, psi_Hxy_2, psi_Hxz_1, psi_Hxz_2, &
                                                psi_Hyx_1, psi_Hyx_2, psi_Hyz_1, psi_Hyz_2, &
                                                psi_Hzx_1, psi_Hzx_2, psi_Hzy_1, psi_Hzy_2, &
                                                psi_Hzz_1, psi_Hzz_2
ENDMODULE ELECTROMAGNETIC_VARIABLES