initial

tem3dfdtd/lib/free-memory.f90

@@ -0,0 +1,19 @@
+!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
+    
+SUBROUTINE FREE_MEMORY
+  USE CONSTANTPARAMETERS
+  USE ELECTROMAGNETIC_VARIABLES
+  USE RES_MODEL_PARAMETER
+  USE TIME_PARAMETER
+  IMPLICIT NONE
+  INTEGER ERR
+  DEALLOCATE(EX, EY, EZ, STAT=ERR)
+  DEALLOCATE(HX, HY, HZ, STAT=ERR)
+  DEALLOCATE(CCSIG, STAT=ERR)
+  DEALLOCATE(CTIME, STAT=ERR)
+  DEALLOCATE(DELT, STAT=ERR)
+  DEALLOCATE(CDELX,CDELY,CDELZ,STAT=ERR)
+  RETURN
+ENDSUBROUTINE FREE_MEMORY