?? boundary.f90
字號:
!===================================================================================
! electric_boundary_condition
!===================================================================================
subroutine electric_boundary_condition
use fdtd
implicit none
integer i,j
j=1
do i=1,nx
ex(i,j)=0.0d0
end do
j=ny
do i=1,nx
ex(i,j)=0.0d0
end do
i=nx/2
do j=1,ny/2
ey(i,j)=0.0d0
end do
i=nx/2+1
do j=1,ny/2
ey(i,j)=0.0d0
end do
i=nx/2
j=ny/2+1
ey(i,j)=0.0d0
return
end subroutine
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -