initial

tem3dfdtd/lib/allocatememory.f90

@@ -0,0 +1,37 @@
+!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
+    
+!function description
+    !this subroutine is used to allocate dynamic memory to the selected array.
+    !all allocatable variables which can be allocated automaticly after getting 
+    !the input parameters file are allocated here.
+    !2016-10-30 by Huaifeng Sun
+    
+SUBROUTINE ALLOCATEMEMORY
+  USE CONSTANTPARAMETERS
+  USE ELECTROMAGNETIC_VARIABLES
+  USE RES_MODEL_PARAMETER
+  USE TIME_PARAMETER
+  IMPLICIT NONE
+  INTEGER ERR
+  !<21><><EFBFBD><EFBFBD>ELECTROMAGNETIC_VARIABLES<45>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD>
+  WRITE(*,*)'Allocating memory... ...'
+  ALLOCATE(EX(NX,NYB,NZB),  EY(NXB,NY,NZB),  EZ(NXB,NYB,NZ), STAT=ERR)
+  ALLOCATE(HX(NXB,NY,0:NZ), HY(NX,NYB,0:NZ), HZ(NX,NY,NZB),  STAT=ERR)
+  !<21><><EFBFBD><EFBFBD>RES_MODEL_PARAMETER<45>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD>
+  ALLOCATE(CCSIG(NX,NY,NZ), STAT=ERR)
+  !<21><><EFBFBD><EFBFBD>TIME_PARAMETER<45>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD>
+  ALLOCATE(CTIME(NSTOP), STAT=ERR)
+  ALLOCATE(DELT(0:NSTOP), STAT=ERR)
+  allocate(Eps_r(nstop),Cq(nstop))
+  allocate(is_ex_in_source(nx,2:nyb-1),is_ey_in_source(2:nx,ny))
+  allocate(RecHzFile(NumRecHeights+1,NumRecLines),RecHEFile(NumRecHeights+1,NumRecLines))
+  allocate(RecFile(NumRecHeights+1,NumRecLines),RecFilePid(NumRecHeights+1,NumRecLines))
+  allocate(RecHzFilePid(NumRecHeights+1,NumRecLines),RecHEFilePid(NumRecHeights+1,NumRecLines))
+  allocate(Height(NumRecHeights))
+  allocate(Coordix3(Nx),Coordiy3(Ny),Coordiz3(Nzb))
+  !THIS IS THE ARRAY FOR NON-UNIFORM GRID
+  ALLOCATE(CDELX(NX),CDELY(NY),CDELZ(NZ),STAT=ERR)
+  RETURN
+ENDSUBROUTINE ALLOCATEMEMORY