你已经派生过 tem3dfdtd-open
镜像自地址
https://gitee.com/sunhf/tem3dfdtd-open.git
已同步 2025-08-03 03:16:53 +08:00
20 行
600 B
Fortran
20 行
600 B
Fortran
!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
|