修正代码中的注释错误

README.md

@@ -538,7 +538,7 @@ OpenMP 运行时库缺失。将 Intel oneAPI 安装目录 `bin/libiomp5md.dll`
 
 ## 11.声明
 
-- 如需联系孙怀凤教授，请使用sunhuaifeng@email.sdu.edu.cn，不要继续使用代码中标注的gmail邮箱了，因为gmail邮箱经常会出现收发问题，谢谢。
+- 如需联系，请使用sunhuaifeng@email.sdu.edu.cn，不要继续使用代码中标注的gmail邮箱了，因为gmail邮箱经常会出现收发问题，谢谢。
-- 代码中列出的sunhuaifeng.com网站域名已经注销，不再属于课题组，也已经永久不再维护，后期将会修正代码，请勿访问
+- 代码中列出的https://git.em3d.cn/网站域名已经注销，不再属于课题组，也已经永久不再维护，后期将会修正代码，请勿访问
-- 代码中列出的tdem.org由于精力原因暂时无法维护
+- 代码中列出的https://git.em3d.cn/由于精力原因暂时无法维护
 - 所有代码均通过git仓库进行维护和发布https://git.em3d.cn/

tem3dfdtd.sln

@@ -1,4 +1,4 @@
-
+
 Microsoft Visual Studio Solution File, Format Version 12.00
 # Visual Studio Version 16
 VisualStudioVersion = 16.0.35826.135

tem3dfdtd/lib/Anomalous_conformal.f90

@@ -1,4 +1,4 @@
-!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn)
 !written by Xinyu Li(202335098@mail.sdu.edu.cn) and Qi Zhao(zhaoqi_326326@163.com)
 SUBROUTINE anomalous_conformal
 !This procedure is used to compute anomalous body conformal

tem3dfdtd/lib/CloseRecFiles.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 !function description
     !this suboutine is used to select and call some suboutine to close some 

tem3dfdtd/lib/GetSourcePosition.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 subroutine GetSourcePosition
   ! This subroutine initialize the value of array is_ex_in_source which is used when judging whether the grid contains the source

tem3dfdtd/lib/Get_Receiver_Gridlabel.f90

@@ -1,4 +1,4 @@
-!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn)
 !written by Shangbin Liu(lsbin87@126.com)
     
 SUBROUTINE Get_Receiver_Gridlabel

tem3dfdtd/lib/Iteration.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 ! --------------------------------Subroutine part---------------------------------------------!
 subroutine Iteration_cpml

tem3dfdtd/lib/OpenRecFiles.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 subroutine OpenRecFiles
   ! This subroutine opens all the files needed to record data of interests

tem3dfdtd/lib/SubCloseRecFiles.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 subroutine SubCloseRecFiles(Flag)
   use constantparameters

tem3dfdtd/lib/SubOpenRecFiles.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 subroutine SubOpenRecFiles(Flag)
   use constantparameters
@@ -72,7 +72,7 @@ subroutine SubOpenRecFiles(Flag)
   end select
   ! ------------------------------------end of File name Distribution---------------------------------------------!
   ! --------------------------------------open file code-------------------------------------------!
-  ! if the compiler reports the error: 'Too Many Open FIles!', you can come to tdem.org website and find the solutions.
+  ! if the compiler reports the error: 'Too Many Open FIles!', you can come to https://git.em3d.cn/ website and find the solutions.
   ! -----------------------------------------------------------------------------------------------------!
   do ii=1,NumRecHeights+1,1
      do jj=1,NumRecLines,1

tem3dfdtd/lib/SubWriteRecFiles.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 subroutine SubWriteRecFiles(Flag,num)
   ! This subroutine writes all the data of intersted recording points from different recording plane which are given in the input.dat file.

tem3dfdtd/lib/Terrain_conformal.f90

@@ -1,4 +1,4 @@
-!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn)
 !written by Xinyu Li(202335098@mail.sdu.edu.cn) and Qi Zhao(zhaoqi_326326@163.com)
 SUBROUTINE terrain_conformal
 

tem3dfdtd/lib/allocatememory.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 !function description
     !this subroutine is used to allocate dynamic memory to the selected array.

tem3dfdtd/lib/checkparameters.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 !function description
     !this suboutine is used to write out the readed calculation parameters for 

tem3dfdtd/lib/close-additional-survey-points-files.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 !function description
     !this suboutine is used to close #5300 file.

