initial

tem3dfdtd/module/time-parameters.f90

@@ -0,0 +1,11 @@
+!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
+    
+MODULE TIME_PARAMETER
+  REAL(KIND=8), DIMENSION(:), ALLOCATABLE:: CTIME,DELT 
+  !Ctime is a Nstop length array which stores the value of time of each iteration step
+  ! Delt is a Nstop length array which stores the value of iteration time step.
+  REAL TIME_RAMP2WAVE_SUM,TIME_RAMP2WAVE_TEMP
+  ! This is used in Time_series subroutine.
+ENDMODULE TIME_PARAMETER