包含基于射线追踪的任意复杂界面计算

tem3dfdtd/lib/free-memory.f90

@@ -7,6 +7,7 @@ SUBROUTINE FREE_MEMORY
   USE ELECTROMAGNETIC_VARIABLES
   USE RES_MODEL_PARAMETER
   USE TIME_PARAMETER
+  USE PML_PARAMETER
   IMPLICIT NONE
   INTEGER ERR
   DEALLOCATE(EX, EY, EZ, STAT=ERR)
@@ -15,5 +16,29 @@ SUBROUTINE FREE_MEMORY
   DEALLOCATE(CTIME, STAT=ERR)
   DEALLOCATE(DELT, STAT=ERR)
   DEALLOCATE(CDELX,CDELY,CDELZ,STAT=ERR)
+  IF(Logic_PML==1)THEN
+     DEALLOCATE(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, STAT=ERR)
+     DEALLOCATE(b_e_x1,c_e_x1,alpha_PML_e_x1,sig_PML_e_x1,kappa_PML_e_x1)
+     DEALLOCATE(b_h_x1,c_h_x1,alpha_PML_h_x1,sig_PML_h_x1,kappa_PML_h_x1)
+     DEALLOCATE(b_e_x2,c_e_x2,alpha_PML_e_x2,sig_PML_e_x2,kappa_PML_e_x2)
+     DEALLOCATE(b_h_x2,c_h_x2,alpha_PML_h_x2,sig_PML_h_x2,kappa_PML_h_x2)
+     DEALLOCATE(b_e_y1,c_e_y1,alpha_PML_e_y1,sig_PML_e_y1,kappa_PML_e_y1)
+     DEALLOCATE(b_h_y1,c_h_y1,alpha_PML_h_y1,sig_PML_h_y1,kappa_PML_h_y1)
+     DEALLOCATE(b_e_y2,c_e_y2,alpha_PML_e_y2,sig_PML_e_y2,kappa_PML_e_y2)
+     DEALLOCATE(b_h_y2,c_h_y2,alpha_PML_h_y2,sig_PML_h_y2,kappa_PML_h_y2)
+     DEALLOCATE(b_e_z1,c_e_z1,alpha_PML_e_z1,sig_PML_e_z1,kappa_PML_e_z1)
+     DEALLOCATE(b_h_z1,c_h_z1,alpha_PML_h_z1,sig_PML_h_z1,kappa_PML_h_z1)
+     DEALLOCATE(b_e_z2,c_e_z2,alpha_PML_e_z2,sig_PML_e_z2,kappa_PML_e_z2)
+     DEALLOCATE(b_h_z2,c_h_z2,alpha_PML_h_z2,sig_PML_h_z2,kappa_PML_h_z2)
+  ENDIF
+  DEALLOCATE(den_ex,den_hx,den_ey,den_hy,den_ez,den_hz)
+  DEALLOCATE(c_h_zz)
+  DEALLOCATE(inv_hz_den)
   RETURN
 ENDSUBROUTINE FREE_MEMORY