19 行
1.4 KiB
Fortran
19 行
1.4 KiB
Fortran
!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 |