tem3dfdtd/lib/free-memory.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 SUBROUTINE FREE_MEMORY
   USE CONSTANTPARAMETERS

tem3dfdtd/lib/get-eps-r.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 
 subroutine Get_eps_r
   use constantparameters

tem3dfdtd/lib/get-mstop.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 subroutine Get_mstop
   ! if the value of plus is too small, it will cause array bounds exceeded because the array bonds of Mstop and Mstart is set to 10000.

tem3dfdtd/lib/get-pml-paramters.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 
 subroutine Get_pml_parameters
   use constantparameters

tem3dfdtd/lib/get-system-timedata.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 !SUBROUTINE GET_SYS_TIMEDATA(OUTPUT)
 !  ! The original subroutien written by Huaifeng Sun can not work in PGI compiler, so I change it into what it looks like here.

tem3dfdtd/lib/get_coordinates.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 
 SUBROUTINE GET_COORDINATES
 	!> @brief This subroutine calculates the coordinates of each grid node in the 3D domain,

tem3dfdtd/lib/get_non_uniformgrid.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 SUBROUTINE GET_NON_UNIFORMGRID
   USE CONSTANTPARAMETERS

tem3dfdtd/lib/getdata.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 
 SUBROUTINE GETDATA
   USE CONSTANTPARAMETERS

tem3dfdtd/lib/getxmldata.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 !this subroutine is writen by Huaifeng Sun from May 29, 2017
 
 subroutine getxmldata

tem3dfdtd/lib/memory-use-estimation.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 SUBROUTINE MEMORY_USE_ESTIMATION 
   !This subroutine is written by Huaifeng Sun, and it has not been modified since the last ice age, so it can not reveal the real consumption of memory now.
@@ -11,17 +11,17 @@ SUBROUTINE MEMORY_USE_ESTIMATION
   CHARACTER(LEN=40) XSTRING
   INTEGER(KIND=1) CONTD
   TUSE=0.0
-  TUSE=TUSE+NX*NYB*NZB+NXB*NY*NZB+NXB*NYB*NZ      !电场E使用内存
+  TUSE=TUSE+NX*NYB*NZB+NXB*NY*NZB+NXB*NYB*NZ      !�糡Eʹ���ڴ�
-  TUSE=TUSE+NXB*NY*(NZ+1)+NX*NYB*(NZ+1)+NX*NY*NZB !磁场H使用内存
+  TUSE=TUSE+NXB*NY*(NZ+1)+NX*NYB*(NZ+1)+NX*NY*NZB !�ų�Hʹ���ڴ�
-  TUSE=TUSE+4*NY*NZB+4*NYB*NZ+NX*4*NZB+NXB*4*NZ+NX*NYB*4+NXB*NY*4 !边界条件使用内存
+  TUSE=TUSE+4*NY*NZB+4*NYB*NZ+NX*4*NZB+NXB*4*NZ+NX*NYB*4+NXB*NY*4 !�߽�����ʹ���ڴ�
-  TUSE=TUSE+4*NY*NZB+4*NYB*NZ+NX*4*NZB+NXB*4*NZ+NX*NYB*4+NXB*NY*4 !边界条件使用内存
+  TUSE=TUSE+4*NY*NZB+4*NYB*NZ+NX*4*NZB+NXB*4*NZ+NX*NYB*4+NXB*NY*4 !�߽�����ʹ���ڴ�
-  TUSE=TUSE+NXB*NYB*NZB   !模型使用内存
+  TUSE=TUSE+NXB*NYB*NZB   !ģ��ʹ���ڴ�
   TUSE=TUSE+NSTOP*2
   TUSE=TUSE/1024
   TUSE=TUSE/1024
   TUSE=TUSE*16
   WRITE (XSTRING,'(I40)') TUSE
-  XSTRING = 'At least '//TRIM(ADJUSTL(XSTRING))//'M memory is needed!' !拼接为要求的FORMAT格式
+  XSTRING = 'At least '//TRIM(ADJUSTL(XSTRING))//'M memory is needed!' !ƴ��ΪҪ���FORMAT��ʽ
   XSTRING = TRIM(ADJUSTL(XSTRING)) 
   WRITE(*,*)XSTRING
   RETURN

tem3dfdtd/lib/resistivity-configuration.f90

@@ -1,4 +1,4 @@
-!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn)
 !written by Xinyu Li(202335098@mail.sdu.edu.cn) and Qi Zhao(zhaoqi_326326@163.com)
     
 SUBROUTINE RES_CONFIGURE

tem3dfdtd/lib/sin-source.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 
 SUBROUTINE SIN_SOURCE
@@ -25,6 +25,6 @@ SUBROUTINE SIN_SOURCE
      WRITE(9,'(3E24.16)')CTIME(I),DELT(I),SOURCE(I)
   ENDDO
   CLOSE(9)
-  WRITE(10005,*)'半正弦发射波形时间序列已经写入文件CTIME_SIN_SOURCE.DAT'
+  WRITE(10005,*)'�����ҷ��䲨��ʱ�������Ѿ�д���ļ�CTIME_SIN_SOURCE.DAT'
   RETURN
 ENDSUBROUTINE SIN_SOURCE

tem3dfdtd/lib/time-serious.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.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.'

tem3dfdtd/lib/tixing-source-upcos.f90

@@ -1,8 +1,8 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
-!梯形波电流激发，采用升余弦开关函数和降余弦开关函数
+!���β��������������������ҿ��غ����ͽ����ҿ��غ���
 SUBROUTINE TIXING_SOURCE_UPCOS
   USE CONSTANTPARAMETERS
   USE ELECTROMAGNETIC_VARIABLES
@@ -20,16 +20,16 @@ SUBROUTINE TIXING_SOURCE_UPCOS
   SOURCE(1)=AMP*0.5*(1-COS(PI*CTIME(1)/RAISETIME))  !AMP*CTIME(1)/RAISETIME
   DO I=2,NSTOP
      CTIME(I)=CTIME(I-1)+DELT(I-1)
-     IF(CTIME(I) .LT. RAISETIME)THEN !小于raistime
+     IF(CTIME(I) .LT. RAISETIME)THEN !��raistime
         DELT(I)=RAISESTEP
         SOURCE(I)=AMP*0.5*(1-COS(PI*CTIME(I)/RAISETIME))  !AMP*CTIME(I)/RAISETIME
-     ELSEIF(CTIME(I) .GE. RAISETIME .AND. CTIME(I) .LT. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM)THEN  !RAISETIME小于等于CTIME(I)<RAISETIME+WAVE-TIME_RAMP2WAVE_SUM
+     ELSEIF(CTIME(I) .GE. RAISETIME .AND. CTIME(I) .LT. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM)THEN  !RAISETIMEС�ڵ���CTIME(I)<RAISETIME+WAVE-TIME_RAMP2WAVE_SUM
         DELT(I)=DELT(I-1)*1.0005
         IF(DELT(I) .GE. WAVESTEP)THEN
            DELT(I)=WAVESTEP
         ENDIF
         SOURCE(I)=AMP  !1.0D0
-     ELSEIF(CTIME(I) .GE. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM .AND. CTIME(I) .LT. RAISETIME+WAVE)THEN !RAISETIME+WAVE-TIME_RAMP2WAVE_SUM小于等于CTIME(I)<RAISETIME+WAVE
+     ELSEIF(CTIME(I) .GE. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM .AND. CTIME(I) .LT. RAISETIME+WAVE)THEN !RAISETIME+WAVE-TIME_RAMP2WAVE_SUMС�ڵ���CTIME(I)<RAISETIME+WAVE
         DELT(I)=DELT(I-1)*0.9995
         IF(DELT(I) .LE. RAMPSTEP)THEN
            DELT(I)=RAMPSTEP

tem3dfdtd/lib/tixing-source.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 SUBROUTINE TIXING_SOURCE
   USE CONSTANTPARAMETERS
@@ -47,6 +47,6 @@ SUBROUTINE TIXING_SOURCE
      WRITE(9,'(3E24.16E3)')CTIME(I),DELT(I),SOURCE(I)
   ENDDO
   CLOSE(9)
-  WRITE(10005,*)'梯形波发射波形时间序列已经写入文件CTIME_TIXING.DAT'
+  WRITE(10005,*)'���β����䲨��ʱ�������Ѿ�д���ļ�CTIME_TIXING.DAT'
   RETURN
 ENDSUBROUTINE TIXING_SOURCE

tem3dfdtd/lib/triangle-source.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 SUBROUTINE TRIANGLE_SOURCE
   USE CONSTANTPARAMETERS
