diff --git a/README.md b/README.md index 35389bf..567392d 100644 --- a/README.md +++ b/README.md @@ -538,7 +538,7 @@ OpenMP 运行时库缺失。将 Intel oneAPI 安装目录 `bin/libiomp5md.dll` ## 11.声明 -- 如需联系孙怀凤教授，请使用sunhuaifeng@email.sdu.edu.cn，不要继续使用代码中标注的gmail邮箱了，因为gmail邮箱经常会出现收发问题，谢谢。 -- 代码中列出的sunhuaifeng.com网站域名已经注销，不再属于课题组，也已经永久不再维护，后期将会修正代码，请勿访问 -- 代码中列出的tdem.org由于精力原因暂时无法维护 +- 如需联系，请使用sunhuaifeng@email.sdu.edu.cn，不要继续使用代码中标注的gmail邮箱了，因为gmail邮箱经常会出现收发问题，谢谢。 +- 代码中列出的https://git.em3d.cn/网站域名已经注销，不再属于课题组，也已经永久不再维护，后期将会修正代码，请勿访问 +- 代码中列出的https://git.em3d.cn/由于精力原因暂时无法维护 - 所有代码均通过git仓库进行维护和发布https://git.em3d.cn/ diff --git a/tem3dfdtd.sln b/tem3dfdtd.sln index b61c59d..8169adc 100644 --- a/tem3dfdtd.sln +++ b/tem3dfdtd.sln @@ -1,4 +1,4 @@ - + Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio Version 16 VisualStudioVersion = 16.0.35826.135 diff --git a/tem3dfdtd/example/ex1-halfspace/PML结果/TEM_decay_curve.png b/tem3dfdtd/example/ex1-halfspace/PML结果/TEM_decay_curve.png index 5c139d0..7d79d15 100644 Binary files a/tem3dfdtd/example/ex1-halfspace/PML结果/TEM_decay_curve.png and b/tem3dfdtd/example/ex1-halfspace/PML结果/TEM_decay_curve.png differ diff --git a/tem3dfdtd/example/ex2-halfspacewithball/Dirichlet结果/TEM_decay_curve.png b/tem3dfdtd/example/ex2-halfspacewithball/Dirichlet结果/TEM_decay_curve.png index e0ff6b5..d8f5bb8 100644 Binary files a/tem3dfdtd/example/ex2-halfspacewithball/Dirichlet结果/TEM_decay_curve.png and b/tem3dfdtd/example/ex2-halfspacewithball/Dirichlet结果/TEM_decay_curve.png differ diff --git a/tem3dfdtd/example/ex2-halfspacewithball/PML结果/TEM_decay_curve.png b/tem3dfdtd/example/ex2-halfspacewithball/PML结果/TEM_decay_curve.png index 584377f..334c475 100644 Binary files a/tem3dfdtd/example/ex2-halfspacewithball/PML结果/TEM_decay_curve.png and b/tem3dfdtd/example/ex2-halfspacewithball/PML结果/TEM_decay_curve.png differ diff --git a/tem3dfdtd/example/ex3-complexTerrain/Dirichlet结果/TEM_decay_curve.png b/tem3dfdtd/example/ex3-complexTerrain/Dirichlet结果/TEM_decay_curve.png index a030f47..d2a7def 100644 Binary files a/tem3dfdtd/example/ex3-complexTerrain/Dirichlet结果/TEM_decay_curve.png and b/tem3dfdtd/example/ex3-complexTerrain/Dirichlet结果/TEM_decay_curve.png differ diff --git a/tem3dfdtd/lib/Anomalous_conformal.f90 b/tem3dfdtd/lib/Anomalous_conformal.f90 index 238d5f9..ccb717a 100644 --- a/tem3dfdtd/lib/Anomalous_conformal.f90 +++ b/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 diff --git a/tem3dfdtd/lib/CloseRecFiles.f90 b/tem3dfdtd/lib/CloseRecFiles.f90 index 225627b..48979db 100644 --- a/tem3dfdtd/lib/CloseRecFiles.f90 +++ b/tem3dfdtd/lib/CloseRecFiles.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/ !function description !this suboutine is used to select and call some suboutine to close some diff --git a/tem3dfdtd/lib/GetSourcePosition.f90 b/tem3dfdtd/lib/GetSourcePosition.f90 index ff1fc31..b69b6de 100644 --- a/tem3dfdtd/lib/GetSourcePosition.f90 +++ b/tem3dfdtd/lib/GetSourcePosition.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 GetSourcePosition ! This subroutine initialize the value of array is_ex_in_source which is used when judging whether the grid contains the source diff --git a/tem3dfdtd/lib/Get_Receiver_Gridlabel.f90 b/tem3dfdtd/lib/Get_Receiver_Gridlabel.f90 index 68fcd6c..2bdf783 100644 --- a/tem3dfdtd/lib/Get_Receiver_Gridlabel.f90 +++ b/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 diff --git a/tem3dfdtd/lib/Iteration.f90 b/tem3dfdtd/lib/Iteration.f90 index d302002..0863449 100644 --- a/tem3dfdtd/lib/Iteration.f90 +++ b/tem3dfdtd/lib/Iteration.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 part---------------------------------------------! subroutine Iteration_cpml diff --git a/tem3dfdtd/lib/OpenRecFiles.f90 b/tem3dfdtd/lib/OpenRecFiles.f90 index dc0c696..382dc56 100644 --- a/tem3dfdtd/lib/OpenRecFiles.f90 +++ b/tem3dfdtd/lib/OpenRecFiles.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 OpenRecFiles ! This subroutine opens all the files needed to record data of interests diff --git a/tem3dfdtd/lib/SubCloseRecFiles.f90 b/tem3dfdtd/lib/SubCloseRecFiles.f90 index 9768c92..303fecd 100644 --- a/tem3dfdtd/lib/SubCloseRecFiles.f90 +++ b/tem3dfdtd/lib/SubCloseRecFiles.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 SubCloseRecFiles(Flag) use constantparameters diff --git a/tem3dfdtd/lib/SubOpenRecFiles.f90 b/tem3dfdtd/lib/SubOpenRecFiles.f90 index cd29b4a..7790921 100644 --- a/tem3dfdtd/lib/SubOpenRecFiles.f90 +++ b/tem3dfdtd/lib/SubOpenRecFiles.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 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 diff --git a/tem3dfdtd/lib/SubWriteRecFiles.f90 b/tem3dfdtd/lib/SubWriteRecFiles.f90 index 81b1afc..0aa3105 100644 --- a/tem3dfdtd/lib/SubWriteRecFiles.f90 +++ b/tem3dfdtd/lib/SubWriteRecFiles.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 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. diff --git a/tem3dfdtd/lib/Terrain_conformal.f90 b/tem3dfdtd/lib/Terrain_conformal.f90 index dc1951d..b381a1a 100644 --- a/tem3dfdtd/lib/Terrain_conformal.f90 +++ b/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 diff --git a/tem3dfdtd/lib/allocatememory.f90 b/tem3dfdtd/lib/allocatememory.f90 index c2ce063..fad8e09 100644 --- a/tem3dfdtd/lib/allocatememory.f90 +++ b/tem3dfdtd/lib/allocatememory.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/ !function description !this subroutine is used to allocate dynamic memory to the selected array. diff --git a/tem3dfdtd/lib/checkparameters.f90 b/tem3dfdtd/lib/checkparameters.f90 index 24141c5..da315dd 100644 --- a/tem3dfdtd/lib/checkparameters.f90 +++ b/tem3dfdtd/lib/checkparameters.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/ !function description !this suboutine is used to write out the readed calculation parameters for diff --git a/tem3dfdtd/lib/close-additional-survey-points-files.f90 b/tem3dfdtd/lib/close-additional-survey-points-files.f90 index 8bd893b..01f6ece 100644 --- a/tem3dfdtd/lib/close-additional-survey-points-files.f90 +++ b/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) -!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/ !function description !this suboutine is used to close #5300 file. diff --git a/tem3dfdtd/lib/free-memory.f90 b/tem3dfdtd/lib/free-memory.f90 index 3abc581..6295bb9 100644 --- a/tem3dfdtd/lib/free-memory.f90 +++ b/tem3dfdtd/lib/free-memory.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 FREE_MEMORY USE CONSTANTPARAMETERS diff --git a/tem3dfdtd/lib/get-eps-r.f90 b/tem3dfdtd/lib/get-eps-r.f90 index adab331..ac782e3 100644 --- a/tem3dfdtd/lib/get-eps-r.f90 +++ b/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) -!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 Get_eps_r use constantparameters diff --git a/tem3dfdtd/lib/get-mstop.f90 b/tem3dfdtd/lib/get-mstop.f90 index 38e5f66..58d21cd 100644 --- a/tem3dfdtd/lib/get-mstop.f90 +++ b/tem3dfdtd/lib/get-mstop.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 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. diff --git a/tem3dfdtd/lib/get-pml-paramters.f90 b/tem3dfdtd/lib/get-pml-paramters.f90 index 122943c..d69f98e 100644 --- a/tem3dfdtd/lib/get-pml-paramters.f90 +++ b/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) -!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 Get_pml_parameters use constantparameters diff --git a/tem3dfdtd/lib/get-system-timedata.f90 b/tem3dfdtd/lib/get-system-timedata.f90 index 66e763a..910daf9 100644 --- a/tem3dfdtd/lib/get-system-timedata.f90 +++ b/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) -!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 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. diff --git a/tem3dfdtd/lib/get_coordinates.f90 b/tem3dfdtd/lib/get_coordinates.f90 index a3137b4..2ce7eec 100644 --- a/tem3dfdtd/lib/get_coordinates.f90 +++ b/tem3dfdtd/lib/get_coordinates.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 GET_COORDINATES !> @brief This subroutine calculates the coordinates of each grid node in the 3D domain, diff --git a/tem3dfdtd/lib/get_non_uniformgrid.f90 b/tem3dfdtd/lib/get_non_uniformgrid.f90 index 87f52a3..69ede10 100644 --- a/tem3dfdtd/lib/get_non_uniformgrid.f90 +++ b/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) -!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 GET_NON_UNIFORMGRID USE CONSTANTPARAMETERS diff --git a/tem3dfdtd/lib/getdata.f90 b/tem3dfdtd/lib/getdata.f90 index 61e8143..e031697 100644 --- a/tem3dfdtd/lib/getdata.f90 +++ b/tem3dfdtd/lib/getdata.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 GETDATA USE CONSTANTPARAMETERS diff --git a/tem3dfdtd/lib/getxmldata.f90 b/tem3dfdtd/lib/getxmldata.f90 index 3cb2f22..d487f27 100644 --- a/tem3dfdtd/lib/getxmldata.f90 +++ b/tem3dfdtd/lib/getxmldata.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/ !this subroutine is writen by Huaifeng Sun from May 29, 2017 subroutine getxmldata diff --git a/tem3dfdtd/lib/memory-use-estimation.f90 b/tem3dfdtd/lib/memory-use-estimation.f90 index 5821978..3a4912a 100644 --- a/tem3dfdtd/lib/memory-use-estimation.f90 +++ b/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) -!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 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+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+NXB*NYB*NZB !ģʹڴ + 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+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+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 diff --git a/tem3dfdtd/lib/resistivity-configuration.f90 b/tem3dfdtd/lib/resistivity-configuration.f90 index 1da7264..912423e 100644 --- a/tem3dfdtd/lib/resistivity-configuration.f90 +++ b/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 diff --git a/tem3dfdtd/lib/sin-source.f90 b/tem3dfdtd/lib/sin-source.f90 index 6bc026c..49ef30b 100644 --- a/tem3dfdtd/lib/sin-source.f90 +++ b/tem3dfdtd/lib/sin-source.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 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 diff --git a/tem3dfdtd/lib/time-serious.f90 b/tem3dfdtd/lib/time-serious.f90 index a90250b..e150da7 100644 --- a/tem3dfdtd/lib/time-serious.f90 +++ b/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.' diff --git a/tem3dfdtd/lib/tixing-source-upcos.f90 b/tem3dfdtd/lib/tixing-source-upcos.f90 index 6b62622..5ac6538 100644 --- a/tem3dfdtd/lib/tixing-source-upcos.f90 +++ b/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) -!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 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) INT8, i2k => INT16, i4k => INT32, i8k => INT64, & diff --git a/tem3dfdtd/module/VTK_fix_header.f90 b/tem3dfdtd/module/VTK_fix_header.f90 index e2f8024..2eece9e 100644 --- a/tem3dfdtd/module/VTK_fix_header.f90 +++ b/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 diff --git a/tem3dfdtd/module/VTK_fortran.f90 b/tem3dfdtd/module/VTK_fortran.f90 index 161791f..63850fe 100644 --- a/tem3dfdtd/module/VTK_fortran.f90 +++ b/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---------------------------------------------! diff --git a/tem3dfdtd/module/constant-parameters.f90 b/tem3dfdtd/module/constant-parameters.f90 index e6f5112..dad7f85 100644 --- a/tem3dfdtd/module/constant-parameters.f90 +++ b/tem3dfdtd/module/constant-parameters.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/ MODULE CONSTANTPARAMETERS INTEGER NX,NY,NZ diff --git a/tem3dfdtd/module/electromagnetic-variables.f90 b/tem3dfdtd/module/electromagnetic-variables.f90 index a7d0268..e23c37b 100644 --- a/tem3dfdtd/module/electromagnetic-variables.f90 +++ b/tem3dfdtd/module/electromagnetic-variables.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/ MODULE ELECTROMAGNETIC_VARIABLES REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: EX,EY,EZ !The x,y and z component of electric field in 3 dimensions diff --git a/tem3dfdtd/module/pml-parameters.f90 b/tem3dfdtd/module/pml-parameters.f90 index affea76..e2191d8 100644 --- a/tem3dfdtd/module/pml-parameters.f90 +++ b/tem3dfdtd/module/pml-parameters.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/ !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 diff --git a/tem3dfdtd/module/resistivity-model-parameters.f90 b/tem3dfdtd/module/resistivity-model-parameters.f90 index ec6ac43..556f8fb 100644 --- a/tem3dfdtd/module/resistivity-model-parameters.f90 +++ b/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) -!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/ MODULE RES_MODEL_PARAMETER REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: CCSIG,CCSIGX,CCSIGY,CCSIGZ !The conductivity in each grid diff --git a/tem3dfdtd/module/time-parameters.f90 b/tem3dfdtd/module/time-parameters.f90 index 2a9ff68..0710cb2 100644 --- a/tem3dfdtd/module/time-parameters.f90 +++ b/tem3dfdtd/module/time-parameters.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/ MODULE TIME_PARAMETER REAL(KIND=8), DIMENSION(:), ALLOCATABLE:: CTIME,DELT