!****************************************************************************
! 補正電界境界条件
!****************************************************************************
subroutine electric_boundary_condition
   use fdtd
   implicit none

   integer :: i,j,k

   ! セルがずれているから左の壁の電界の接線成分を0にする
   do j=1,ny
      do k=1,nz
         ey(2,j,k)=0.0d0
         ez(2,j,k)=0.0d0
      end do
   end do

   ! セルがずれているから下の壁の電界の接線成分を0にする
   do i=1,nx
      do j=1,ny
         ex(i,j,2)=0.0d0
         ey(i,j,2)=0.0d0
      end do
   end do

   return
end subroutine

!
! End of file
!