@@ -26,6 +26,6 @@ SUBROUTINE TRIANGLE_SOURCE
      WRITE(9,'(3E24.16)')CTIME(I),DELT(I),SOURCE(I)
   ENDDO
   CLOSE(9)
-  WRITE(10005,*)'三角发射波形时间序列已经写入文件CTIME_TRIANGLE_SOURCE.DAT'
+  WRITE(10005,*)'���Ƿ��䲨��ʱ�������Ѿ�д���ļ�CTIME_TRIANGLE_SOURCE.DAT'
   RETURN
 ENDSUBROUTINE TRIANGLE_SOURCE

tem3dfdtd/lib/write-rec-files.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 subroutine WriteRecFiles(num)
   use constantparameters

tem3dfdtd/lib/zero.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 SUBROUTINE ZERO
   USE CONSTANTPARAMETERS

tem3dfdtd/main.f90

@@ -1,13 +1,13 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 
 ! This is a finite difference time domain (FDTD) code for the simulation of transient electromagnetic (TEM);
 ! This code is designed to  be used in semi_airborne TEM with a loop source;
-! This code is written by Huaifeng Sun (sunhuaifeng@gmail.com) and Xushan Lu (luxushan@gmail.com), The conformal mesh part is written by Xinyu Li (202335098@mail.sdu.edu.cn) and Qi Zhao(zhaoqi_326326@163.com);
+! This code is written by Huaifeng Sun (sunhuaifeng@email.sdu.edu.cn) and Xushan Lu (luxushan@gmail.com), The conformal mesh part is written by Xinyu Li (202335098@mail.sdu.edu.cn) and Qi Zhao(zhaoqi_326326@163.com);
 ! OpenACC API is used in this code for the acceleration with GPU device; therefore, you are recommended to compile this code with --
 ! --PGI Accelerator Fortran Workstation compiler. A Nvidia GPU card with CUDA capability is required if you want to run this code in parallel mode.
-! Nobody is allowed to copy or distribute this code to people outside of TDEM.org group without the permission from Prof. Xiu Li (lixiu@chd.edu.cn)--
+! Nobody is allowed to copy or distribute this code to people outside of https://git.em3d.cn/ group without the permission from Prof. Xiu Li (lixiu@chd.edu.cn)--
 ! --or you will be 
 ! Contact the author for more detailed information.
 

tem3dfdtd/module/Precision.f90

@@ -1,4 +1,4 @@
-!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn)
 !written by Qi Zhao(zhaoqi_326326@163.com)
 MODULE Precision
     USE ISO_FORTRAN_ENV, ONLY : i1k => INT8, i2k => INT16, i4k => INT32, i8k => INT64, &

tem3dfdtd/module/VTK_fix_header.f90

@@ -1,4 +1,4 @@
-!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn)
 !written by Qi Zhao(zhaoqi_326326@163.com)
 MODULE vtk_fix_header
     USE Precision, ONLY : i4k

tem3dfdtd/module/VTK_fortran.f90

@@ -1,4 +1,4 @@
-!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
+!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn)
 !written by Qi Zhao(zhaoqi_326326@163.com)
 
 ! --------------------------------Subroutine part---------------------------------------------!

tem3dfdtd/module/constant-parameters.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
     MODULE CONSTANTPARAMETERS
   INTEGER NX,NY,NZ

tem3dfdtd/module/electromagnetic-variables.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 
 MODULE ELECTROMAGNETIC_VARIABLES
   REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: EX,EY,EZ    !The x,y and z component of electric field in 3 dimensions

tem3dfdtd/module/pml-parameters.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
 !The PML part follows the CPML scheme of Roden & Gedney (2000), integrated by the
 !author of the PML version (tem3dfdtd_第二版), with tuned parameters:
 !sig_x_max=1.0D2, alpha_x_max=1.0D-1, kappa_x_max=1.0 (RESTORED to the EXACT

tem3dfdtd/module/resistivity-model-parameters.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 MODULE RES_MODEL_PARAMETER
   REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: CCSIG,CCSIGX,CCSIGY,CCSIGZ    !The conductivity in each grid

tem3dfdtd/module/time-parameters.f90

@@ -1,6 +1,6 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Code distribution @ https://git.em3d.cn/
     
 MODULE TIME_PARAMETER
   REAL(KIND=8), DIMENSION(:), ALLOCATABLE:: CTIME,DELT