module.f90

laser_damage_te用fdtd方法研究激光损伤

!******************************module*************************

!==========================================================================
!                           module consts
!==========================================================================
 module consts

 real, parameter ::  pi=3.141592653589793d0	 !圆周率
 real, parameter ::  c=2.998d8				 !真空中的光速
 real, parameter ::  epsilon0=8.854d-12		 !真空中的电导系数
 real, parameter ::  mu0=4.0d-7*pi           !真空中的磁导系数
 real, parameter ::  z0=376.734309182110d0	 !阻抗
 
 end module

!=============================================================================
!                           module fdtd
!==============================================================================

module fdtd

!------------------------------频率-----------------------------------------------------

real freq

!------------------------------时间----------------------------------------------------

integer time_start,time_end,time_step
integer nperiod
real    time,dt

!------------------------------空间-----------------------------------------------------

integer , parameter :: mx=300,my=500
integer nx,ny
real    dx,dy
integer nlambda0
real(8) ::    ex(mx+1,my+1),ey(mx+1,my+1),hz(mx+1,my+1)

!------------------------------介质-------------------------------------------------------

integer,parameter :: mmedia=10
integer nmedia
real    eps(mmedia)
real    mu(mmedia)
real    sig(mmedia)

integer  media_id(mx,my)

!------------------------------迭代系数-------------------------------------------------

real cex0,cey0
real cexry0,ceyrx0
real chzrx0,chzry0
real cex(mmedia),cey(mmedia)
real cexry(mmedia),ceyrx(mmedia)
real chz(mmedia) 
real chzrx(mmedia),chzry(mmedia)

!------------------------------吸收系数--------------------------------------------------

real mur1_cx,mur1_cy
!real(8) :: hzx1(4,my+1),hzy1(4,mx+1)

end module