initial

tem3dfdtd/lib/sin-source.f90

@@ -0,0 +1,30 @@
+!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 SIN_SOURCE
+  USE CONSTANTPARAMETERS
+  USE TIME_PARAMETER
+  USE OMP_LIB
+  IMPLICIT NONE
+  integer i,j,k
+  DELT=1.0D-7
+  CTIME(1)=0.0D0
+  SOURCE(1)=0.0D0
+  DO I=2,NSTOP
+     CTIME(I)=CTIME(I-1)+DELT(I-1)
+     IF(CTIME(I) .LT. WAVE)THEN
+        SOURCE(I)=AMP*SIN(PI*CTIME(I)/WAVE)
+     ELSE
+        SOURCE(I)=0.0D0
+     ENDIF
+  ENDDO
+  OPEN(9,FILE='CTIME_SIN_SOURCE.DAT',STATUS='UNKNOWN')
+  DO I=1,NSTOP
+     WRITE(9,'(3E24.16)')CTIME(I),DELT(I),SOURCE(I)
+  ENDDO
+  CLOSE(9)
+  WRITE(10005,*)'<27><><EFBFBD><EFBFBD><EFBFBD>ҷ<EFBFBD><D2B7>䲨<EFBFBD><E4B2A8>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD>д<EFBFBD><D0B4><EFBFBD>ļ<EFBFBD>CTIME_SIN_SOURCE.DAT'
+  RETURN
+ENDSUBROUTINE SIN_SOURCE