修正代码中的注释错误

tem3dfdtd/lib/time-serious.f90

@@ -1,6 +1,6 @@
-!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
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
+!Code distribution @ https://git.em3d.cn/
     
 SUBROUTINE TIME_SERIOUS
   USE CONSTANTPARAMETERS
@@ -8,7 +8,7 @@ SUBROUTINE TIME_SERIOUS
   USE RES_MODEL_PARAMETER
   USE TIME_PARAMETER
   USE OMP_LIB
-  !本子程序将计算初始时间和时间序列
+  !���ӳ��򽫼����ʼʱ���ʱ������
   IMPLICIT NONE
   INTEGER NSTOP_TEMP,i,j,k
   TIME_MAX=100*GridSize*SQRT(EPS0*MU0/3.0) !Time_max can be set to larger value if the value of GridSize if less than 1m, otherwise you will spend a much longer time in calculation.
@@ -42,22 +42,22 @@ SUBROUTINE TIME_SERIOUS
   ENDDO                         !This subroutine computes the value of Nstop which satisfies the requirement of Max_off_time
   IF(NSTOP_TEMP .LT. NSTOP)THEN
      NSTOP=NSTOP_TEMP           !Change the value of Nstop to a smaller value according to the above computation
-     WRITE(10005,*)'NSTOP改变为',NSTOP        
+     WRITE(10005,*)'NSTOP�ı�Ϊ',NSTOP        
      OPEN(9,FILE='CTIME_TIXING_UPCOS.DAT',STATUS='UNKNOWN')
      DO I=1,NSTOP
         WRITE(9,'(3E24.16)')CTIME(I),DELT(I),SOURCE(I)
      ENDDO
      CLOSE(9)
-     WRITE(10005,*)'采用升余弦函数和降余弦函数处理的梯形波发射波形时间序列已经写入文件CTIME_TIXING_UPCOS.DAT'
+     WRITE(10005,*)'���������Һ����ͽ����Һ������������β����䲨��ʱ�������Ѿ�д���ļ�CTIME_TIXING_UPCOS.DAT'
   ELSEIF(NSTOP_TEMP .EQ. NSTOP)THEN
      NSTOP=NSTOP_TEMP
-     WRITE(10005,*)'NSTOP没有改变，可能无法满足最大最大延时设置，请重新设置NSTOP.'
+     WRITE(10005,*)'NSTOPû�иı䣬�����޷�������������ʱ���ã�����������NSTOP.'
      OPEN(9,FILE='CTIME_TIXING_UPCOS.DAT',STATUS='UNKNOWN')
      DO I=1,NSTOP
         WRITE(9,'(3E24.16)')CTIME(I),DELT(I),SOURCE(I)
      ENDDO
      CLOSE(9)
-     WRITE(10005,*)'采用升余弦函数和降余弦函数处理的梯形波发射波形时间序列已经写入文件CTIME_TIXING_UPCOS.DAT'
+     WRITE(10005,*)'���������Һ����ͽ����Һ������������β����䲨��ʱ�������Ѿ�д���ļ�CTIME_TIXING_UPCOS.DAT'
   ELSE
      WRITE(10005,*)'The number of iteration steps exceeds the range given in the input.dat, please change it. now the Nstop value is determined by Max_off_time.'
      print*,'The number of iteration steps exceeds the range given in the input.dat, please change it. now the Nstop value is determined by Max_off_time.'