包含基于射线追踪的任意复杂界面计算
这个提交包含在：
+1
@@ -251,3 +251,4 @@ ModelManifest.xml
|
|||||||
/tem3dfdtd/PostProcessFileList.dat
|
/tem3dfdtd/PostProcessFileList.dat
|
||||||
/tem3dfdtd/HzCoordinate.dat
|
/tem3dfdtd/HzCoordinate.dat
|
||||||
/tem3dfdtd/Ground-Line=081.dat
|
/tem3dfdtd/Ground-Line=081.dat
|
||||||
|
tem3dfdtd/fort.5141
|
||||||
|
|||||||
@@ -1,5 +1,544 @@
|
|||||||
# tem3dfdtd-open
|
# tem3dfdtd
|
||||||
|
|
||||||
#### 介绍
|
|
||||||
请访问https://em3d.cn/ 获取更多信息。
|
请访问https://em3d.cn/ 获取更多信息。
|
||||||
|
|
||||||
|
# 三维瞬变电磁 FDTD 正演程序 (tem3dfdtd)
|
||||||
|
|
||||||
|
本程序基于 **FDTD（时域有限差分）方法**对三维瞬变电磁（TEM）响应进行正演模拟。核心算法采用 Wang–Hohmann (1993)改进的 Du Fort–Frankel 方法：在 Yee 网格上对磁场 H 迭代求解，通过引入**虚介电常数**保证显式迭代的时间稳定性；采用**共形网格技术**处理起伏地形与任意形状异常体（以表面三角网格描述）；支持矩形回线源，可计算地面 TEM 、半航空（SATEM）全航空（ATEM）等模式。
|
||||||
|
|
||||||
|
程序的整体框架与三大核心技术分别源于以下工作：
|
||||||
|
|
||||||
|
- **整体框架与核心迭代算法**（考虑关断时间的回线源激发 TEM 三维时域有限差分正演，Wang–Hohmann 改进的 Du Fort–Frankel 方法、虚介电常数、含关断时间的源波形），理论内容请见参考文献[1]；
|
||||||
|
- **CPML 吸收边界**（瞬变电磁低频近似 Maxwell 方程的 CPML 吸收边界及施加方法），理论内容请见参考文献[2]；
|
||||||
|
- **共形网格技术**（通过射线追踪方法将任意复杂形状的结构引入到Yee网格计算中），理论内容请见参考文献[3]。
|
||||||
|
|
||||||
|
各方法的具体原理、公式推导与实现细节详见文献 [1]–[3]，这些文献的作者都是对本开源项目做出突出贡献的人员。
|
||||||
|
|
||||||
|
代码结构：`main.f90`（主程序）、`module/`（全局参数与模块）、`lib/`（各功能子程序）。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 目录
|
||||||
|
|
||||||
|
- [tem3dfdtd](#tem3dfdtd)
|
||||||
|
- [三维瞬变电磁 FDTD 正演程序 (tem3dfdtd)](#三维瞬变电磁-fdtd-正演程序-tem3dfdtd)
|
||||||
|
- [目录](#目录)
|
||||||
|
- [1. 运行环境与编译](#1-运行环境与编译)
|
||||||
|
- [1.1 环境要求](#11-环境要求)
|
||||||
|
- [1.2 用 VS2019 编译运行(推荐)](#12-用-vs2019-编译运行推荐)
|
||||||
|
- [1.3 命令行编译(可选，不建议在Windows下使用)](#13-命令行编译可选不建议在windows下使用)
|
||||||
|
- [1.4 Linux 环境编译(makefile)](#14-linux-环境编译makefile)
|
||||||
|
- [2. 程序流程与模块结构](#2-程序流程与模块结构)
|
||||||
|
- [模块 1:程序控制与参数输入](#模块-1程序控制与参数输入)
|
||||||
|
- [模块 2:Yee 网格生成](#模块-2yee-网格生成)
|
||||||
|
- [模块 3:电性参数构建](#模块-3电性参数构建)
|
||||||
|
- [模块 4:激励源与时间序列](#模块-4激励源与时间序列)
|
||||||
|
- [模块 5:FDTD 电磁场计算](#模块-5fdtd-电磁场计算)
|
||||||
|
- [模块 6:输出](#模块-6输出)
|
||||||
|
- [3. 输入文件格式](#3-输入文件格式)
|
||||||
|
- [3.1 参数控制文件 input.dat](#31-参数控制文件-inputdat)
|
||||||
|
- [3.2 地形网格文件 Complex_Terrain](#32-地形网格文件-complex_terrain)
|
||||||
|
- [3.3 异常体网格文件 Complex_anomalous](#33-异常体网格文件-complex_anomalous)
|
||||||
|
- [3.4 建模注意事项](#34-建模注意事项)
|
||||||
|
- [4. CPML 吸收边界](#4-cpml-吸收边界)
|
||||||
|
- [4.1 实现位置](#41-实现位置)
|
||||||
|
- [4.2 参数与含义](#42-参数与含义)
|
||||||
|
- [4.3 使用说明](#43-使用说明)
|
||||||
|
- [4.4 与 Dirichlet 边界的对比](#44-与-dirichlet-边界的对比)
|
||||||
|
- [5. 输出文件说明](#5-输出文件说明)
|
||||||
|
- [6. 衰减曲线快速成图(TEM_decay_plot.py)](#6-衰减曲线快速成图tem_decay_plotpy)
|
||||||
|
- [6.1 使用方式](#61-使用方式)
|
||||||
|
- [6.2 主要可调参数(脚本顶部"User parameters"区)](#62-主要可调参数脚本顶部user-parameters区)
|
||||||
|
- [7. 快速上手(本目录自带算例)](#7-快速上手本目录自带算例)
|
||||||
|
- [8. 常见问题](#8-常见问题)
|
||||||
|
- [9. 参考文献](#9-参考文献)
|
||||||
|
- [10.贡献人员](#10贡献人员)
|
||||||
|
- [11.声明](#11声明)
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 1. 运行环境与编译
|
||||||
|
|
||||||
|
### 1.1 环境要求
|
||||||
|
|
||||||
|
| 项目 | 要求 |
|
||||||
|
| -------------- | ------------------------------------------------------------------------ |
|
||||||
|
| 操作系统 | Windows 10/11(64 位)或 Linux(x86_64)，特别推荐使用国产操作系统 deepin 25 |
|
||||||
|
| 集成环境 | Windows:Visual Studio 2019及以上;Linux/deepin:make； |
|
||||||
|
| Fortran 编译器 | Intel oneAPI Fortran(ifort/ifx); |
|
||||||
|
| 并行支持 | OpenMP(多核 CPU 加速);额外的GPU支持在商业版中提供，请访问https://em3d.cn |
|
||||||
|
|
||||||
|
### 1.2 用 VS2019 编译运行(推荐)
|
||||||
|
|
||||||
|
1. 安装 Visual Studio 2019(勾选"C++ 桌面开发"工作负载)与 Intel oneAPI(安装时勾选
|
||||||
|
"Intel Fortran Compiler 的 Visual Studio 集成")。
|
||||||
|
2. 双击打开工程文件 **`tem3dfdtd.sln`**(Intel Fortran 工程,对应
|
||||||
|
`tem3dfdtd.vfproj`)。工程已包含全部源文件,配置说明:
|
||||||
|
- `Debug | x64` / `Release | x64`:使用 **ifx** 编译器(oneAPI 默认),**推荐**;
|
||||||
|
- `Debug | Win32` / `Release | Win32`:使用 ifort 编译器。
|
||||||
|
3. 选择 **`Release | x64`** 配置,点击 **生成 → 生成解决方案**。
|
||||||
|
4. 运行前准备:程序在工作目录中查找 `input.dat` 及网格文件,因此请将
|
||||||
|
`input.dat`、`Complex_Terrain.dat/.stl`、`Complex_anomalous.dat/.stl` 放到
|
||||||
|
**exe 所在目录**(或通过"项目属性 → 调试 → 工作目录"指定)。
|
||||||
|
5. 直接运行 `tem3dfdtd.exe`,或按 F5 调试运行。
|
||||||
|
|
||||||
|
> **注意**:程序使用 OpenMP,运行时需要 Intel 的运行时库 `libiomp5md.dll`
|
||||||
|
> (位于 Intel oneAPI 安装目录 `bin/` 下)。若提示缺少该 DLL,可将它复制到
|
||||||
|
> exe 同目录(本目录已放置一份),或将其所在目录加入系统 PATH。
|
||||||
|
|
||||||
|
### 1.3 命令行编译(可选，不建议在Windows下使用)
|
||||||
|
|
||||||
|
在"Intel oneAPI 命令行"环境(oneAPI Command Prompt)下:
|
||||||
|
|
||||||
|
```bat
|
||||||
|
ifx -c -O2 -Qopenmp module\*.f90
|
||||||
|
ifx -c -O2 -Qopenmp -Qopenmp lib\*.f90 main.f90
|
||||||
|
ifx -O2 -Qopenmp *.obj -o tem3dfdtd.exe
|
||||||
|
```
|
||||||
|
|
||||||
|
(链接时需要 MSVC 的 link.exe 与 Windows SDK 库,建议直接使用 VS 的"开发人员命令提示符",
|
||||||
|
并在 PATH 中加入 Intel oneAPI 的 `bin` 目录。)
|
||||||
|
|
||||||
|
### 1.4 Linux 环境编译(makefile)
|
||||||
|
|
||||||
|
在Linux下编译需要编写 `makefile`文件，请根据操作系统的配置和要求自行编写makefile，并使用make makefile进行编译。
|
||||||
|
|
||||||
|
**说明与注意事项**
|
||||||
|
|
||||||
|
- 与 Windows 版的差异:Linux 下可执行文件名为自定义，如果没有指定则默认为 `main.exe`,工作目录中同样需要
|
||||||
|
`input.dat` 与 `Complex_Terrain.*`、`Complex_anomalous.*` 网格文件。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 2. 程序流程与模块结构
|
||||||
|
|
||||||
|
主程序执行顺序(`main.f90`):
|
||||||
|
|
||||||
|
```
|
||||||
|
GETDATA → CHECKPARAMETERS → MEMORY_USE_ESTIMATION → ALLOCATEMEMORY
|
||||||
|
→ GET_NON_UNIFORMGRID → ZERO → GET_COORDINATES
|
||||||
|
→ Get_Receiver_Gridlabel → RES_CONFIGURE → TIME_SERIOUS
|
||||||
|
→ Get_eps_r → (Logic_PML=1 时) Get_pml_parameters → Get_mstop
|
||||||
|
→ GetSourcePosition → Iteration → FREE_MEMORY
|
||||||
|
```
|
||||||
|
|
||||||
|
按功能划分为以下 6 个模块:
|
||||||
|
|
||||||
|
### 模块 1:程序控制与参数输入
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ------------------------------- | -------------------------------------------------------------------------- |
|
||||||
|
| `main.f90` | 主程序,控制整个计算流程 |
|
||||||
|
| `lib/getdata.f90` | 读取参数控制文件 `input.dat`;检测地形/异常体网格文件的存在性并选择读取格式 |
|
||||||
|
| `lib/checkparameters.f90` | 将读入的计算参数回显到 `logfile.log`,便于人工检查 |
|
||||||
|
| `lib/memory-use-estimation.f90` | 根据网格规模估算所需内存并打印提示 |
|
||||||
|
|
||||||
|
### 模块 2:Yee 网格生成
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ----------------------------- | -------------------------------------------------------------------------- |
|
||||||
|
| `lib/allocatememory.f90` | 根据输入参数动态分配所有全局数组(含 CPML 记忆变量数组,仅 `Logic_PML=1` 时) |
|
||||||
|
| `lib/get_non_uniformgrid.f90` | 生成 x/y/z 三方向的非均匀网格(核心区均匀 + 外围按 1.3 倍递增扩展) |
|
||||||
|
| `lib/get_coordinates.f90` | 计算各网格节点(含 Yee 节点)的坐标,坐标以源中心为原点 |
|
||||||
|
| `lib/zero.f90` | 将所有电磁场数组初始化为 0;den\_\* 置 1、c_h_zz 置 0、CPML 记忆变量清零 |
|
||||||
|
|
||||||
|
### 模块 3:电性参数构建
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ----------------------------------- | ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
||||||
|
| `lib/resistivity-configuration.f90` | 构建模型电导率:无地形时按背景电导率 + 块状异常体赋值;有地形时调用共形网格;最后将电导率分配到 x/y/z 三个方向的棱边并写出 `conductivity.vtk` |
|
||||||
|
| `lib/Terrain_conformal.f90` | **地形共形网格**:从 `Complex_Terrain.dat/.stl` 读入地形三角网格,用射线–三角形求交(Möller–Trumbore 算法)沿 x/y/z 三个方向填充每个棱边的等效电导率,处理起伏地形与空气/地层的分界 |
|
||||||
|
| `lib/Anomalous_conformal.f90` | **异常体共形网格**:从 `Complex_anomalous.dat/.stl` 读入异常体表面网格,采用同样的射线求交方法将异常体电导率(`tao_abnormal`)填充到棱边 |
|
||||||
|
|
||||||
|
> **说明**:存在地形文件时,地形分支中空气电导率取 `AIR_CONDUCTIVITY = 1e-6 S/m`,
|
||||||
|
> 地层电导率取**块状异常体参数中的第 2 个电导率** `TAR_CONDUCTIVITY(2)`(见 input.dat
|
||||||
|
> 第 9 行起的第二组数据);此时 input.dat 中块状异常体本身不直接生效,而是以 `Complex_anomalous`
|
||||||
|
> 网格文件描述异常体、以 `tao_abnormal` 赋予其电导率。
|
||||||
|
|
||||||
|
### 模块 4:激励源与时间序列
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ----------------------------- | --------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `lib/time-serious.f90` | 生成整个计算的时间序列(含源波形),并根据 `MAX_OFF_TIME` 校正迭代步数 `NSTOP`;写出 `CTIME_TIXING_UPCOS.DAT` |
|
||||||
|
| `lib/tixing-source-upcos.f90` | 源波形:**梯形 + 余弦上升**的关断电流波形(常用,`SOURCE_TYPE = 'TIXING_UPCOS'`) |
|
||||||
|
| `lib/tixing-source.f90` | 纯梯形波形源(`TIXING_RAMP`) |
|
||||||
|
| `lib/sin-source.f90` | 半正弦波形源(`HALF_SIN`) |
|
||||||
|
| `lib/triangle-source.f90` | 三角波形源(`TRIANGLE`) |
|
||||||
|
| `lib/get-eps-r.f90` | 计算虚介电常数 `EPS_R = 3·(Δt/Δx)²/μ₀` 及迭代系数,保证显式 FDTD 稳定 |
|
||||||
|
| `lib/get-mstop.f90` | 将总迭代过程切成若干"计算分段",每段独立分配缓存,便于内存管理 |
|
||||||
|
|
||||||
|
### 模块 5:FDTD 电磁场计算
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| --------------------------- | ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `lib/GetSourcePosition.f90` | 确定回线源在网格中的位置,标记源所在的棱边(电流赋值区域) |
|
||||||
|
| `lib/Iteration.f90` | **核心迭代子程序**:按分段循环推进时间步,更新 Ex/Ey/Ez、Hz 场,按源波形加载电流;在每个分段末尾对各接收点计算 Hz(由环绕该点的 8 个节点 Ex、Ey 差商加权得到)并写入结果文件。边界条件按 `Logic_PML` 开关切换:`1` 时在每个场更新中附加 CPML 记忆变量修正,`0` 时恢复原始 Dirichlet(零场)边界 |
|
||||||
|
| `module/pml-parameters.f90` | **CPML 吸收边界模块**(Roden–Gedney 卷积 PML):σ/α/κ 多项式缩放参数(ma=3、mb=1)、26 个记忆变量 ψ 数组、b*e/c_e 卷积系数数组与 den*\*(=1/κ)缩放数组的声明 |
|
||||||
|
| `lib/get-pml-paramters.f90` | 构建 x/y/z 六个边界面的 σ/α/κ 分布(多项式从边界向内衰减,E/H 交错采样)及 den\_\* 缩放数组;仅在 `Logic_PML=1` 时由 main 调用 |
|
||||||
|
|
||||||
|
### 模块 6:输出
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| --------------------------------------------- | --------------------------------------------------- |
|
||||||
|
| `lib/Iteration.f90`(输出部分) | 写出各接收点响应文件 `dBzdt_1.txt`、`dBzdt_2.txt` … |
|
||||||
|
| `lib/resistivity-configuration.f90`(输出部分) | 写出模型电导率分布 `conductivity.vtk` |
|
||||||
|
| `lib/time-serious.f90`(输出部分) | 写出时间序列 `CTIME_TIXING_UPCOS.DAT` |
|
||||||
|
| `lib/free-memory.f90` | 计算结束后释放所有动态内存 |
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 3. 输入文件格式
|
||||||
|
|
||||||
|
程序运行需要以下文件(全部放在 exe 的工作目录中):
|
||||||
|
|
||||||
|
| 文件 | 是否必须 | 说明 |
|
||||||
|
| --------------------------------- | -------------- | ----------------------------------------- |
|
||||||
|
| `input.dat` | **必须** | 计算参数控制文件 |
|
||||||
|
| `Complex_anomalous.dat` 或 `.stl` | 可选(任选其一) | 异常体表面三角网格;缺省时模型视为均匀背景 |
|
||||||
|
| `Complex_Terrain.dat` 或 `.stl` | 可选(任选其一) | 地形表面三角网格;缺省时不考虑起伏地形 |
|
||||||
|
|
||||||
|
### 3.1 参数控制文件 input.dat
|
||||||
|
|
||||||
|
**自由格式读取**,按行顺序读取;数值后可加 `!` 注释(可整行注释或行尾注释)。
|
||||||
|
下面以本目录自带的 `input.dat` 为例逐行说明:
|
||||||
|
|
||||||
|
| 行号 | 示例 | 含义 |
|
||||||
|
| ----- | -------------- | ----------------------------------------------------------------------------------------- |
|
||||||
|
| 1 | `1` | 计算模式 `CAL_TYPE`:`1` = 地面 TEM,`2` = 半航空(SATEM) |
|
||||||
|
| 2 | `500` | 发射回线边长 `SourceLength`(m) |
|
||||||
|
| 3 | `101,101,100` | x、y、z 三个方向的网格数 `NX,NY,NZ` |
|
||||||
|
| 4 | `1` | **边界条件开关 `Logic_PML`**:`1` = CPML 吸收边界,`0` = 原始非均匀网格 Dirichlet(零场)边界 |
|
||||||
|
| 5 | `10,10,10` | **PML 层数 `PML_X,PML_Y,PML_Z`**(x、y、z 方向,仅开关=1 时有效;建议 ≥ 5 层) |
|
||||||
|
| 6 | `25,25` | x 方向:核心均匀网格起始/结束区间编号 `UniGridNumX1,UniGridNumX2` |
|
||||||
|
| 7 | `25,25` | y 方向:核心均匀网格区间编号 `UniGridNumY1,UniGridNumY2` |
|
||||||
|
| 8 | `20,30` | z 方向:核心均匀网格区间编号 `UniGridNumZ1,UniGridNumZ2` |
|
||||||
|
| 9 | `20` | 核心区均匀网格尺寸 `GridSize`(m) |
|
||||||
|
| 10 | `0.01` | 背景介质电导率 `BACKGROUND_CONDUCTIVITY`(S/m) |
|
||||||
|
| 11 | `2` | 块状异常体数量 `TEMP_II`(无地形时按棱柱体填充;设 0 表示均匀模型) |
|
||||||
|
| 12–15 | 见下 | **第 1 个块状异常体参数**,共 4 行 |
|
||||||
|
| 16–19 | 见下 | **第 2 个块状异常体参数**,共 4 行 |
|
||||||
|
| 20 | `4000000` | 最大迭代次数 `NSTOP` |
|
||||||
|
| 21 | `90.101` | 最大计算时间 `MAX_OFF_TIME`(**单位 ms**) |
|
||||||
|
| 22 | `1e-6,1e-9` | 上升沿持续时间与时间步 `RAISETIME, RAISESTEP`(s) |
|
||||||
|
| 23 | `60000e-6` | 平台阶段持续时间 `WAVE`(s,即 60 ms) |
|
||||||
|
| 24 | `1e-7,1e-9` | 下降沿持续时间与时间步 `RAMP, RAMPSTEP`(s) |
|
||||||
|
| 25 | `1e-9` | 初始时间步 `TIMESTEP`(s) |
|
||||||
|
| 26 | `1` | 发射电流幅度 `AMP`(A) |
|
||||||
|
| 27 | `4.0` | 异常体电导率 `tao_abnormal`(S/m,配合 `Complex_anomalous` 文件使用) |
|
||||||
|
| 28 | `TIXING_UPCOS` | 源类型 `SOURCE_TYPE`:`TIXING_UPCOS` / `TIXING_RAMP` / `HALF_SIN` / `TRIANGLE` |
|
||||||
|
| 29 | `1` | 接收点数 `Point_Num` |
|
||||||
|
| 30 | `1` | 第 1 个接收点的编号 |
|
||||||
|
| 31 | `0,0,0` | 第 1 个接收点坐标(相对源中心,m) |
|
||||||
|
| 32–33 | `2` / `x,y,z` | (如有多余测点)第 2 个接收点(编号 + 坐标) |
|
||||||
|
|
||||||
|
每个**块状异常体**由连续的 4 行组成:
|
||||||
|
|
||||||
|
| 行 | 示例 | 含义 |
|
||||||
|
| --- | ------- | ----------------------------------- |
|
||||||
|
| ① | `1,101` | x 方向网格起止编号 `TAR_X1, TAR_X2` |
|
||||||
|
| ② | `1,101` | y 方向网格起止编号 `TAR_Y1, TAR_Y2` |
|
||||||
|
| ③ | `1,50` | z 方向网格起止编号 `TAR_Z1, TAR_Z2` |
|
||||||
|
| ④ | `1e-5` | 该块电导率 `TAR_CONDUCTIVITY`(S/m) |
|
||||||
|
|
||||||
|
> 本算例用两块"异常体"拼出半空间:第 1 块 z=1~50(空气,1e-5 S/m)+ 第 2 块
|
||||||
|
> z=51~100(地层,1e-2 S/m)。接收点个数 `Point_Num` 后按每个测点 2 行排列
|
||||||
|
> (编号 + 相对源中心坐标)。
|
||||||
|
|
||||||
|
### 3.2 地形网格文件 Complex_Terrain
|
||||||
|
|
||||||
|
地形由**表面三角网格**描述,支持两种格式,文件夹中**只保留其中一个**;
|
||||||
|
若两个同时存在,程序以 `.dat` 为优先并提示 `.stl` 被忽略。
|
||||||
|
|
||||||
|
**格式 1:`Complex_Terrain.dat`(原始文本格式)**
|
||||||
|
|
||||||
|
```
|
||||||
|
Number of Nodes and Elements:
|
||||||
|
10039 ← 节点总数 n_point
|
||||||
|
5426 ← 三角形单元总数 n_face
|
||||||
|
Nodes Coordinates:
|
||||||
|
1 -21000.0 -21000.0 224.08 ← n_point 行:节点编号, X, Y, Z
|
||||||
|
2 -21000.0 -20001.8 224.08
|
||||||
|
... (行中可带 ! 注释)
|
||||||
|
END Nodes Coordinates
|
||||||
|
NormalAreaElements:
|
||||||
|
1 1 2 10039 ← n_face 行:单元编号, 节点1, 节点2, 节点3
|
||||||
|
...
|
||||||
|
END NormalAreaElements
|
||||||
|
```
|
||||||
|
|
||||||
|
| 行 | 内容 |
|
||||||
|
| ------------------- | -------------------------------------------------------------------------- |
|
||||||
|
| 第 1 行 | 标题行,可任意 |
|
||||||
|
| 第 2 行 | 节点总数 `n_point` |
|
||||||
|
| 第 3 行 | 三角形单元总数 `n_face` |
|
||||||
|
| 第 4 行 | 标题行,可任意 |
|
||||||
|
| 第 5 ~ 4+n_point 行 | 每个节点一行:`节点编号, X, Y, Z` |
|
||||||
|
| 其后 1 行 | 区段结束标记 `END Nodes Coordinates`(程序按标题行跳过) |
|
||||||
|
| 其后 1 行 | 面区标题 `NormalAreaElements:`(程序按标题行跳过) |
|
||||||
|
| 其后 n_face 行 | 每个单元一行:`单元编号, 节点1编号, 节点2编号, 节点3编号`(节点按逆时针绕向) |
|
||||||
|
| 末尾 1 行 | 结束标记 `END NormalAreaElements`(程序不读取) |
|
||||||
|
|
||||||
|
> 节点区后的两个区段标记行(GiD 导出)与老版本格式的"2 行标题行"位置一致,
|
||||||
|
> 程序一律按标题行跳过,因此两种写法均兼容。
|
||||||
|
|
||||||
|
**格式 2:`Complex_Terrain.stl`(ASCII STL 格式)**
|
||||||
|
|
||||||
|
STL文件格式是一种用于描述三维物体表面几何形状的文件格式，广泛应用于快速成型、3D打印和计算机辅助制造（CAM）领域。
|
||||||
|
STL文件将物体表面细分为一系列小三角形，每个三角形由一个法线向量和三个顶点坐标来定义。
|
||||||
|
STL文件有两种格式：文本格式（ASCII）和二进制格式。
|
||||||
|
|
||||||
|
标准 ASCII STL,单元关键字为 `facet`/`endfacet`,
|
||||||
|
节点用 `vertex` 行表示，例如下面的格式:
|
||||||
|
|
||||||
|
```
|
||||||
|
facet normal nx ny nz
|
||||||
|
outer loop
|
||||||
|
vertex v1x v1y v1z
|
||||||
|
vertex v2x v2y v2z
|
||||||
|
vertex v3x v3y v3z
|
||||||
|
endloop
|
||||||
|
endfacet
|
||||||
|
```
|
||||||
|
|
||||||
|
用户可以使用常用的CAD软件(如AutoCAD Blender FreeCAD MeshLab SketchUp Gid Maya、3ds Max等)创建和编辑STL文件。
|
||||||
|
|
||||||
|
程序读取时自动处理两点(无需用户操作):
|
||||||
|
|
||||||
|
1. **顶点去重合并**:STL 中每个面独立写顶点,重复顶点(容差 1e-5)自动合并为唯一节点表;
|
||||||
|
2. **方向校正**:比较每个面的叉积方向与文件中的 `facet normal`,若相反则交换该面第 2、3
|
||||||
|
个节点,保证法线方向约定与 `.dat` 格式一致。
|
||||||
|
|
||||||
|
### 3.3 异常体网格文件 Complex_anomalous
|
||||||
|
|
||||||
|
与地形文件完全相同:`.dat` / `.stl` 两种格式任选其一(同时存在时 `.dat` 优先),
|
||||||
|
读取方式、去重与方向校正规则均一致;`.dat` 的区段标记行(`END Nodes Coordinates`、
|
||||||
|
`NormalAreaElements:`、`END NormalAreaElements`)与地形文件一致,同样与程序兼容。
|
||||||
|
|
||||||
|
本目录的 `Complex_anomalous.dat` / `.stl` 描述的是**起伏地形下的一个复杂三维异常体**
|
||||||
|
(2663 个节点、5322 个三角形单元;范围 x ≈ -302 ~ 248 m、y ≈ -197 ~ 176 m、
|
||||||
|
z ≈ 51 ~ 285 m,嵌入地形面附近)。其电导率由 `input.dat` 第 27 行
|
||||||
|
`tao_abnormal = 4.0` 指定(低阻体)。
|
||||||
|
|
||||||
|
> 网格生成建议:用专业前处理软件建立地形面/异常体表面三角形网格后导出,
|
||||||
|
> 或选择"导出 → STL"生成 ASCII STL 文件。
|
||||||
|
|
||||||
|
### 3.4 建模注意事项
|
||||||
|
|
||||||
|
1. **x、y 方向网格数建议设为奇数**,使模型中心(源中心)恰好落在 Yee 网格面中心;
|
||||||
|
由于磁感应强度 B 定义于网格面中心,`dBz/dt` 测点应**优先布置在 Yee 网格面中心位置**,
|
||||||
|
以保证测点响应与场定义的对应关系。
|
||||||
|
2. **发射回线边长应为网格尺寸的奇数倍**,使回线中心落在 Yee 网格棱边位置,保证
|
||||||
|
源电流棱边与网格棱边严格对位。
|
||||||
|
3. **采用 Dirichlet 边界(`Logic_PML=0`)时**,网格加密区域(核心均匀区)应**覆盖发射源、
|
||||||
|
接收测点与异常体范围**,保证上述区域的计算精度,外围大网格用于扩展计算域、减弱
|
||||||
|
零场边界对结果的影响。
|
||||||
|
4. **发射源的 z 方向位置默认在 `NZS+1` 处**(`NZS=NZ/2`,即网格中部),由程序自动
|
||||||
|
确定,无需在输入文件中指定。
|
||||||
|
5. **全航空(TEM)模拟**:本程序同样支持全航空场景——将上半区设置为空气,并在
|
||||||
|
源平面以下再多布置若干层空气网格,即可保证发射源与接收测点均处于空气中。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 4. CPML 吸收边界
|
||||||
|
|
||||||
|
本程序在 `Logic_PML=1` 时采用 **CPML(卷积完美匹配层, Roden & Gedney 2000)**
|
||||||
|
作为吸收边界,在计算区域外围吸收向外传播的电磁场,模拟"无限大地层",
|
||||||
|
避免边界反射污染晚时响应。
|
||||||
|
|
||||||
|
### 4.1 实现位置
|
||||||
|
|
||||||
|
| 文件 | 作用 |
|
||||||
|
| ------------------------------------------ | ------------------------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `module/pml-parameters.f90` | 参数声明:σ/α/κ 最大值、PML 层数、26 个记忆变量 ψ 数组、卷积系数 `b_e/c_e`、缩放数组 `den_*(=1/κ)`、Hz 的 z 向递归系数 `c_h_zz` |
|
||||||
|
| `lib/get-pml-paramters.f90` | 构建 x/y/z 六个边界面内 σ/α/κ 的空间分布(多项式由内向外递增,E/H 交错采样)、`den_*` 缩放数组与卷积系数;仅在 `Logic_PML=1` 时调用 |
|
||||||
|
| `lib/Iteration.f90`(子程序 Iteration_cpml) | 场更新主循环内**内嵌**记忆变量 ψ 的递推与修正项(Ex/Ey/Ez 与 Hx/Hy 共 24 个 ψ);Hz 的 z 方向采用基于 `c_h_zz` 的递归卷积(非 ψ) |
|
||||||
|
|
||||||
|
### 4.2 参数与含义
|
||||||
|
|
||||||
|
| 参数 | 默认值 | 含义 |
|
||||||
|
| ------------------- | ----------------------------- | ------------------------------------------ |
|
||||||
|
| `PML_X,PML_Y,PML_Z` | input.dat 第 5 行(建议 ≥5 层) | 三个方向的 PML 层数 |
|
||||||
|
| `ma` | 3 | σ 沿厚度方向的多项式阶数(由内向外幂律增长) |
|
||||||
|
| `mb` | 1 | α 沿厚度方向的多项式阶数 |
|
||||||
|
| `sig_max` | 1.0e2 | PML 外侧最大电导率(决定吸收强度) |
|
||||||
|
| `alpha_max` | **1.0e-1** | 复频移因子最大值 |
|
||||||
|
| `kappa_max` | 1.0 | 坐标拉伸系数最大值(1 表示不拉伸) |
|
||||||
|
|
||||||
|
σ、α 沿厚度的空间分布(以 x 方向下层为例,其余边界对称):
|
||||||
|
|
||||||
|
```
|
||||||
|
σ(i) = sig_max · ((L−i)/(L−1))^ma
|
||||||
|
α(i) = alpha_max · ((i−1)/(L−1))^mb
|
||||||
|
```
|
||||||
|
|
||||||
|
E 场采样在整层、H 场采样在半层(交错),因此 H 方向的 σ/α/κ 按半层偏移
|
||||||
|
(`i−0.5`)构造,与 E 方向错开。
|
||||||
|
|
||||||
|
### 4.3 使用说明
|
||||||
|
|
||||||
|
1. `input.dat` 第 4 行 `Logic_PML=1`,第 5 行给出三个方向的 PML 层数
|
||||||
|
(如 `15,15,15`);PML 层内网格尺寸应与核心区一致(保持均匀)。
|
||||||
|
2. **α_max 取 0.1 是关键调参**:α(复频移因子)负责吸收低频扩散场。
|
||||||
|
若取值过小(如 0.01),晚时段的低频反射场不能及时衰减,会在边界往返
|
||||||
|
叠加,导致关断后约 10⁻⁵ s 量级出现指数发散(结果为 NaN)——这是
|
||||||
|
CPML 版最常见的不稳定来源,务必保持 α_max=1.0e-1。
|
||||||
|
3. 切换回原始边界:第 4 行改为 `0` 即可,行为与旧版本完全一致,无需重新编译。
|
||||||
|
|
||||||
|
### 4.4 与 Dirichlet 边界的对比
|
||||||
|
|
||||||
|
| | CPML(`Logic_PML=1`) | Dirichlet(`Logic_PML=0`) |
|
||||||
|
| -------- | --------------------------------- | ------------------------ |
|
||||||
|
| 边界处理 | 吸收层,模拟无界空间 | 边界处场直接为零 |
|
||||||
|
| 晚时精度 | 吸收反射,衰减曲线平直 | 边界反射可能污染晚时响应 |
|
||||||
|
| 计算量 | 每步多 24 个记忆变量递推(约 +30%) | 无额外开销 |
|
||||||
|
| 网格要求 | PML 层内需均匀网格 | 无特殊要求 |
|
||||||
|
| 稳定性 | 调参正确时稳定 | 稳定 |
|
||||||
|
|
||||||
|
> **一致性验证**:均匀半空间算例(81×81×80 网格、PML 15 层、1 ms 平台、
|
||||||
|
> 关断后对比)中,CPML 与 Dirichlet 两种边界在关断后早期(场尚未到达边界
|
||||||
|
> 时)的响应曲线一致,差异 <0.2%(源自两版循环次序不同导致的浮点舍入累积,
|
||||||
|
> 非物理差异),证明 CPML 实现与主迭代等价、正确。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 5. 输出文件说明
|
||||||
|
|
||||||
|
| 文件 | 内容 |
|
||||||
|
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `dBzdt_1.txt`, `dBzdt_2.txt`, … | 每个接收点一个文件。文件头 2 行为说明(测点编号、测点坐标),其后每行 3 列:迭代步数、关断后时间(s)、该时刻磁场响应值 |
|
||||||
|
| `CTIME_TIXING_UPCOS.DAT` | 计算时间序列,每行 3 列:累计时间、时间步长、源电流幅值(波形) |
|
||||||
|
| `conductivity.vtk` | 模型电导率分布(规则网格 VTK 格式),可用 ParaView/Tecplot 等打开,检查模型是否正确构建 |
|
||||||
|
| `logfile.log` | 运行日志:参数回显、格式选择提示、运行错误等 |
|
||||||
|
| `fort.5141` | 共形网格计算过程的调试输出 |
|
||||||
|
| `TEM_decay_curve.png` | 衰减曲线图(由第 [6 节](#6-衰减曲线快速成图tem_decay_plotpy)的 `TEM_decay_plot.py` 生成) |
|
||||||
|
|
||||||
|
运行结束时屏幕会打印各分段的迭代进度、总计算耗时;正常完成后 `logfile.log`
|
||||||
|
末尾出现 `Computation finished!`。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 6. 衰减曲线快速成图(TEM_decay_plot.py)
|
||||||
|
|
||||||
|
程序目录下的 `TEM_decay_plot.py` 用于将正演结果 `dBzdt_*.txt` 快速绘制为
|
||||||
|
**衰减电压曲线图**(双对数坐标)。
|
||||||
|
|
||||||
|
### 6.1 使用方式
|
||||||
|
|
||||||
|
```bash
|
||||||
|
# 需要 numpy 与 matplotlib
|
||||||
|
pip install numpy matplotlib
|
||||||
|
|
||||||
|
# 在计算输出文件(dBzdt_*.txt)所在目录运行
|
||||||
|
python TEM_decay_plot.py
|
||||||
|
```
|
||||||
|
|
||||||
|
脚本自动搜索脚本同目录下所有 `dBzdt_*.txt` 文件,每个接收点画一条曲线,
|
||||||
|
测点编号与坐标自动标注在图例中;默认输出高分辨率图片 **`TEM_decay_curve.png`**
|
||||||
|
(dpi=600)并弹窗显示。
|
||||||
|
|
||||||
|
### 6.2 主要可调参数(脚本顶部"User parameters"区)
|
||||||
|
|
||||||
|
| 参数 | 默认值 | 说明 |
|
||||||
|
| ------------------- | --------------------- | ---------------------------------------------------------------- |
|
||||||
|
| `file_pattern` | `dBzdt_*.txt` | 匹配的结果文件模式 |
|
||||||
|
| `xmin, xmax` | `1e-6, 1e-1` | 横轴(时间, s)显示范围 |
|
||||||
|
| `ymin, ymax` | `None, None` | 纵轴(响应)显示范围,`None` 表示自动 |
|
||||||
|
| `use_abs` | `True` | `True` 画 \|dBz/dt\|(正响应),`False` 画带符号值;纵轴标签随之切换 |
|
||||||
|
| `savefig` | `True` | 是否保存图片 |
|
||||||
|
| `save_name` | `TEM_decay_curve.png` | 保存文件名 |
|
||||||
|
| `dpi` | `600` | 图片分辨率 |
|
||||||
|
| `label_fontsize` 等 | 18/15/15 | 标签、刻度、图例字号 |
|
||||||
|
| `linewidth` | `2.5` | 曲线线宽 |
|
||||||
|
|
||||||
|
超过 8 条曲线时自动改用顺序蓝色渐变配色,不会循环重复颜色。
|
||||||
|
|
||||||
|
> 曲线取值规则:仅绘制 `时间 > 0` 且响应值 > 0 的点(双对数坐标下负值/零值无法显示)。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 7. 快速上手(本目录自带算例)
|
||||||
|
|
||||||
|
本目录自带算例:**起伏地形下的复杂三维异常体**(模型 101×101×100 网格、网格尺寸
|
||||||
|
20 m、源边长 500 m、背景 0.01 S/m、异常体为低阻体 4.0 S/m、1 个测点(源中心正
|
||||||
|
下方);异常体网格 2663 节点/5322 单元,地形网格 10039 节点/5426 单元)。
|
||||||
|
|
||||||
|
运行步骤:
|
||||||
|
|
||||||
|
1. 确认目录下存在:`input.dat`、`Complex_anomalous.dat`(及 `.stl`,描述同一异常体)、
|
||||||
|
`Complex_Terrain.dat`(及 `.stl`,描述同一地形)。两类文件 `.dat` 与 `.stl`
|
||||||
|
同时存在时,程序以 `.dat` 优先并给出提示。
|
||||||
|
2. VS2019 打开 `tem3dfdtd.sln` → 选择 `Release | x64` → 生成。
|
||||||
|
3. 将生成的 exe 复制到本目录(或把输入文件放入 exe 目录)后运行。
|
||||||
|
4. 观察屏幕输出,正常流程为:
|
||||||
|
```
|
||||||
|
Both Complex_anomalous.dat and Complex_anomalous.stl exist! The .dat format takes precedence, the .stl file is ignored.
|
||||||
|
Both Complex_Terrain.dat and Complex_Terrain.stl exist! The .dat format takes precedence, the .stl file is ignored.
|
||||||
|
The number of grids in the core area is odd
|
||||||
|
At least 320M memory is needed!
|
||||||
|
...
|
||||||
|
Conformal mesh of terrain is complete!
|
||||||
|
Ray tracing computation of terrain is complete!
|
||||||
|
Conformal mesh of terrain is finished
|
||||||
|
Start conformal processing of the anomalous body
|
||||||
|
...
|
||||||
|
Now computing fraction: 1
|
||||||
|
50 steps have just finished
|
||||||
|
...
|
||||||
|
```
|
||||||
|
5. 计算完成后检查输出文件 `dBzdt_1.txt` 、`conductivity.vtk`。
|
||||||
|
6. (可选)运行 `python TEM_decay_plot.py` 生成衰减曲线图 `TEM_decay_curve.png`
|
||||||
|
(见第 [6 节](#6-衰减曲线快速成图tem_decay_plotpy))。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 8. 常见问题
|
||||||
|
|
||||||
|
**Q1:运行提示 `libiomp5md.dll` 找不到**
|
||||||
|
OpenMP 运行时库缺失。将 Intel oneAPI 安装目录 `bin/libiomp5md.dll` 复制到 exe 旁
|
||||||
|
(或加入 PATH)。
|
||||||
|
|
||||||
|
**Q2:提示 `Both Complex_Terrain.dat and Complex_Terrain.stl exist! ...`**
|
||||||
|
两个格式文件都在。程序以 `.dat` 优先。若想用 STL,请将 `.dat` 文件移走或改名。
|
||||||
|
|
||||||
|
**Q3:计算很慢 / 内存不足**
|
||||||
|
减少 `NX,NY,NZ` 或增大 `GridSize`;控制 `NSTOP`;`MAX_OFF_TIME` 决定实际迭代步数,
|
||||||
|
程序会以两者中的较小者为准。运行前会打印所需内存估算。
|
||||||
|
|
||||||
|
**Q4:如何只算均匀半空间(无异常体、无地形)?**
|
||||||
|
半空间模型应包含"空气 + 大地"两部分。将 `Complex_anomalous.*` 与
|
||||||
|
`Complex_Terrain.*` 移走,并在 `input.dat` 中设 `TEMP_II = 2`:第 1 块设为上半部分
|
||||||
|
(空气,电导率如 `1e-5`),第 2 块设为下半部分(大地,电导率如 `0.01`),即构成
|
||||||
|
均匀半空间。注意:**`TEMP_II = 0` 时整个模型只填充背景电导率(全空间均匀介质,
|
||||||
|
不含空气层)**。
|
||||||
|
|
||||||
|
**Q5:接收点坐标怎么写?**
|
||||||
|
坐标是**相对回线源中心**的局部坐标(单位 m),正负方向与坐标轴一致。
|
||||||
|
|
||||||
|
**Q6:CPML 吸收边界与原始 Dirichlet 边界怎么选?**
|
||||||
|
`input.dat` 第 4 行开关 `Logic_PML`:`1` 启用 CPML 吸收边界(第 5 行
|
||||||
|
`10,10,10` 为三个方向的 PML 层数,可自行调整),能有效吸收边界反射,晚时
|
||||||
|
(大偏移/晚时间)衰减曲线更平直;`0` 使用原始非均匀网格 Dirichlet(零场)
|
||||||
|
边界。切换开关无需重新编译。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 9. 参考文献
|
||||||
|
|
||||||
|
[1] 孙怀凤, 李貅, 李术才, 等. 考虑关断时间的回线源激发TEM三维时域有限差分正演[J]. 地球物理学报, 2013, 56(3): 1049-1064.
|
||||||
|
|
||||||
|
[2] 柳尚斌, 李雪峰, 蓝日彦, 等. 瞬变电磁低频近似Maxwell方程的CPML吸收边界及施加方法[J]. 地球物理学报, 2022, 65(4): 1472-1481.
|
||||||
|
|
||||||
|
[3] Li X, Zhao Q, Hu S, et al. Introducing complex geometries to Yee cells in FDTD for transient electromagnetic forward modeling[J]. Geophysics, 2025, 91(2): F1-F12.
|
||||||
|
|
||||||
|
## 10.贡献人员
|
||||||
|
|
||||||
|
整个项目是在山东大学孙怀凤教授的领导下开展的，主要贡献人员在代码注释、参考文献中已经写明。如需联系请访问 https://faculty.sdu.edu.cn/sun/
|
||||||
|
|
||||||
|
除了本开源代码库之外，我们还提供支持GPU高效计算的商业版本软件软件或专用求解器，如果需要，请访问 https://em3d.cn 获取更多信息。
|
||||||
|
|
||||||
|
## 11.声明
|
||||||
|
|
||||||
|
- 如需联系孙怀凤教授，请使用sunhuaifeng@email.sdu.edu.cn，不要继续使用代码中标注的gmail邮箱了，因为gmail邮箱经常会出现收发问题，谢谢。
|
||||||
|
- 代码中列出的sunhuaifeng.com网站域名已经注销，不再属于课题组，也已经永久不再维护，后期将会修正代码，请勿访问
|
||||||
|
- 代码中列出的tdem.org由于精力原因暂时无法维护
|
||||||
|
- 所有代码均通过git仓库进行维护和发布https://git.em3d.cn/
|
||||||
|
|||||||
+14
-11
@@ -1,9 +1,9 @@
|
|||||||
|
|
||||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||||
# Visual Studio 14
|
# Visual Studio Version 16
|
||||||
VisualStudioVersion = 14.0.25420.1
|
VisualStudioVersion = 16.0.35826.135
|
||||||
MinimumVisualStudioVersion = 10.0.40219.1
|
MinimumVisualStudioVersion = 10.0.40219.1
|
||||||
Project("{6989167D-11E4-40FE-8C1A-2192A86A7E90}") = "tem3dfdtd", "tem3dfdtd\tem3dfdtd.vfproj", "{94A7F592-24DB-4139-B709-699C1B4A8B1A}"
|
Project("{6989167D-11E4-40FE-8C1A-2192A86A7E90}") = "tem3dfdtd", "tem3dfdtd\tem3dfdtd.vfproj", "{3DBB6368-535A-40E7-9413-DBCE77919799}"
|
||||||
EndProject
|
EndProject
|
||||||
Global
|
Global
|
||||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
@@ -13,16 +13,19 @@ Global
|
|||||||
Release|x86 = Release|x86
|
Release|x86 = Release|x86
|
||||||
EndGlobalSection
|
EndGlobalSection
|
||||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Debug|x64.ActiveCfg = Debug|x64
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Debug|x64.ActiveCfg = Debug|x64
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Debug|x64.Build.0 = Debug|x64
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Debug|x64.Build.0 = Debug|x64
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Debug|x86.ActiveCfg = Debug|Win32
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Debug|x86.ActiveCfg = Debug|Win32
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Debug|x86.Build.0 = Debug|Win32
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Debug|x86.Build.0 = Debug|Win32
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Release|x64.ActiveCfg = Release|x64
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Release|x64.ActiveCfg = Release|x64
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Release|x64.Build.0 = Release|x64
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Release|x64.Build.0 = Release|x64
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Release|x86.ActiveCfg = Release|Win32
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Release|x86.ActiveCfg = Release|Win32
|
||||||
{94A7F592-24DB-4139-B709-699C1B4A8B1A}.Release|x86.Build.0 = Release|Win32
|
{3DBB6368-535A-40E7-9413-DBCE77919799}.Release|x86.Build.0 = Release|Win32
|
||||||
EndGlobalSection
|
EndGlobalSection
|
||||||
GlobalSection(SolutionProperties) = preSolution
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
HideSolutionNode = FALSE
|
HideSolutionNode = FALSE
|
||||||
EndGlobalSection
|
EndGlobalSection
|
||||||
|
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||||
|
SolutionGuid = {7B2BB207-05E9-4A6D-AE34-B78A5A03B2D7}
|
||||||
|
EndGlobalSection
|
||||||
EndGlobal
|
EndGlobal
|
||||||
|
|||||||
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
+550
@@ -1,2 +1,552 @@
|
|||||||
!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
|
!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)
|
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
||||||
|
|
||||||
|
# 三维瞬变电磁 FDTD 正演程序 (tem3dfdtd-cmm)
|
||||||
|
|
||||||
|
本程序基于 **FDTD（时域有限差分）方法**对三维瞬变电磁（TEM）响应进行正演模拟。核心算法采用 Wang–Hohmann (1993)改进的 Du Fort–Frankel 方法：在 Yee 网格上对磁场 H 迭代求解，通过引入**虚介电常数**保证显式迭代的时间稳定性；采用**共形网格技术**处理起伏地形与任意形状异常体（以表面三角网格描述）；支持矩形回线源，可计算地面 TEM 、半航空（SATEM）全航空（ATEM）等模式。
|
||||||
|
|
||||||
|
程序的整体框架与三大核心技术分别源于以下工作：
|
||||||
|
|
||||||
|
- **整体框架与核心迭代算法**（考虑关断时间的回线源激发 TEM 三维时域有限差分正演，Wang–Hohmann 改进的 Du Fort–Frankel 方法、虚介电常数、含关断时间的源波形）[1]；
|
||||||
|
- **CPML 吸收边界**（瞬变电磁低频近似 Maxwell 方程的 CPML 吸收边界及施加方法）[2]；
|
||||||
|
- **共形网格技术**（Introducing complex geometries to Yee cells in FDTD for transient electromagnetic forward modeling）[3]。
|
||||||
|
|
||||||
|
各方法的具体原理、公式推导与实现细节详见文献 [1]–[3]，本文档不做方法层面的展开介绍。
|
||||||
|
|
||||||
|
代码结构：`main.f90`（主程序）、`module/`（全局参数与模块）、`lib/`（各功能子程序）。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 目录
|
||||||
|
|
||||||
|
- [三维瞬变电磁 FDTD 正演程序 (tem3dfdtd-cmm)](#三维瞬变电磁-fdtd-正演程序-tem3dfdtd-cmm)
|
||||||
|
- [目录](#目录)
|
||||||
|
- [1. 运行环境与编译](#1-运行环境与编译)
|
||||||
|
- [1.1 环境要求](#11-环境要求)
|
||||||
|
- [1.2 用 VS2019 编译运行(推荐)](#12-用-vs2019-编译运行推荐)
|
||||||
|
- [1.3 命令行编译(可选)](#13-命令行编译可选)
|
||||||
|
- [1.4 Linux 环境编译(makefile)](#14-linux-环境编译makefile)
|
||||||
|
- [2. 程序流程与模块结构](#2-程序流程与模块结构)
|
||||||
|
- [模块 1:程序控制与参数输入](#模块-1程序控制与参数输入)
|
||||||
|
- [模块 2:Yee 网格生成](#模块-2yee-网格生成)
|
||||||
|
- [模块 3:电性参数构建](#模块-3电性参数构建)
|
||||||
|
- [模块 4:激励源与时间序列](#模块-4激励源与时间序列)
|
||||||
|
- [模块 5:FDTD 电磁场计算](#模块-5fdtd-电磁场计算)
|
||||||
|
- [模块 6:输出](#模块-6输出)
|
||||||
|
- [3. 输入文件格式](#3-输入文件格式)
|
||||||
|
- [3.1 参数控制文件 input.dat](#31-参数控制文件-inputdat)
|
||||||
|
- [3.2 地形网格文件 Complex_Terrain](#32-地形网格文件-complex_terrain)
|
||||||
|
- [3.3 异常体网格文件 Complex_anomalous](#33-异常体网格文件-complex_anomalous)
|
||||||
|
- [3.4 建模注意事项](#34-建模注意事项)
|
||||||
|
- [4. CPML 吸收边界](#4-cpml-吸收边界)
|
||||||
|
- [4.1 实现位置](#41-实现位置)
|
||||||
|
- [4.2 参数与含义](#42-参数与含义)
|
||||||
|
- [4.3 使用说明](#43-使用说明)
|
||||||
|
- [4.4 与 Dirichlet 边界的对比](#44-与-dirichlet-边界的对比)
|
||||||
|
- [5. 输出文件说明](#5-输出文件说明)
|
||||||
|
- [6. 衰减曲线快速成图(TEM_decay_plot.py)](#6-衰减曲线快速成图tem_decay_plotpy)
|
||||||
|
- [6.1 使用方式](#61-使用方式)
|
||||||
|
- [6.2 主要可调参数(脚本顶部"User parameters"区)](#62-主要可调参数脚本顶部user-parameters区)
|
||||||
|
- [7. 快速上手(本目录自带算例)](#7-快速上手本目录自带算例)
|
||||||
|
- [8. 常见问题](#8-常见问题)
|
||||||
|
- [9. 参考文献](#9-参考文献)
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 1. 运行环境与编译
|
||||||
|
|
||||||
|
### 1.1 环境要求
|
||||||
|
|
||||||
|
| 项目 | 要求 |
|
||||||
|
| -------------- | ---------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| 操作系统 | Windows 10/11(64 位)或 Linux(x86_64) |
|
||||||
|
| 集成环境 | Windows:Visual Studio 2019;Linux:make |
|
||||||
|
| Fortran 编译器 | Windows:Intel oneAPI Fortran(ifort/ifx); Linux:NVIDIA HPC SDK(nvfortran),见 [1.4 节](#14-linux-环境编译makefile) |
|
||||||
|
| 并行支持 | OpenMP(多核 CPU 加速,代码中已使用 `!$OMP PARALLEL DO` 指令) |
|
||||||
|
|
||||||
|
### 1.2 用 VS2019 编译运行(推荐)
|
||||||
|
|
||||||
|
1. 安装 Visual Studio 2019(勾选"C++ 桌面开发"工作负载)与 Intel oneAPI(安装时勾选
|
||||||
|
"Intel Fortran Compiler 的 Visual Studio 集成")。
|
||||||
|
2. 双击打开工程文件 **`tem3dfdtd-cmm.sln`**(Intel Fortran 工程,对应
|
||||||
|
`tem3dfdtd-cmm.vfproj`)。工程已包含全部源文件,配置说明:
|
||||||
|
- `Debug | x64` / `Release | x64`:使用 **ifx** 编译器(oneAPI 默认),**推荐**;
|
||||||
|
- `Debug | Win32` / `Release | Win32`:使用 ifort 编译器。
|
||||||
|
3. 选择 **`Release | x64`** 配置,点击 **生成 → 生成解决方案**。
|
||||||
|
4. 运行前准备:程序在工作目录中查找 `input.dat` 及网格文件,因此请将
|
||||||
|
`input.dat`、`Complex_Terrain.dat/.stl`、`Complex_anomalous.dat/.stl` 放到
|
||||||
|
**exe 所在目录**(或通过"项目属性 → 调试 → 工作目录"指定)。
|
||||||
|
5. 直接运行 `tem3dfdtd-cmm.exe`,或按 F5 调试运行。
|
||||||
|
|
||||||
|
> **注意**:程序使用 OpenMP,运行时需要 Intel 的运行时库 `libiomp5md.dll`
|
||||||
|
> (位于 Intel oneAPI 安装目录 `bin/` 下)。若提示缺少该 DLL,可将它复制到
|
||||||
|
> exe 同目录(本目录已放置一份),或将其所在目录加入系统 PATH。
|
||||||
|
|
||||||
|
### 1.3 命令行编译(可选)
|
||||||
|
|
||||||
|
在"Intel oneAPI 命令行"环境(oneAPI Command Prompt)下:
|
||||||
|
|
||||||
|
```bat
|
||||||
|
ifx -c -O2 -Qopenmp module\*.f90
|
||||||
|
ifx -c -O2 -Qopenmp -Qopenmp lib\*.f90 main.f90
|
||||||
|
ifx -O2 -Qopenmp *.obj -o tem3dfdtd-cmm.exe
|
||||||
|
```
|
||||||
|
|
||||||
|
(链接时需要 MSVC 的 link.exe 与 Windows SDK 库,建议直接使用 VS 的"开发人员命令提示符",
|
||||||
|
并在 PATH 中加入 Intel oneAPI 的 `bin` 目录。)
|
||||||
|
|
||||||
|
### 1.4 Linux 环境编译(makefile)
|
||||||
|
|
||||||
|
程序根目录提供 `makefile`,用于在 Linux 系统上编译,使用的编译器为
|
||||||
|
**NVIDIA HPC SDK**(命令名 `nvfortran`)。makefile 内容如下:
|
||||||
|
|
||||||
|
```makefile
|
||||||
|
obj:
|
||||||
|
nvfortran -fast -g -traceback -mp=multicore -Minfo=mp -c module/*.f90 lib/*.f90 main.f90
|
||||||
|
exe:
|
||||||
|
nvfortran -fast -g -traceback -mp=multicore -Minfo=mp -o main.exe *.o
|
||||||
|
clean:
|
||||||
|
rm -rf *.exe *.mod *.o nohup.out *.txt *.log SUR* *.DAT *.obj
|
||||||
|
```
|
||||||
|
|
||||||
|
**编译步骤**
|
||||||
|
|
||||||
|
```bash
|
||||||
|
# 1. 加载 NVIDIA HPC SDK(以 module 方式安装时)
|
||||||
|
module load nvhpc # 或自行将 nvhpc 的 bin/ 加入 PATH
|
||||||
|
|
||||||
|
# 2. 编译(两个目标按顺序执行;make 默认只执行第一个目标 obj,故必须再执行 exe)
|
||||||
|
make obj && make exe
|
||||||
|
|
||||||
|
# 3. 运行(先把 input.dat 及网格文件放到 exe 所在目录)
|
||||||
|
./main.exe
|
||||||
|
```
|
||||||
|
|
||||||
|
**说明与注意事项**
|
||||||
|
|
||||||
|
1. **目标结构**:makefile 的 `obj`/`exe` 两个目标之间没有依赖关系,`make` 单独执行
|
||||||
|
只会编译出 `.o` 文件,**必须依次执行 `make obj && make exe`** 才能得到 `main.exe`。
|
||||||
|
2. **OpenMP 线程数**:默认使用全部逻辑核,可运行前用 `export OMP_NUM_THREADS=N` 限制。
|
||||||
|
3. **`make clean` 会一并删除计算结果**(`*.txt`、`*.log`、`*.DAT`、`nohup.out`、
|
||||||
|
`SUR*` 等),执行前请先备份 `dBzdt_*.txt` 等输出文件。
|
||||||
|
4. 与 Windows 版的差异:Linux 下可执行文件名为 `main.exe`,工作目录中同样需要
|
||||||
|
`input.dat` 与 `Complex_Terrain.*`、`Complex_anomalous.*` 网格文件。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 2. 程序流程与模块结构
|
||||||
|
|
||||||
|
主程序执行顺序(`main.f90`):
|
||||||
|
|
||||||
|
```
|
||||||
|
GETDATA → CHECKPARAMETERS → MEMORY_USE_ESTIMATION → ALLOCATEMEMORY
|
||||||
|
→ GET_NON_UNIFORMGRID → ZERO → GET_COORDINATES
|
||||||
|
→ Get_Receiver_Gridlabel → RES_CONFIGURE → TIME_SERIOUS
|
||||||
|
→ Get_eps_r → (Logic_PML=1 时) Get_pml_parameters → Get_mstop
|
||||||
|
→ GetSourcePosition → Iteration → FREE_MEMORY
|
||||||
|
```
|
||||||
|
|
||||||
|
按功能划分为以下 6 个模块:
|
||||||
|
|
||||||
|
### 模块 1:程序控制与参数输入
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ------------------------------- | -------------------------------------------------------------------------- |
|
||||||
|
| `main.f90` | 主程序,控制整个计算流程 |
|
||||||
|
| `lib/getdata.f90` | 读取参数控制文件 `input.dat`;检测地形/异常体网格文件的存在性并选择读取格式 |
|
||||||
|
| `lib/checkparameters.f90` | 将读入的计算参数回显到 `logfile.log`,便于人工检查 |
|
||||||
|
| `lib/memory-use-estimation.f90` | 根据网格规模估算所需内存并打印提示 |
|
||||||
|
|
||||||
|
### 模块 2:Yee 网格生成
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ----------------------------- | -------------------------------------------------------------------------- |
|
||||||
|
| `lib/allocatememory.f90` | 根据输入参数动态分配所有全局数组(含 CPML 记忆变量数组,仅 `Logic_PML=1` 时) |
|
||||||
|
| `lib/get_non_uniformgrid.f90` | 生成 x/y/z 三方向的非均匀网格(核心区均匀 + 外围按 1.3 倍递增扩展) |
|
||||||
|
| `lib/get_coordinates.f90` | 计算各网格节点(含 Yee 节点)的坐标,坐标以源中心为原点 |
|
||||||
|
| `lib/zero.f90` | 将所有电磁场数组初始化为 0;den\_\* 置 1、c_h_zz 置 0、CPML 记忆变量清零 |
|
||||||
|
|
||||||
|
### 模块 3:电性参数构建
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ----------------------------------- | ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |
|
||||||
|
| `lib/resistivity-configuration.f90` | 构建模型电导率:无地形时按背景电导率 + 块状异常体赋值;有地形时调用共形网格;最后将电导率分配到 x/y/z 三个方向的棱边并写出 `conductivity.vtk` |
|
||||||
|
| `lib/Terrain_conformal.f90` | **地形共形网格**:从 `Complex_Terrain.dat/.stl` 读入地形三角网格,用射线–三角形求交(Möller–Trumbore 算法)沿 x/y/z 三个方向填充每个棱边的等效电导率,处理起伏地形与空气/地层的分界 |
|
||||||
|
| `lib/Anomalous_conformal.f90` | **异常体共形网格**:从 `Complex_anomalous.dat/.stl` 读入异常体表面网格,采用同样的射线求交方法将异常体电导率(`tao_abnormal`)填充到棱边 |
|
||||||
|
|
||||||
|
> **说明**:存在地形文件时,地形分支中空气电导率取 `AIR_CONDUCTIVITY = 1e-6 S/m`,
|
||||||
|
> 地层电导率取**块状异常体参数中的第 2 个电导率** `TAR_CONDUCTIVITY(2)`(见 input.dat
|
||||||
|
> 第 9 行起的第二组数据);此时 input.dat 中块状异常体本身不直接生效,而是以 `Complex_anomalous`
|
||||||
|
> 网格文件描述异常体、以 `tao_abnormal` 赋予其电导率。
|
||||||
|
|
||||||
|
### 模块 4:激励源与时间序列
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| ----------------------------- | --------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `lib/time-serious.f90` | 生成整个计算的时间序列(含源波形),并根据 `MAX_OFF_TIME` 校正迭代步数 `NSTOP`;写出 `CTIME_TIXING_UPCOS.DAT` |
|
||||||
|
| `lib/tixing-source-upcos.f90` | 源波形:**梯形 + 余弦上升**的关断电流波形(常用,`SOURCE_TYPE = 'TIXING_UPCOS'`) |
|
||||||
|
| `lib/tixing-source.f90` | 纯梯形波形源(`TIXING_RAMP`) |
|
||||||
|
| `lib/sin-source.f90` | 半正弦波形源(`HALF_SIN`) |
|
||||||
|
| `lib/triangle-source.f90` | 三角波形源(`TRIANGLE`) |
|
||||||
|
| `lib/get-eps-r.f90` | 计算虚介电常数 `EPS_R = 3·(Δt/Δx)²/μ₀` 及迭代系数,保证显式 FDTD 稳定 |
|
||||||
|
| `lib/get-mstop.f90` | 将总迭代过程切成若干"计算分段",每段独立分配缓存,便于内存管理 |
|
||||||
|
|
||||||
|
### 模块 5:FDTD 电磁场计算
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| --------------------------- | ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `lib/GetSourcePosition.f90` | 确定回线源在网格中的位置,标记源所在的棱边(电流赋值区域) |
|
||||||
|
| `lib/Iteration.f90` | **核心迭代子程序**:按分段循环推进时间步,更新 Ex/Ey/Ez、Hz 场,按源波形加载电流;在每个分段末尾对各接收点计算 Hz(由环绕该点的 8 个节点 Ex、Ey 差商加权得到)并写入结果文件。边界条件按 `Logic_PML` 开关切换:`1` 时在每个场更新中附加 CPML 记忆变量修正,`0` 时恢复原始 Dirichlet(零场)边界 |
|
||||||
|
| `module/pml-parameters.f90` | **CPML 吸收边界模块**(Roden–Gedney 卷积 PML):σ/α/κ 多项式缩放参数(ma=3、mb=1)、26 个记忆变量 ψ 数组、b*e/c_e 卷积系数数组与 den*\*(=1/κ)缩放数组的声明 |
|
||||||
|
| `lib/get-pml-paramters.f90` | 构建 x/y/z 六个边界面的 σ/α/κ 分布(多项式从边界向内衰减,E/H 交错采样)及 den\_\* 缩放数组;仅在 `Logic_PML=1` 时由 main 调用 |
|
||||||
|
|
||||||
|
### 模块 6:输出
|
||||||
|
|
||||||
|
| 文件 | 功能 |
|
||||||
|
| --------------------------------------------- | --------------------------------------------------- |
|
||||||
|
| `lib/Iteration.f90`(输出部分) | 写出各接收点响应文件 `dBzdt_1.txt`、`dBzdt_2.txt` … |
|
||||||
|
| `lib/resistivity-configuration.f90`(输出部分) | 写出模型电导率分布 `conductivity.vtk` |
|
||||||
|
| `lib/time-serious.f90`(输出部分) | 写出时间序列 `CTIME_TIXING_UPCOS.DAT` |
|
||||||
|
| `lib/free-memory.f90` | 计算结束后释放所有动态内存 |
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 3. 输入文件格式
|
||||||
|
|
||||||
|
程序运行需要以下文件(全部放在 exe 的工作目录中):
|
||||||
|
|
||||||
|
| 文件 | 是否必须 | 说明 |
|
||||||
|
| --------------------------------- | -------------- | ----------------------------------------- |
|
||||||
|
| `input.dat` | **必须** | 计算参数控制文件 |
|
||||||
|
| `Complex_anomalous.dat` 或 `.stl` | 可选(任选其一) | 异常体表面三角网格;缺省时模型视为均匀背景 |
|
||||||
|
| `Complex_Terrain.dat` 或 `.stl` | 可选(任选其一) | 地形表面三角网格;缺省时不考虑起伏地形 |
|
||||||
|
|
||||||
|
### 3.1 参数控制文件 input.dat
|
||||||
|
|
||||||
|
**自由格式读取**,按行顺序读取;数值后可加 `!` 注释(可整行注释或行尾注释)。
|
||||||
|
下面以本目录自带的 `input.dat` 为例逐行说明:
|
||||||
|
|
||||||
|
| 行号 | 示例 | 含义 |
|
||||||
|
| ----- | -------------- | ----------------------------------------------------------------------------------------- |
|
||||||
|
| 1 | `1` | 计算模式 `CAL_TYPE`:`1` = 地面 TEM,`2` = 半航空(SATEM) |
|
||||||
|
| 2 | `500` | 发射回线边长 `SourceLength`(m) |
|
||||||
|
| 3 | `101,101,100` | x、y、z 三个方向的网格数 `NX,NY,NZ` |
|
||||||
|
| 4 | `1` | **边界条件开关 `Logic_PML`**:`1` = CPML 吸收边界,`0` = 原始非均匀网格 Dirichlet(零场)边界 |
|
||||||
|
| 5 | `10,10,10` | **PML 层数 `PML_X,PML_Y,PML_Z`**(x、y、z 方向,仅开关=1 时有效;建议 ≥ 5 层) |
|
||||||
|
| 6 | `25,25` | x 方向:核心均匀网格起始/结束区间编号 `UniGridNumX1,UniGridNumX2` |
|
||||||
|
| 7 | `25,25` | y 方向:核心均匀网格区间编号 `UniGridNumY1,UniGridNumY2` |
|
||||||
|
| 8 | `20,30` | z 方向:核心均匀网格区间编号 `UniGridNumZ1,UniGridNumZ2` |
|
||||||
|
| 9 | `20` | 核心区均匀网格尺寸 `GridSize`(m) |
|
||||||
|
| 10 | `0.01` | 背景介质电导率 `BACKGROUND_CONDUCTIVITY`(S/m) |
|
||||||
|
| 11 | `2` | 块状异常体数量 `TEMP_II`(无地形时按棱柱体填充;设 0 表示均匀模型) |
|
||||||
|
| 12–15 | 见下 | **第 1 个块状异常体参数**,共 4 行 |
|
||||||
|
| 16–19 | 见下 | **第 2 个块状异常体参数**,共 4 行 |
|
||||||
|
| 20 | `4000000` | 最大迭代次数 `NSTOP` |
|
||||||
|
| 21 | `90.101` | 最大计算时间 `MAX_OFF_TIME`(**单位 ms**) |
|
||||||
|
| 22 | `1e-6,1e-9` | 上升沿持续时间与时间步 `RAISETIME, RAISESTEP`(s) |
|
||||||
|
| 23 | `60000e-6` | 平台阶段持续时间 `WAVE`(s,即 60 ms) |
|
||||||
|
| 24 | `1e-7,1e-9` | 下降沿持续时间与时间步 `RAMP, RAMPSTEP`(s) |
|
||||||
|
| 25 | `1e-9` | 初始时间步 `TIMESTEP`(s) |
|
||||||
|
| 26 | `1` | 发射电流幅度 `AMP`(A) |
|
||||||
|
| 27 | `4.0` | 异常体电导率 `tao_abnormal`(S/m,配合 `Complex_anomalous` 文件使用) |
|
||||||
|
| 28 | `TIXING_UPCOS` | 源类型 `SOURCE_TYPE`:`TIXING_UPCOS` / `TIXING_RAMP` / `HALF_SIN` / `TRIANGLE` |
|
||||||
|
| 29 | `1` | 接收点数 `Point_Num` |
|
||||||
|
| 30 | `1` | 第 1 个接收点的编号 |
|
||||||
|
| 31 | `0,0,0` | 第 1 个接收点坐标(相对源中心,m) |
|
||||||
|
| 32–33 | `2` / `x,y,z` | (如有多余测点)第 2 个接收点(编号 + 坐标) |
|
||||||
|
|
||||||
|
每个**块状异常体**由连续的 4 行组成:
|
||||||
|
|
||||||
|
| 行 | 示例 | 含义 |
|
||||||
|
| --- | ------- | ----------------------------------- |
|
||||||
|
| ① | `1,101` | x 方向网格起止编号 `TAR_X1, TAR_X2` |
|
||||||
|
| ② | `1,101` | y 方向网格起止编号 `TAR_Y1, TAR_Y2` |
|
||||||
|
| ③ | `1,50` | z 方向网格起止编号 `TAR_Z1, TAR_Z2` |
|
||||||
|
| ④ | `1e-5` | 该块电导率 `TAR_CONDUCTIVITY`(S/m) |
|
||||||
|
|
||||||
|
> 本算例用两块"异常体"拼出半空间:第 1 块 z=1~50(空气,1e-5 S/m)+ 第 2 块
|
||||||
|
> z=51~100(地层,1e-2 S/m)。接收点个数 `Point_Num` 后按每个测点 2 行排列
|
||||||
|
> (编号 + 相对源中心坐标)。
|
||||||
|
|
||||||
|
### 3.2 地形网格文件 Complex_Terrain
|
||||||
|
|
||||||
|
地形由**表面三角网格**描述,支持两种格式,文件夹中**只保留其中一个**;
|
||||||
|
若两个同时存在,程序以 `.dat` 为优先并提示 `.stl` 被忽略。
|
||||||
|
|
||||||
|
**格式 1:`Complex_Terrain.dat`(原始文本格式)**
|
||||||
|
|
||||||
|
```
|
||||||
|
Number of Nodes and Elements:
|
||||||
|
10039 ← 节点总数 n_point
|
||||||
|
5426 ← 三角形单元总数 n_face
|
||||||
|
Nodes Coordinates:
|
||||||
|
1 -21000.0 -21000.0 224.08 ← n_point 行:节点编号, X, Y, Z
|
||||||
|
2 -21000.0 -20001.8 224.08
|
||||||
|
... (行中可带 ! 注释)
|
||||||
|
END Nodes Coordinates
|
||||||
|
NormalAreaElements:
|
||||||
|
1 1 2 10039 ← n_face 行:单元编号, 节点1, 节点2, 节点3
|
||||||
|
...
|
||||||
|
END NormalAreaElements
|
||||||
|
```
|
||||||
|
|
||||||
|
| 行 | 内容 |
|
||||||
|
| ------------------- | -------------------------------------------------------------------------- |
|
||||||
|
| 第 1 行 | 标题行,可任意 |
|
||||||
|
| 第 2 行 | 节点总数 `n_point` |
|
||||||
|
| 第 3 行 | 三角形单元总数 `n_face` |
|
||||||
|
| 第 4 行 | 标题行,可任意 |
|
||||||
|
| 第 5 ~ 4+n_point 行 | 每个节点一行:`节点编号, X, Y, Z` |
|
||||||
|
| 其后 1 行 | 区段结束标记 `END Nodes Coordinates`(程序按标题行跳过) |
|
||||||
|
| 其后 1 行 | 面区标题 `NormalAreaElements:`(程序按标题行跳过) |
|
||||||
|
| 其后 n_face 行 | 每个单元一行:`单元编号, 节点1编号, 节点2编号, 节点3编号`(节点按逆时针绕向) |
|
||||||
|
| 末尾 1 行 | 结束标记 `END NormalAreaElements`(程序不读取) |
|
||||||
|
|
||||||
|
> 节点区后的两个区段标记行(GiD 导出)与老版本格式的"2 行标题行"位置一致,
|
||||||
|
> 程序一律按标题行跳过,因此两种写法均兼容。
|
||||||
|
|
||||||
|
**格式 2:`Complex_Terrain.stl`(ASCII STL 格式)**
|
||||||
|
|
||||||
|
标准 ASCII STL(如由 GiD、Gmesh 等导出),单元关键字为 `facet`/`endfacet`,
|
||||||
|
节点用 `vertex` 行表示:
|
||||||
|
|
||||||
|
```
|
||||||
|
solid GiD
|
||||||
|
facet normal 0.000000e+00 0.000000e+00 1.000000e+00
|
||||||
|
outer loop
|
||||||
|
vertex 4.765000e+01 -1.318000e+01 9.550000e+00
|
||||||
|
vertex -1.318000e+01 -2.674000e+01 -1.544000e+01
|
||||||
|
vertex -1.003000e+01 4.387000e+01 2.476000e+01
|
||||||
|
endloop
|
||||||
|
endfacet
|
||||||
|
...
|
||||||
|
endsolid GiD
|
||||||
|
```
|
||||||
|
|
||||||
|
程序读取时自动处理两点(无需用户操作):
|
||||||
|
|
||||||
|
1. **顶点去重合并**:STL 中每个面独立写顶点,重复顶点(容差 1e-5)自动合并为唯一节点表;
|
||||||
|
2. **方向校正**:比较每个面的叉积方向与文件中的 `facet normal`,若相反则交换该面第 2、3
|
||||||
|
个节点,保证法线方向约定与 `.dat` 格式一致。
|
||||||
|
|
||||||
|
### 3.3 异常体网格文件 Complex_anomalous
|
||||||
|
|
||||||
|
与地形文件完全相同:`.dat` / `.stl` 两种格式任选其一(同时存在时 `.dat` 优先),
|
||||||
|
读取方式、去重与方向校正规则均一致;`.dat` 的区段标记行(`END Nodes Coordinates`、
|
||||||
|
`NormalAreaElements:`、`END NormalAreaElements`)与地形文件一致,同样与程序兼容。
|
||||||
|
|
||||||
|
本目录的 `Complex_anomalous.dat` / `.stl` 描述的是**起伏地形下的一个复杂三维异常体**
|
||||||
|
(2663 个节点、5322 个三角形单元;范围 x ≈ -302 ~ 248 m、y ≈ -197 ~ 176 m、
|
||||||
|
z ≈ 51 ~ 285 m,嵌入地形面附近)。其电导率由 `input.dat` 第 27 行
|
||||||
|
`tao_abnormal = 4.0` 指定(低阻体)。
|
||||||
|
|
||||||
|
> 网格生成建议:用专业前处理软件(如 GiD)建立地形面/异常体表面三角形网格后导出,
|
||||||
|
> 或选择"导出 → STL"生成 ASCII STL 文件。
|
||||||
|
|
||||||
|
### 3.4 建模注意事项
|
||||||
|
|
||||||
|
1. **x、y 方向网格数建议设为奇数**,使模型中心(源中心)恰好落在 Yee 网格面中心;
|
||||||
|
由于磁感应强度 B 定义于网格面中心,`dBz/dt` 测点应**优先布置在 Yee 网格面中心位置**,
|
||||||
|
以保证测点响应与场定义的对应关系。
|
||||||
|
2. **发射回线边长应为网格尺寸的奇数倍**,使回线中心落在 Yee 网格棱边位置,保证
|
||||||
|
源电流棱边与网格棱边严格对位。
|
||||||
|
3. **采用 Dirichlet 边界(`Logic_PML=0`)时**,网格加密区域(核心均匀区)应**覆盖发射源、
|
||||||
|
接收测点与异常体范围**,保证上述区域的计算精度,外围大网格用于扩展计算域、减弱
|
||||||
|
零场边界对结果的影响。
|
||||||
|
4. **发射源的 z 方向位置默认在 `NZS+1` 处**(`NZS=NZ/2`,即网格中部),由程序自动
|
||||||
|
确定,无需在输入文件中指定。
|
||||||
|
5. **全航空(TEM)模拟**:本程序同样支持全航空场景——将上半区设置为空气,并在
|
||||||
|
源平面以下再多布置若干层空气网格,即可保证发射源与接收测点均处于空气中。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 4. CPML 吸收边界
|
||||||
|
|
||||||
|
本程序在 `Logic_PML=1` 时采用 **CPML(卷积完美匹配层, Roden & Gedney 2000)**
|
||||||
|
作为吸收边界,在计算区域外围吸收向外传播的电磁场,模拟"无限大地层",
|
||||||
|
避免边界反射污染晚时响应。
|
||||||
|
|
||||||
|
### 4.1 实现位置
|
||||||
|
|
||||||
|
| 文件 | 作用 |
|
||||||
|
| ------------------------------------------ | ------------------------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `module/pml-parameters.f90` | 参数声明:σ/α/κ 最大值、PML 层数、26 个记忆变量 ψ 数组、卷积系数 `b_e/c_e`、缩放数组 `den_*(=1/κ)`、Hz 的 z 向递归系数 `c_h_zz` |
|
||||||
|
| `lib/get-pml-paramters.f90` | 构建 x/y/z 六个边界面内 σ/α/κ 的空间分布(多项式由内向外递增,E/H 交错采样)、`den_*` 缩放数组与卷积系数;仅在 `Logic_PML=1` 时调用 |
|
||||||
|
| `lib/Iteration.f90`(子程序 Iteration_cpml) | 场更新主循环内**内嵌**记忆变量 ψ 的递推与修正项(Ex/Ey/Ez 与 Hx/Hy 共 24 个 ψ);Hz 的 z 方向采用基于 `c_h_zz` 的递归卷积(非 ψ) |
|
||||||
|
|
||||||
|
### 4.2 参数与含义
|
||||||
|
|
||||||
|
| 参数 | 默认值 | 含义 |
|
||||||
|
| ------------------- | ----------------------------- | ------------------------------------------ |
|
||||||
|
| `PML_X,PML_Y,PML_Z` | input.dat 第 5 行(建议 ≥5 层) | 三个方向的 PML 层数 |
|
||||||
|
| `ma` | 3 | σ 沿厚度方向的多项式阶数(由内向外幂律增长) |
|
||||||
|
| `mb` | 1 | α 沿厚度方向的多项式阶数 |
|
||||||
|
| `sig_max` | 1.0e2 | PML 外侧最大电导率(决定吸收强度) |
|
||||||
|
| `alpha_max` | **1.0e-1** | 复频移因子最大值 |
|
||||||
|
| `kappa_max` | 1.0 | 坐标拉伸系数最大值(1 表示不拉伸) |
|
||||||
|
|
||||||
|
σ、α 沿厚度的空间分布(以 x 方向下层为例,其余边界对称):
|
||||||
|
|
||||||
|
```
|
||||||
|
σ(i) = sig_max · ((L−i)/(L−1))^ma
|
||||||
|
α(i) = alpha_max · ((i−1)/(L−1))^mb
|
||||||
|
```
|
||||||
|
|
||||||
|
E 场采样在整层、H 场采样在半层(交错),因此 H 方向的 σ/α/κ 按半层偏移
|
||||||
|
(`i−0.5`)构造,与 E 方向错开。
|
||||||
|
|
||||||
|
### 4.3 使用说明
|
||||||
|
|
||||||
|
1. `input.dat` 第 4 行 `Logic_PML=1`,第 5 行给出三个方向的 PML 层数
|
||||||
|
(如 `15,15,15`);PML 层内网格尺寸应与核心区一致(保持均匀)。
|
||||||
|
2. **α_max 取 0.1 是关键调参**:α(复频移因子)负责吸收低频扩散场。
|
||||||
|
若取值过小(如 0.01),晚时段的低频反射场不能及时衰减,会在边界往返
|
||||||
|
叠加,导致关断后约 10⁻⁵ s 量级出现指数发散(结果为 NaN)——这是
|
||||||
|
CPML 版最常见的不稳定来源,务必保持 α_max=1.0e-1。
|
||||||
|
3. 切换回原始边界:第 4 行改为 `0` 即可,行为与旧版本完全一致,无需重新编译。
|
||||||
|
|
||||||
|
### 4.4 与 Dirichlet 边界的对比
|
||||||
|
|
||||||
|
| | CPML(`Logic_PML=1`) | Dirichlet(`Logic_PML=0`) |
|
||||||
|
| -------- | --------------------------------- | ------------------------ |
|
||||||
|
| 边界处理 | 吸收层,模拟无界空间 | 边界处场直接为零 |
|
||||||
|
| 晚时精度 | 吸收反射,衰减曲线平直 | 边界反射可能污染晚时响应 |
|
||||||
|
| 计算量 | 每步多 24 个记忆变量递推(约 +30%) | 无额外开销 |
|
||||||
|
| 网格要求 | PML 层内需均匀网格 | 无特殊要求 |
|
||||||
|
| 稳定性 | 调参正确时稳定 | 稳定 |
|
||||||
|
|
||||||
|
> **一致性验证**:均匀半空间算例(81×81×80 网格、PML 15 层、1 ms 平台、
|
||||||
|
> 关断后对比)中,CPML 与 Dirichlet 两种边界在关断后早期(场尚未到达边界
|
||||||
|
> 时)的响应曲线一致,差异 <0.2%(源自两版循环次序不同导致的浮点舍入累积,
|
||||||
|
> 非物理差异),证明 CPML 实现与主迭代等价、正确。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 5. 输出文件说明
|
||||||
|
|
||||||
|
| 文件 | 内容 |
|
||||||
|
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| `dBzdt_1.txt`, `dBzdt_2.txt`, … | 每个接收点一个文件。文件头 2 行为说明(测点编号、测点坐标),其后每行 3 列:迭代步数、关断后时间(s)、该时刻磁场响应值 |
|
||||||
|
| `CTIME_TIXING_UPCOS.DAT` | 计算时间序列,每行 3 列:累计时间、时间步长、源电流幅值(波形) |
|
||||||
|
| `conductivity.vtk` | 模型电导率分布(规则网格 VTK 格式),可用 ParaView/Tecplot 等打开,检查模型是否正确构建 |
|
||||||
|
| `logfile.log` | 运行日志:参数回显、格式选择提示、运行错误等 |
|
||||||
|
| `fort.5141` | 共形网格计算过程的调试输出 |
|
||||||
|
| `TEM_decay_curve.png` | 衰减曲线图(由第 [6 节](#6-衰减曲线快速成图tem_decay_plotpy)的 `TEM_decay_plot.py` 生成) |
|
||||||
|
|
||||||
|
运行结束时屏幕会打印各分段的迭代进度、总计算耗时;正常完成后 `logfile.log`
|
||||||
|
末尾出现 `Computation finished!`。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 6. 衰减曲线快速成图(TEM_decay_plot.py)
|
||||||
|
|
||||||
|
程序目录下的 `TEM_decay_plot.py` 用于将正演结果 `dBzdt_*.txt` 快速绘制为
|
||||||
|
**衰减电压曲线图**(双对数坐标)。
|
||||||
|
|
||||||
|
### 6.1 使用方式
|
||||||
|
|
||||||
|
```bash
|
||||||
|
# 需要 numpy 与 matplotlib
|
||||||
|
pip install numpy matplotlib
|
||||||
|
|
||||||
|
# 在计算输出文件(dBzdt_*.txt)所在目录运行
|
||||||
|
python TEM_decay_plot.py
|
||||||
|
```
|
||||||
|
|
||||||
|
脚本自动搜索脚本同目录下所有 `dBzdt_*.txt` 文件,每个接收点画一条曲线,
|
||||||
|
测点编号与坐标自动标注在图例中;默认输出高分辨率图片 **`TEM_decay_curve.png`**
|
||||||
|
(dpi=600)并弹窗显示。
|
||||||
|
|
||||||
|
### 6.2 主要可调参数(脚本顶部"User parameters"区)
|
||||||
|
|
||||||
|
| 参数 | 默认值 | 说明 |
|
||||||
|
| ------------------- | --------------------- | ---------------------------------------------------------------- |
|
||||||
|
| `file_pattern` | `dBzdt_*.txt` | 匹配的结果文件模式 |
|
||||||
|
| `xmin, xmax` | `1e-6, 1e-1` | 横轴(时间, s)显示范围 |
|
||||||
|
| `ymin, ymax` | `None, None` | 纵轴(响应)显示范围,`None` 表示自动 |
|
||||||
|
| `use_abs` | `True` | `True` 画 \|dBz/dt\|(正响应),`False` 画带符号值;纵轴标签随之切换 |
|
||||||
|
| `savefig` | `True` | 是否保存图片 |
|
||||||
|
| `save_name` | `TEM_decay_curve.png` | 保存文件名 |
|
||||||
|
| `dpi` | `600` | 图片分辨率 |
|
||||||
|
| `label_fontsize` 等 | 18/15/15 | 标签、刻度、图例字号 |
|
||||||
|
| `linewidth` | `2.5` | 曲线线宽 |
|
||||||
|
|
||||||
|
超过 8 条曲线时自动改用顺序蓝色渐变配色,不会循环重复颜色。
|
||||||
|
|
||||||
|
> 曲线取值规则:仅绘制 `时间 > 0` 且响应值 > 0 的点(双对数坐标下负值/零值无法显示)。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 7. 快速上手(本目录自带算例)
|
||||||
|
|
||||||
|
本目录自带算例:**起伏地形下的复杂三维异常体**(模型 101×101×100 网格、网格尺寸
|
||||||
|
20 m、源边长 500 m、背景 0.01 S/m、异常体为低阻体 4.0 S/m、1 个测点(源中心正
|
||||||
|
下方);异常体网格 2663 节点/5322 单元,地形网格 10039 节点/5426 单元)。
|
||||||
|
|
||||||
|
运行步骤:
|
||||||
|
|
||||||
|
1. 确认目录下存在:`input.dat`、`Complex_anomalous.dat`(及 `.stl`,描述同一异常体)、
|
||||||
|
`Complex_Terrain.dat`(及 `.stl`,描述同一地形)。两类文件 `.dat` 与 `.stl`
|
||||||
|
同时存在时,程序以 `.dat` 优先并给出提示。
|
||||||
|
2. VS2019 打开 `tem3dfdtd-cmm.sln` → 选择 `Release | x64` → 生成。
|
||||||
|
3. 将生成的 exe 复制到本目录(或把输入文件放入 exe 目录)后运行。
|
||||||
|
4. 观察屏幕输出,正常流程为:
|
||||||
|
```
|
||||||
|
Both Complex_anomalous.dat and Complex_anomalous.stl exist! The .dat format takes precedence, the .stl file is ignored.
|
||||||
|
Both Complex_Terrain.dat and Complex_Terrain.stl exist! The .dat format takes precedence, the .stl file is ignored.
|
||||||
|
The number of grids in the core area is odd
|
||||||
|
At least 320M memory is needed!
|
||||||
|
...
|
||||||
|
Conformal mesh of terrain is complete!
|
||||||
|
Ray tracing computation of terrain is complete!
|
||||||
|
Conformal mesh of terrain is finished
|
||||||
|
Start conformal processing of the anomalous body
|
||||||
|
...
|
||||||
|
Now computing fraction: 1
|
||||||
|
50 steps have just finished
|
||||||
|
...
|
||||||
|
```
|
||||||
|
5. 计算完成后检查输出文件 `dBzdt_1.txt` 、`conductivity.vtk`。
|
||||||
|
6. (可选)运行 `python TEM_decay_plot.py` 生成衰减曲线图 `TEM_decay_curve.png`
|
||||||
|
(见第 [6 节](#6-衰减曲线快速成图tem_decay_plotpy))。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 8. 常见问题
|
||||||
|
|
||||||
|
**Q1:运行提示 `libiomp5md.dll` 找不到**
|
||||||
|
OpenMP 运行时库缺失。将 Intel oneAPI 安装目录 `bin/libiomp5md.dll` 复制到 exe 旁
|
||||||
|
(或加入 PATH)。
|
||||||
|
|
||||||
|
**Q2:提示 `Both Complex_Terrain.dat and Complex_Terrain.stl exist! ...`**
|
||||||
|
两个格式文件都在。程序以 `.dat` 优先。若想用 STL,请将 `.dat` 文件移走或改名。
|
||||||
|
|
||||||
|
**Q3:计算很慢 / 内存不足**
|
||||||
|
减少 `NX,NY,NZ` 或增大 `GridSize`;控制 `NSTOP`;`MAX_OFF_TIME` 决定实际迭代步数,
|
||||||
|
程序会以两者中的较小者为准。运行前会打印所需内存估算。
|
||||||
|
|
||||||
|
**Q4:如何只算均匀半空间(无异常体、无地形)?**
|
||||||
|
半空间模型应包含"空气 + 大地"两部分。将 `Complex_anomalous.*` 与
|
||||||
|
`Complex_Terrain.*` 移走,并在 `input.dat` 中设 `TEMP_II = 2`:第 1 块设为上半部分
|
||||||
|
(空气,电导率如 `1e-5`),第 2 块设为下半部分(大地,电导率如 `0.01`),即构成
|
||||||
|
均匀半空间。注意:**`TEMP_II = 0` 时整个模型只填充背景电导率(全空间均匀介质,
|
||||||
|
不含空气层)**。
|
||||||
|
|
||||||
|
**Q5:接收点坐标怎么写?**
|
||||||
|
坐标是**相对回线源中心**的局部坐标(单位 m),正负方向与坐标轴一致。
|
||||||
|
|
||||||
|
**Q6:CPML 吸收边界与原始 Dirichlet 边界怎么选?**
|
||||||
|
`input.dat` 第 4 行开关 `Logic_PML`:`1` 启用 CPML 吸收边界(第 5 行
|
||||||
|
`10,10,10` 为三个方向的 PML 层数,可自行调整),能有效吸收边界反射,晚时
|
||||||
|
(大偏移/晚时间)衰减曲线更平直;`0` 使用原始非均匀网格 Dirichlet(零场)
|
||||||
|
边界。切换开关无需重新编译。
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
## 9. 参考文献
|
||||||
|
|
||||||
|
[1] 孙怀凤, 李貅, 李术才, 等. 考虑关断时间的回线源激发TEM三维时域有限差分正演[J]. 地球物理学报, 2013, 56(3): 1049-1064.
|
||||||
|
|
||||||
|
[2] 柳尚斌, 李雪峰, 蓝日彦, 等. 瞬变电磁低频近似Maxwell方程的CPML吸收边界及施加方法[J]. 地球物理学报, 2022, 65(4): 1472-1481.
|
||||||
|
|
||||||
|
[3] Li X, Zhao Q, Hu S, et al. Introducing complex geometries to Yee cells in FDTD for transient electromagnetic forward modeling[J]. Geophysics, 2025, 91(2): F1-F12.
|
||||||
|
|||||||
@@ -0,0 +1,114 @@
|
|||||||
|
import os
|
||||||
|
import glob
|
||||||
|
|
||||||
|
import numpy as np
|
||||||
|
import matplotlib.pyplot as plt
|
||||||
|
from matplotlib.colors import LinearSegmentedColormap
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# User parameters
|
||||||
|
# ==========================
|
||||||
|
# Read all files matching this pattern in the same directory as this script
|
||||||
|
file_pattern = "dBzdt_*.txt"
|
||||||
|
|
||||||
|
label_fontsize = 18
|
||||||
|
tick_fontsize = 15
|
||||||
|
legend_fontsize = 15
|
||||||
|
linewidth = 2.5
|
||||||
|
|
||||||
|
xmin = 1e-6
|
||||||
|
xmax = 1e-1
|
||||||
|
ymin = None
|
||||||
|
ymax = None
|
||||||
|
|
||||||
|
use_abs = True
|
||||||
|
|
||||||
|
figsize = (8, 6)
|
||||||
|
|
||||||
|
savefig = True
|
||||||
|
save_name = "TEM_decay_curve.png"
|
||||||
|
dpi = 600
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Colors
|
||||||
|
# ==========================
|
||||||
|
# Fixed-order categorical palette (colorblind-safe, validated).
|
||||||
|
# For more than 8 series, a sequential blue ramp is used instead of cycling.
|
||||||
|
PALETTE = ["#2a78d6", "#eb6834", "#1baf7a", "#eda100",
|
||||||
|
"#e87ba4", "#008300", "#4a3aa7", "#e34948"]
|
||||||
|
RAMP_HEX = ["#86b6ef", "#5598e7", "#3987e5", "#2a78d6",
|
||||||
|
"#256abf", "#1c5cab", "#184f95", "#104281"]
|
||||||
|
|
||||||
|
|
||||||
|
def series_color(i, n):
|
||||||
|
"""Color for the i-th series of n (fixed order, never cycled)."""
|
||||||
|
if n <= len(PALETTE):
|
||||||
|
return PALETTE[i]
|
||||||
|
cmap = LinearSegmentedColormap.from_list("seq_blue", RAMP_HEX)
|
||||||
|
return cmap(i / (n - 1))
|
||||||
|
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Read data
|
||||||
|
# ==========================
|
||||||
|
script_dir = os.path.dirname(os.path.abspath(__file__))
|
||||||
|
files = sorted(glob.glob(os.path.join(script_dir, file_pattern)))
|
||||||
|
|
||||||
|
if not files:
|
||||||
|
raise FileNotFoundError(
|
||||||
|
f"No files matching '{file_pattern}' in {script_dir}")
|
||||||
|
|
||||||
|
if use_abs:
|
||||||
|
ylabel = r"$|dB_z/dt|$ (V/A)"
|
||||||
|
else:
|
||||||
|
ylabel = r"$dB_z/dt$ (V/A)"
|
||||||
|
|
||||||
|
plt.figure(figsize=figsize)
|
||||||
|
|
||||||
|
for i, filename in enumerate(files):
|
||||||
|
# Header: line 1 = point name, line 2 = receiver coordinates (x, y, z)
|
||||||
|
with open(filename) as f:
|
||||||
|
point_name = f.readline().strip()
|
||||||
|
coords = [float(v) for v in f.readline().split()]
|
||||||
|
x, y, z = coords
|
||||||
|
label = f"{point_name} ({x:g}, {y:g}, {z:g}) m"
|
||||||
|
|
||||||
|
data = np.loadtxt(filename, skiprows=2)
|
||||||
|
|
||||||
|
time = data[:, 1]
|
||||||
|
dbdt = data[:, 2]
|
||||||
|
|
||||||
|
if use_abs:
|
||||||
|
dbdt_plot = np.abs(dbdt)
|
||||||
|
else:
|
||||||
|
dbdt_plot = dbdt
|
||||||
|
|
||||||
|
mask = (time > 0) & (dbdt_plot > 0)
|
||||||
|
|
||||||
|
plt.loglog(time[mask], dbdt_plot[mask], linewidth=linewidth,
|
||||||
|
color=series_color(i, len(files)), label=label)
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Plot
|
||||||
|
# ==========================
|
||||||
|
plt.xlabel("Time (s)", fontsize=label_fontsize)
|
||||||
|
plt.ylabel(ylabel, fontsize=label_fontsize)
|
||||||
|
|
||||||
|
plt.xticks(fontsize=tick_fontsize)
|
||||||
|
plt.yticks(fontsize=tick_fontsize)
|
||||||
|
|
||||||
|
plt.grid(True, which="both", linestyle="--", alpha=0.4)
|
||||||
|
|
||||||
|
if xmin is not None or xmax is not None:
|
||||||
|
plt.xlim(xmin, xmax)
|
||||||
|
|
||||||
|
if ymin is not None or ymax is not None:
|
||||||
|
plt.ylim(ymin, ymax)
|
||||||
|
|
||||||
|
plt.legend(fontsize=legend_fontsize)
|
||||||
|
plt.tight_layout()
|
||||||
|
|
||||||
|
if savefig:
|
||||||
|
plt.savefig(os.path.join(script_dir, save_name), dpi=dpi)
|
||||||
|
|
||||||
|
plt.show()
|
||||||
+75802
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,2 @@
|
|||||||
|
point_1
|
||||||
|
0.000000000000000E+000 0.000000000000000E+000 0.000000000000000E+000
|
||||||
+16
-1
@@ -1 +1,16 @@
|
|||||||
this folder is used to store the examples!
|
this folder is used to store the examples!
|
||||||
|
|
||||||
|
专门为开源地球物理学校准备的算例：
|
||||||
|
ex1 均匀半空间模型
|
||||||
|
ex2 均匀半空间中包含一个低阻球体模型
|
||||||
|
ex3 起伏地形下包含复杂异常体的模型
|
||||||
|
|
||||||
|
在每个算例文件夹下的：
|
||||||
|
| 文件 | 内容 |
|
||||||
|
| ------------------------------- | ----------------------------------------------------------------------------------------------------------------- |
|
||||||
|
| input???.dat | 代表输入文件，其中Dirichlet代表采用Dirichlet边界条件，PML代表采用PML吸收边界条件 |
|
||||||
|
| Complex_anomalous.dat Complex_anomalous.stl | 代表复杂异常体文件 |
|
||||||
|
| Complex_Terrain.txt Complex_Terrain.stl | 代表复杂地形体文件 |
|
||||||
|
|文件夹 |代表计算结果 |
|
||||||
|
|
||||||
|
请参考使用
|
||||||
|
|||||||
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,940 @@
|
|||||||
|
# vtk DataFile Version 3.0
|
||||||
|
Version 3.0 VTK file
|
||||||
|
ASCII
|
||||||
|
DATASET UNSTRUCTURED_GRID
|
||||||
|
POINTS 330 double
|
||||||
|
1.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
CELLS 200 1800
|
||||||
|
8 0 1 5 6 30 31 35 36
|
||||||
|
8 1 2 6 7 31 32 36 37
|
||||||
|
8 2 3 7 8 32 33 37 38
|
||||||
|
8 3 4 8 9 33 34 38 39
|
||||||
|
8 5 6 10 11 35 36 40 41
|
||||||
|
8 6 7 11 12 36 37 41 42
|
||||||
|
8 7 8 12 13 37 38 42 43
|
||||||
|
8 8 9 13 14 38 39 43 44
|
||||||
|
8 10 11 15 16 40 41 45 46
|
||||||
|
8 11 12 16 17 41 42 46 47
|
||||||
|
8 12 13 17 18 42 43 47 48
|
||||||
|
8 13 14 18 19 43 44 48 49
|
||||||
|
8 15 16 20 21 45 46 50 51
|
||||||
|
8 16 17 21 22 46 47 51 52
|
||||||
|
8 17 18 22 23 47 48 52 53
|
||||||
|
8 18 19 23 24 48 49 53 54
|
||||||
|
8 20 21 25 26 50 51 55 56
|
||||||
|
8 21 22 26 27 51 52 56 57
|
||||||
|
8 22 23 27 28 52 53 57 58
|
||||||
|
8 23 24 28 29 53 54 58 59
|
||||||
|
8 30 31 35 36 60 61 65 66
|
||||||
|
8 31 32 36 37 61 62 66 67
|
||||||
|
8 32 33 37 38 62 63 67 68
|
||||||
|
8 33 34 38 39 63 64 68 69
|
||||||
|
8 35 36 40 41 65 66 70 71
|
||||||
|
8 36 37 41 42 66 67 71 72
|
||||||
|
8 37 38 42 43 67 68 72 73
|
||||||
|
8 38 39 43 44 68 69 73 74
|
||||||
|
8 40 41 45 46 70 71 75 76
|
||||||
|
8 41 42 46 47 71 72 76 77
|
||||||
|
8 42 43 47 48 72 73 77 78
|
||||||
|
8 43 44 48 49 73 74 78 79
|
||||||
|
8 45 46 50 51 75 76 80 81
|
||||||
|
8 46 47 51 52 76 77 81 82
|
||||||
|
8 47 48 52 53 77 78 82 83
|
||||||
|
8 48 49 53 54 78 79 83 84
|
||||||
|
8 50 51 55 56 80 81 85 86
|
||||||
|
8 51 52 56 57 81 82 86 87
|
||||||
|
8 52 53 57 58 82 83 87 88
|
||||||
|
8 53 54 58 59 83 84 88 89
|
||||||
|
8 60 61 65 66 90 91 95 96
|
||||||
|
8 61 62 66 67 91 92 96 97
|
||||||
|
8 62 63 67 68 92 93 97 98
|
||||||
|
8 63 64 68 69 93 94 98 99
|
||||||
|
8 65 66 70 71 95 96 100 101
|
||||||
|
8 66 67 71 72 96 97 101 102
|
||||||
|
8 67 68 72 73 97 98 102 103
|
||||||
|
8 68 69 73 74 98 99 103 104
|
||||||
|
8 70 71 75 76 100 101 105 106
|
||||||
|
8 71 72 76 77 101 102 106 107
|
||||||
|
8 72 73 77 78 102 103 107 108
|
||||||
|
8 73 74 78 79 103 104 108 109
|
||||||
|
8 75 76 80 81 105 106 110 111
|
||||||
|
8 76 77 81 82 106 107 111 112
|
||||||
|
8 77 78 82 83 107 108 112 113
|
||||||
|
8 78 79 83 84 108 109 113 114
|
||||||
|
8 80 81 85 86 110 111 115 116
|
||||||
|
8 81 82 86 87 111 112 116 117
|
||||||
|
8 82 83 87 88 112 113 117 118
|
||||||
|
8 83 84 88 89 113 114 118 119
|
||||||
|
8 90 91 95 96 120 121 125 126
|
||||||
|
8 91 92 96 97 121 122 126 127
|
||||||
|
8 92 93 97 98 122 123 127 128
|
||||||
|
8 93 94 98 99 123 124 128 129
|
||||||
|
8 95 96 100 101 125 126 130 131
|
||||||
|
8 96 97 101 102 126 127 131 132
|
||||||
|
8 97 98 102 103 127 128 132 133
|
||||||
|
8 98 99 103 104 128 129 133 134
|
||||||
|
8 100 101 105 106 130 131 135 136
|
||||||
|
8 101 102 106 107 131 132 136 137
|
||||||
|
8 102 103 107 108 132 133 137 138
|
||||||
|
8 103 104 108 109 133 134 138 139
|
||||||
|
8 105 106 110 111 135 136 140 141
|
||||||
|
8 106 107 111 112 136 137 141 142
|
||||||
|
8 107 108 112 113 137 138 142 143
|
||||||
|
8 108 109 113 114 138 139 143 144
|
||||||
|
8 110 111 115 116 140 141 145 146
|
||||||
|
8 111 112 116 117 141 142 146 147
|
||||||
|
8 112 113 117 118 142 143 147 148
|
||||||
|
8 113 114 118 119 143 144 148 149
|
||||||
|
8 120 121 125 126 150 151 155 156
|
||||||
|
8 121 122 126 127 151 152 156 157
|
||||||
|
8 122 123 127 128 152 153 157 158
|
||||||
|
8 123 124 128 129 153 154 158 159
|
||||||
|
8 125 126 130 131 155 156 160 161
|
||||||
|
8 126 127 131 132 156 157 161 162
|
||||||
|
8 127 128 132 133 157 158 162 163
|
||||||
|
8 128 129 133 134 158 159 163 164
|
||||||
|
8 130 131 135 136 160 161 165 166
|
||||||
|
8 131 132 136 137 161 162 166 167
|
||||||
|
8 132 133 137 138 162 163 167 168
|
||||||
|
8 133 134 138 139 163 164 168 169
|
||||||
|
8 135 136 140 141 165 166 170 171
|
||||||
|
8 136 137 141 142 166 167 171 172
|
||||||
|
8 137 138 142 143 167 168 172 173
|
||||||
|
8 138 139 143 144 168 169 173 174
|
||||||
|
8 140 141 145 146 170 171 175 176
|
||||||
|
8 141 142 146 147 171 172 176 177
|
||||||
|
8 142 143 147 148 172 173 177 178
|
||||||
|
8 143 144 148 149 173 174 178 179
|
||||||
|
8 150 151 155 156 180 181 185 186
|
||||||
|
8 151 152 156 157 181 182 186 187
|
||||||
|
8 152 153 157 158 182 183 187 188
|
||||||
|
8 153 154 158 159 183 184 188 189
|
||||||
|
8 155 156 160 161 185 186 190 191
|
||||||
|
8 156 157 161 162 186 187 191 192
|
||||||
|
8 157 158 162 163 187 188 192 193
|
||||||
|
8 158 159 163 164 188 189 193 194
|
||||||
|
8 160 161 165 166 190 191 195 196
|
||||||
|
8 161 162 166 167 191 192 196 197
|
||||||
|
8 162 163 167 168 192 193 197 198
|
||||||
|
8 163 164 168 169 193 194 198 199
|
||||||
|
8 165 166 170 171 195 196 200 201
|
||||||
|
8 166 167 171 172 196 197 201 202
|
||||||
|
8 167 168 172 173 197 198 202 203
|
||||||
|
8 168 169 173 174 198 199 203 204
|
||||||
|
8 170 171 175 176 200 201 205 206
|
||||||
|
8 171 172 176 177 201 202 206 207
|
||||||
|
8 172 173 177 178 202 203 207 208
|
||||||
|
8 173 174 178 179 203 204 208 209
|
||||||
|
8 180 181 185 186 210 211 215 216
|
||||||
|
8 181 182 186 187 211 212 216 217
|
||||||
|
8 182 183 187 188 212 213 217 218
|
||||||
|
8 183 184 188 189 213 214 218 219
|
||||||
|
8 185 186 190 191 215 216 220 221
|
||||||
|
8 186 187 191 192 216 217 221 222
|
||||||
|
8 187 188 192 193 217 218 222 223
|
||||||
|
8 188 189 193 194 218 219 223 224
|
||||||
|
8 190 191 195 196 220 221 225 226
|
||||||
|
8 191 192 196 197 221 222 226 227
|
||||||
|
8 192 193 197 198 222 223 227 228
|
||||||
|
8 193 194 198 199 223 224 228 229
|
||||||
|
8 195 196 200 201 225 226 230 231
|
||||||
|
8 196 197 201 202 226 227 231 232
|
||||||
|
8 197 198 202 203 227 228 232 233
|
||||||
|
8 198 199 203 204 228 229 233 234
|
||||||
|
8 200 201 205 206 230 231 235 236
|
||||||
|
8 201 202 206 207 231 232 236 237
|
||||||
|
8 202 203 207 208 232 233 237 238
|
||||||
|
8 203 204 208 209 233 234 238 239
|
||||||
|
8 210 211 215 216 240 241 245 246
|
||||||
|
8 211 212 216 217 241 242 246 247
|
||||||
|
8 212 213 217 218 242 243 247 248
|
||||||
|
8 213 214 218 219 243 244 248 249
|
||||||
|
8 215 216 220 221 245 246 250 251
|
||||||
|
8 216 217 221 222 246 247 251 252
|
||||||
|
8 217 218 222 223 247 248 252 253
|
||||||
|
8 218 219 223 224 248 249 253 254
|
||||||
|
8 220 221 225 226 250 251 255 256
|
||||||
|
8 221 222 226 227 251 252 256 257
|
||||||
|
8 222 223 227 228 252 253 257 258
|
||||||
|
8 223 224 228 229 253 254 258 259
|
||||||
|
8 225 226 230 231 255 256 260 261
|
||||||
|
8 226 227 231 232 256 257 261 262
|
||||||
|
8 227 228 232 233 257 258 262 263
|
||||||
|
8 228 229 233 234 258 259 263 264
|
||||||
|
8 230 231 235 236 260 261 265 266
|
||||||
|
8 231 232 236 237 261 262 266 267
|
||||||
|
8 232 233 237 238 262 263 267 268
|
||||||
|
8 233 234 238 239 263 264 268 269
|
||||||
|
8 240 241 245 246 270 271 275 276
|
||||||
|
8 241 242 246 247 271 272 276 277
|
||||||
|
8 242 243 247 248 272 273 277 278
|
||||||
|
8 243 244 248 249 273 274 278 279
|
||||||
|
8 245 246 250 251 275 276 280 281
|
||||||
|
8 246 247 251 252 276 277 281 282
|
||||||
|
8 247 248 252 253 277 278 282 283
|
||||||
|
8 248 249 253 254 278 279 283 284
|
||||||
|
8 250 251 255 256 280 281 285 286
|
||||||
|
8 251 252 256 257 281 282 286 287
|
||||||
|
8 252 253 257 258 282 283 287 288
|
||||||
|
8 253 254 258 259 283 284 288 289
|
||||||
|
8 255 256 260 261 285 286 290 291
|
||||||
|
8 256 257 261 262 286 287 291 292
|
||||||
|
8 257 258 262 263 287 288 292 293
|
||||||
|
8 258 259 263 264 288 289 293 294
|
||||||
|
8 260 261 265 266 290 291 295 296
|
||||||
|
8 261 262 266 267 291 292 296 297
|
||||||
|
8 262 263 267 268 292 293 297 298
|
||||||
|
8 263 264 268 269 293 294 298 299
|
||||||
|
8 270 271 275 276 300 301 305 306
|
||||||
|
8 271 272 276 277 301 302 306 307
|
||||||
|
8 272 273 277 278 302 303 307 308
|
||||||
|
8 273 274 278 279 303 304 308 309
|
||||||
|
8 275 276 280 281 305 306 310 311
|
||||||
|
8 276 277 281 282 306 307 311 312
|
||||||
|
8 277 278 282 283 307 308 312 313
|
||||||
|
8 278 279 283 284 308 309 313 314
|
||||||
|
8 280 281 285 286 310 311 315 316
|
||||||
|
8 281 282 286 287 311 312 316 317
|
||||||
|
8 282 283 287 288 312 313 317 318
|
||||||
|
8 283 284 288 289 313 314 318 319
|
||||||
|
8 285 286 290 291 315 316 320 321
|
||||||
|
8 286 287 291 292 316 317 321 322
|
||||||
|
8 287 288 292 293 317 318 322 323
|
||||||
|
8 288 289 293 294 318 319 323 324
|
||||||
|
8 290 291 295 296 320 321 325 326
|
||||||
|
8 291 292 296 297 321 322 326 327
|
||||||
|
8 292 293 297 298 322 323 327 328
|
||||||
|
8 293 294 298 299 323 324 328 329
|
||||||
|
CELL_TYPES 200
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
CELL_DATA 200
|
||||||
|
SCALARS conductivity double 1
|
||||||
|
LOOKUP_TABLE Table
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,33 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
101,101,100 ! x、y、z网格数量
|
||||||
|
0 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
1,50
|
||||||
|
1e-5
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
51,100
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
2.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
2 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
|
2
|
||||||
|
0,0,-20
|
||||||
@@ -0,0 +1,61 @@
|
|||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
@@ -0,0 +1,61 @@
|
|||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
@@ -0,0 +1,60 @@
|
|||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
|
0.200000E+02
|
||||||
文件差异内容过多而无法显示
加载差异
二进制文件未显示。
|
之后 宽度: | 高度: | 大小: 444 KiB |
@@ -0,0 +1,940 @@
|
|||||||
|
# vtk DataFile Version 3.0
|
||||||
|
Version 3.0 VTK file
|
||||||
|
ASCII
|
||||||
|
DATASET UNSTRUCTURED_GRID
|
||||||
|
POINTS 330 double
|
||||||
|
1.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 1.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 2.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 3.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 4.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 5.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 6.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 7.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 8.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 9.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 10.0000000000000000
|
||||||
|
1.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 1.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 2.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 3.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 4.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 5.0000000000000000 11.0000000000000000
|
||||||
|
1.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
2.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
3.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
4.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
5.0000000000000000 6.0000000000000000 11.0000000000000000
|
||||||
|
CELLS 200 1800
|
||||||
|
8 0 1 5 6 30 31 35 36
|
||||||
|
8 1 2 6 7 31 32 36 37
|
||||||
|
8 2 3 7 8 32 33 37 38
|
||||||
|
8 3 4 8 9 33 34 38 39
|
||||||
|
8 5 6 10 11 35 36 40 41
|
||||||
|
8 6 7 11 12 36 37 41 42
|
||||||
|
8 7 8 12 13 37 38 42 43
|
||||||
|
8 8 9 13 14 38 39 43 44
|
||||||
|
8 10 11 15 16 40 41 45 46
|
||||||
|
8 11 12 16 17 41 42 46 47
|
||||||
|
8 12 13 17 18 42 43 47 48
|
||||||
|
8 13 14 18 19 43 44 48 49
|
||||||
|
8 15 16 20 21 45 46 50 51
|
||||||
|
8 16 17 21 22 46 47 51 52
|
||||||
|
8 17 18 22 23 47 48 52 53
|
||||||
|
8 18 19 23 24 48 49 53 54
|
||||||
|
8 20 21 25 26 50 51 55 56
|
||||||
|
8 21 22 26 27 51 52 56 57
|
||||||
|
8 22 23 27 28 52 53 57 58
|
||||||
|
8 23 24 28 29 53 54 58 59
|
||||||
|
8 30 31 35 36 60 61 65 66
|
||||||
|
8 31 32 36 37 61 62 66 67
|
||||||
|
8 32 33 37 38 62 63 67 68
|
||||||
|
8 33 34 38 39 63 64 68 69
|
||||||
|
8 35 36 40 41 65 66 70 71
|
||||||
|
8 36 37 41 42 66 67 71 72
|
||||||
|
8 37 38 42 43 67 68 72 73
|
||||||
|
8 38 39 43 44 68 69 73 74
|
||||||
|
8 40 41 45 46 70 71 75 76
|
||||||
|
8 41 42 46 47 71 72 76 77
|
||||||
|
8 42 43 47 48 72 73 77 78
|
||||||
|
8 43 44 48 49 73 74 78 79
|
||||||
|
8 45 46 50 51 75 76 80 81
|
||||||
|
8 46 47 51 52 76 77 81 82
|
||||||
|
8 47 48 52 53 77 78 82 83
|
||||||
|
8 48 49 53 54 78 79 83 84
|
||||||
|
8 50 51 55 56 80 81 85 86
|
||||||
|
8 51 52 56 57 81 82 86 87
|
||||||
|
8 52 53 57 58 82 83 87 88
|
||||||
|
8 53 54 58 59 83 84 88 89
|
||||||
|
8 60 61 65 66 90 91 95 96
|
||||||
|
8 61 62 66 67 91 92 96 97
|
||||||
|
8 62 63 67 68 92 93 97 98
|
||||||
|
8 63 64 68 69 93 94 98 99
|
||||||
|
8 65 66 70 71 95 96 100 101
|
||||||
|
8 66 67 71 72 96 97 101 102
|
||||||
|
8 67 68 72 73 97 98 102 103
|
||||||
|
8 68 69 73 74 98 99 103 104
|
||||||
|
8 70 71 75 76 100 101 105 106
|
||||||
|
8 71 72 76 77 101 102 106 107
|
||||||
|
8 72 73 77 78 102 103 107 108
|
||||||
|
8 73 74 78 79 103 104 108 109
|
||||||
|
8 75 76 80 81 105 106 110 111
|
||||||
|
8 76 77 81 82 106 107 111 112
|
||||||
|
8 77 78 82 83 107 108 112 113
|
||||||
|
8 78 79 83 84 108 109 113 114
|
||||||
|
8 80 81 85 86 110 111 115 116
|
||||||
|
8 81 82 86 87 111 112 116 117
|
||||||
|
8 82 83 87 88 112 113 117 118
|
||||||
|
8 83 84 88 89 113 114 118 119
|
||||||
|
8 90 91 95 96 120 121 125 126
|
||||||
|
8 91 92 96 97 121 122 126 127
|
||||||
|
8 92 93 97 98 122 123 127 128
|
||||||
|
8 93 94 98 99 123 124 128 129
|
||||||
|
8 95 96 100 101 125 126 130 131
|
||||||
|
8 96 97 101 102 126 127 131 132
|
||||||
|
8 97 98 102 103 127 128 132 133
|
||||||
|
8 98 99 103 104 128 129 133 134
|
||||||
|
8 100 101 105 106 130 131 135 136
|
||||||
|
8 101 102 106 107 131 132 136 137
|
||||||
|
8 102 103 107 108 132 133 137 138
|
||||||
|
8 103 104 108 109 133 134 138 139
|
||||||
|
8 105 106 110 111 135 136 140 141
|
||||||
|
8 106 107 111 112 136 137 141 142
|
||||||
|
8 107 108 112 113 137 138 142 143
|
||||||
|
8 108 109 113 114 138 139 143 144
|
||||||
|
8 110 111 115 116 140 141 145 146
|
||||||
|
8 111 112 116 117 141 142 146 147
|
||||||
|
8 112 113 117 118 142 143 147 148
|
||||||
|
8 113 114 118 119 143 144 148 149
|
||||||
|
8 120 121 125 126 150 151 155 156
|
||||||
|
8 121 122 126 127 151 152 156 157
|
||||||
|
8 122 123 127 128 152 153 157 158
|
||||||
|
8 123 124 128 129 153 154 158 159
|
||||||
|
8 125 126 130 131 155 156 160 161
|
||||||
|
8 126 127 131 132 156 157 161 162
|
||||||
|
8 127 128 132 133 157 158 162 163
|
||||||
|
8 128 129 133 134 158 159 163 164
|
||||||
|
8 130 131 135 136 160 161 165 166
|
||||||
|
8 131 132 136 137 161 162 166 167
|
||||||
|
8 132 133 137 138 162 163 167 168
|
||||||
|
8 133 134 138 139 163 164 168 169
|
||||||
|
8 135 136 140 141 165 166 170 171
|
||||||
|
8 136 137 141 142 166 167 171 172
|
||||||
|
8 137 138 142 143 167 168 172 173
|
||||||
|
8 138 139 143 144 168 169 173 174
|
||||||
|
8 140 141 145 146 170 171 175 176
|
||||||
|
8 141 142 146 147 171 172 176 177
|
||||||
|
8 142 143 147 148 172 173 177 178
|
||||||
|
8 143 144 148 149 173 174 178 179
|
||||||
|
8 150 151 155 156 180 181 185 186
|
||||||
|
8 151 152 156 157 181 182 186 187
|
||||||
|
8 152 153 157 158 182 183 187 188
|
||||||
|
8 153 154 158 159 183 184 188 189
|
||||||
|
8 155 156 160 161 185 186 190 191
|
||||||
|
8 156 157 161 162 186 187 191 192
|
||||||
|
8 157 158 162 163 187 188 192 193
|
||||||
|
8 158 159 163 164 188 189 193 194
|
||||||
|
8 160 161 165 166 190 191 195 196
|
||||||
|
8 161 162 166 167 191 192 196 197
|
||||||
|
8 162 163 167 168 192 193 197 198
|
||||||
|
8 163 164 168 169 193 194 198 199
|
||||||
|
8 165 166 170 171 195 196 200 201
|
||||||
|
8 166 167 171 172 196 197 201 202
|
||||||
|
8 167 168 172 173 197 198 202 203
|
||||||
|
8 168 169 173 174 198 199 203 204
|
||||||
|
8 170 171 175 176 200 201 205 206
|
||||||
|
8 171 172 176 177 201 202 206 207
|
||||||
|
8 172 173 177 178 202 203 207 208
|
||||||
|
8 173 174 178 179 203 204 208 209
|
||||||
|
8 180 181 185 186 210 211 215 216
|
||||||
|
8 181 182 186 187 211 212 216 217
|
||||||
|
8 182 183 187 188 212 213 217 218
|
||||||
|
8 183 184 188 189 213 214 218 219
|
||||||
|
8 185 186 190 191 215 216 220 221
|
||||||
|
8 186 187 191 192 216 217 221 222
|
||||||
|
8 187 188 192 193 217 218 222 223
|
||||||
|
8 188 189 193 194 218 219 223 224
|
||||||
|
8 190 191 195 196 220 221 225 226
|
||||||
|
8 191 192 196 197 221 222 226 227
|
||||||
|
8 192 193 197 198 222 223 227 228
|
||||||
|
8 193 194 198 199 223 224 228 229
|
||||||
|
8 195 196 200 201 225 226 230 231
|
||||||
|
8 196 197 201 202 226 227 231 232
|
||||||
|
8 197 198 202 203 227 228 232 233
|
||||||
|
8 198 199 203 204 228 229 233 234
|
||||||
|
8 200 201 205 206 230 231 235 236
|
||||||
|
8 201 202 206 207 231 232 236 237
|
||||||
|
8 202 203 207 208 232 233 237 238
|
||||||
|
8 203 204 208 209 233 234 238 239
|
||||||
|
8 210 211 215 216 240 241 245 246
|
||||||
|
8 211 212 216 217 241 242 246 247
|
||||||
|
8 212 213 217 218 242 243 247 248
|
||||||
|
8 213 214 218 219 243 244 248 249
|
||||||
|
8 215 216 220 221 245 246 250 251
|
||||||
|
8 216 217 221 222 246 247 251 252
|
||||||
|
8 217 218 222 223 247 248 252 253
|
||||||
|
8 218 219 223 224 248 249 253 254
|
||||||
|
8 220 221 225 226 250 251 255 256
|
||||||
|
8 221 222 226 227 251 252 256 257
|
||||||
|
8 222 223 227 228 252 253 257 258
|
||||||
|
8 223 224 228 229 253 254 258 259
|
||||||
|
8 225 226 230 231 255 256 260 261
|
||||||
|
8 226 227 231 232 256 257 261 262
|
||||||
|
8 227 228 232 233 257 258 262 263
|
||||||
|
8 228 229 233 234 258 259 263 264
|
||||||
|
8 230 231 235 236 260 261 265 266
|
||||||
|
8 231 232 236 237 261 262 266 267
|
||||||
|
8 232 233 237 238 262 263 267 268
|
||||||
|
8 233 234 238 239 263 264 268 269
|
||||||
|
8 240 241 245 246 270 271 275 276
|
||||||
|
8 241 242 246 247 271 272 276 277
|
||||||
|
8 242 243 247 248 272 273 277 278
|
||||||
|
8 243 244 248 249 273 274 278 279
|
||||||
|
8 245 246 250 251 275 276 280 281
|
||||||
|
8 246 247 251 252 276 277 281 282
|
||||||
|
8 247 248 252 253 277 278 282 283
|
||||||
|
8 248 249 253 254 278 279 283 284
|
||||||
|
8 250 251 255 256 280 281 285 286
|
||||||
|
8 251 252 256 257 281 282 286 287
|
||||||
|
8 252 253 257 258 282 283 287 288
|
||||||
|
8 253 254 258 259 283 284 288 289
|
||||||
|
8 255 256 260 261 285 286 290 291
|
||||||
|
8 256 257 261 262 286 287 291 292
|
||||||
|
8 257 258 262 263 287 288 292 293
|
||||||
|
8 258 259 263 264 288 289 293 294
|
||||||
|
8 260 261 265 266 290 291 295 296
|
||||||
|
8 261 262 266 267 291 292 296 297
|
||||||
|
8 262 263 267 268 292 293 297 298
|
||||||
|
8 263 264 268 269 293 294 298 299
|
||||||
|
8 270 271 275 276 300 301 305 306
|
||||||
|
8 271 272 276 277 301 302 306 307
|
||||||
|
8 272 273 277 278 302 303 307 308
|
||||||
|
8 273 274 278 279 303 304 308 309
|
||||||
|
8 275 276 280 281 305 306 310 311
|
||||||
|
8 276 277 281 282 306 307 311 312
|
||||||
|
8 277 278 282 283 307 308 312 313
|
||||||
|
8 278 279 283 284 308 309 313 314
|
||||||
|
8 280 281 285 286 310 311 315 316
|
||||||
|
8 281 282 286 287 311 312 316 317
|
||||||
|
8 282 283 287 288 312 313 317 318
|
||||||
|
8 283 284 288 289 313 314 318 319
|
||||||
|
8 285 286 290 291 315 316 320 321
|
||||||
|
8 286 287 291 292 316 317 321 322
|
||||||
|
8 287 288 292 293 317 318 322 323
|
||||||
|
8 288 289 293 294 318 319 323 324
|
||||||
|
8 290 291 295 296 320 321 325 326
|
||||||
|
8 291 292 296 297 321 322 326 327
|
||||||
|
8 292 293 297 298 322 323 327 328
|
||||||
|
8 293 294 298 299 323 324 328 329
|
||||||
|
CELL_TYPES 200
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
11
|
||||||
|
CELL_DATA 200
|
||||||
|
SCALARS conductivity double 1
|
||||||
|
LOOKUP_TABLE Table
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0000100000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0050050000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
|
0.0100000000000000
|
||||||
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,33 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
61,61,60 ! x、y、z网格数量
|
||||||
|
1 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
1,30
|
||||||
|
1e-5
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
31,60
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
2.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
2 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
|
2
|
||||||
|
0,0,-20
|
||||||
@@ -0,0 +1,33 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
101,101,100 ! x、y、z网格数量
|
||||||
|
0 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
1,50
|
||||||
|
1e-5
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
51,100
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
4.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
2 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
|
2
|
||||||
|
0,0,-20
|
||||||
@@ -0,0 +1,33 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
61,61,60 ! x、y、z网格数量
|
||||||
|
1 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
1,30
|
||||||
|
1e-5
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
31,60
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
4.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
2 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
|
2
|
||||||
|
0,0,-20
|
||||||
@@ -0,0 +1,33 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
61,61,60 ! x、y、z网格数量
|
||||||
|
1 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
1,30
|
||||||
|
1e-5
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
31,60
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
2.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
2 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
|
2
|
||||||
|
0,0,-20
|
||||||
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
二进制文件未显示。
|
之后 宽度: | 高度: | 大小: 574 KiB |
@@ -0,0 +1,114 @@
|
|||||||
|
import os
|
||||||
|
import glob
|
||||||
|
|
||||||
|
import numpy as np
|
||||||
|
import matplotlib.pyplot as plt
|
||||||
|
from matplotlib.colors import LinearSegmentedColormap
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# User parameters
|
||||||
|
# ==========================
|
||||||
|
# Read all files matching this pattern in the same directory as this script
|
||||||
|
file_pattern = "dBzdt_*.txt"
|
||||||
|
|
||||||
|
label_fontsize = 18
|
||||||
|
tick_fontsize = 15
|
||||||
|
legend_fontsize = 15
|
||||||
|
linewidth = 2.5
|
||||||
|
|
||||||
|
xmin = 1e-6
|
||||||
|
xmax = 1e-1
|
||||||
|
ymin = None
|
||||||
|
ymax = None
|
||||||
|
|
||||||
|
use_abs = True
|
||||||
|
|
||||||
|
figsize = (8, 6)
|
||||||
|
|
||||||
|
savefig = True
|
||||||
|
save_name = "TEM_decay_curve.png"
|
||||||
|
dpi = 600
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Colors
|
||||||
|
# ==========================
|
||||||
|
# Fixed-order categorical palette (colorblind-safe, validated).
|
||||||
|
# For more than 8 series, a sequential blue ramp is used instead of cycling.
|
||||||
|
PALETTE = ["#2a78d6", "#eb6834", "#1baf7a", "#eda100",
|
||||||
|
"#e87ba4", "#008300", "#4a3aa7", "#e34948"]
|
||||||
|
RAMP_HEX = ["#86b6ef", "#5598e7", "#3987e5", "#2a78d6",
|
||||||
|
"#256abf", "#1c5cab", "#184f95", "#104281"]
|
||||||
|
|
||||||
|
|
||||||
|
def series_color(i, n):
|
||||||
|
"""Color for the i-th series of n (fixed order, never cycled)."""
|
||||||
|
if n <= len(PALETTE):
|
||||||
|
return PALETTE[i]
|
||||||
|
cmap = LinearSegmentedColormap.from_list("seq_blue", RAMP_HEX)
|
||||||
|
return cmap(i / (n - 1))
|
||||||
|
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Read data
|
||||||
|
# ==========================
|
||||||
|
script_dir = os.path.dirname(os.path.abspath(__file__))
|
||||||
|
files = sorted(glob.glob(os.path.join(script_dir, file_pattern)))
|
||||||
|
|
||||||
|
if not files:
|
||||||
|
raise FileNotFoundError(
|
||||||
|
f"No files matching '{file_pattern}' in {script_dir}")
|
||||||
|
|
||||||
|
if use_abs:
|
||||||
|
ylabel = r"$|dB_z/dt|$ (V/A)"
|
||||||
|
else:
|
||||||
|
ylabel = r"$dB_z/dt$ (V/A)"
|
||||||
|
|
||||||
|
plt.figure(figsize=figsize)
|
||||||
|
|
||||||
|
for i, filename in enumerate(files):
|
||||||
|
# Header: line 1 = point name, line 2 = receiver coordinates (x, y, z)
|
||||||
|
with open(filename) as f:
|
||||||
|
point_name = f.readline().strip()
|
||||||
|
coords = [float(v) for v in f.readline().split()]
|
||||||
|
x, y, z = coords
|
||||||
|
label = f"{point_name} ({x:g}, {y:g}, {z:g}) m"
|
||||||
|
|
||||||
|
data = np.loadtxt(filename, skiprows=2)
|
||||||
|
|
||||||
|
time = data[:, 1]
|
||||||
|
dbdt = data[:, 2]
|
||||||
|
|
||||||
|
if use_abs:
|
||||||
|
dbdt_plot = np.abs(dbdt)
|
||||||
|
else:
|
||||||
|
dbdt_plot = dbdt
|
||||||
|
|
||||||
|
mask = (time > 0) & (dbdt_plot > 0)
|
||||||
|
|
||||||
|
plt.loglog(time[mask], dbdt_plot[mask], linewidth=linewidth,
|
||||||
|
color=series_color(i, len(files)), label=label)
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Plot
|
||||||
|
# ==========================
|
||||||
|
plt.xlabel("Time (s)", fontsize=label_fontsize)
|
||||||
|
plt.ylabel(ylabel, fontsize=label_fontsize)
|
||||||
|
|
||||||
|
plt.xticks(fontsize=tick_fontsize)
|
||||||
|
plt.yticks(fontsize=tick_fontsize)
|
||||||
|
|
||||||
|
plt.grid(True, which="both", linestyle="--", alpha=0.4)
|
||||||
|
|
||||||
|
if xmin is not None or xmax is not None:
|
||||||
|
plt.xlim(xmin, xmax)
|
||||||
|
|
||||||
|
if ymin is not None or ymax is not None:
|
||||||
|
plt.ylim(ymin, ymax)
|
||||||
|
|
||||||
|
plt.legend(fontsize=legend_fontsize)
|
||||||
|
plt.tight_layout()
|
||||||
|
|
||||||
|
if savefig:
|
||||||
|
plt.savefig(os.path.join(script_dir, save_name), dpi=dpi)
|
||||||
|
|
||||||
|
plt.show()
|
||||||
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,35 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
210 ! 回线源尺寸
|
||||||
|
121,121,120 ! x、y、z网格数量
|
||||||
|
0 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
30,30 ! x方向均匀核心区域范围/数量
|
||||||
|
30,30 ! y方向均匀核心区域范围/数量
|
||||||
|
20,30 ! z方向均匀核心区域范围/数量
|
||||||
|
10 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,121
|
||||||
|
1,121
|
||||||
|
1,60
|
||||||
|
1e-5
|
||||||
|
1,121
|
||||||
|
1,121
|
||||||
|
61,120
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
2.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
3 ! 接收测点数量
|
||||||
|
1 ! 测点1编号
|
||||||
|
-60,0,0 ! 测点1坐标
|
||||||
|
2
|
||||||
|
-30,0,0
|
||||||
|
3
|
||||||
|
0,0,0
|
||||||
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,61 @@
|
|||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
@@ -0,0 +1,61 @@
|
|||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
@@ -0,0 +1,60 @@
|
|||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
|
0.100000E+02
|
||||||
文件差异内容过多而无法显示
加载差异
二进制文件未显示。
|
之后 宽度: | 高度: | 大小: 575 KiB |
@@ -0,0 +1,114 @@
|
|||||||
|
import os
|
||||||
|
import glob
|
||||||
|
|
||||||
|
import numpy as np
|
||||||
|
import matplotlib.pyplot as plt
|
||||||
|
from matplotlib.colors import LinearSegmentedColormap
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# User parameters
|
||||||
|
# ==========================
|
||||||
|
# Read all files matching this pattern in the same directory as this script
|
||||||
|
file_pattern = "dBzdt_*.txt"
|
||||||
|
|
||||||
|
label_fontsize = 18
|
||||||
|
tick_fontsize = 15
|
||||||
|
legend_fontsize = 15
|
||||||
|
linewidth = 2.5
|
||||||
|
|
||||||
|
xmin = 1e-6
|
||||||
|
xmax = 1e-1
|
||||||
|
ymin = None
|
||||||
|
ymax = None
|
||||||
|
|
||||||
|
use_abs = True
|
||||||
|
|
||||||
|
figsize = (8, 6)
|
||||||
|
|
||||||
|
savefig = True
|
||||||
|
save_name = "TEM_decay_curve.png"
|
||||||
|
dpi = 600
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Colors
|
||||||
|
# ==========================
|
||||||
|
# Fixed-order categorical palette (colorblind-safe, validated).
|
||||||
|
# For more than 8 series, a sequential blue ramp is used instead of cycling.
|
||||||
|
PALETTE = ["#2a78d6", "#eb6834", "#1baf7a", "#eda100",
|
||||||
|
"#e87ba4", "#008300", "#4a3aa7", "#e34948"]
|
||||||
|
RAMP_HEX = ["#86b6ef", "#5598e7", "#3987e5", "#2a78d6",
|
||||||
|
"#256abf", "#1c5cab", "#184f95", "#104281"]
|
||||||
|
|
||||||
|
|
||||||
|
def series_color(i, n):
|
||||||
|
"""Color for the i-th series of n (fixed order, never cycled)."""
|
||||||
|
if n <= len(PALETTE):
|
||||||
|
return PALETTE[i]
|
||||||
|
cmap = LinearSegmentedColormap.from_list("seq_blue", RAMP_HEX)
|
||||||
|
return cmap(i / (n - 1))
|
||||||
|
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Read data
|
||||||
|
# ==========================
|
||||||
|
script_dir = os.path.dirname(os.path.abspath(__file__))
|
||||||
|
files = sorted(glob.glob(os.path.join(script_dir, file_pattern)))
|
||||||
|
|
||||||
|
if not files:
|
||||||
|
raise FileNotFoundError(
|
||||||
|
f"No files matching '{file_pattern}' in {script_dir}")
|
||||||
|
|
||||||
|
if use_abs:
|
||||||
|
ylabel = r"$|dB_z/dt|$ (V/A)"
|
||||||
|
else:
|
||||||
|
ylabel = r"$dB_z/dt$ (V/A)"
|
||||||
|
|
||||||
|
plt.figure(figsize=figsize)
|
||||||
|
|
||||||
|
for i, filename in enumerate(files):
|
||||||
|
# Header: line 1 = point name, line 2 = receiver coordinates (x, y, z)
|
||||||
|
with open(filename) as f:
|
||||||
|
point_name = f.readline().strip()
|
||||||
|
coords = [float(v) for v in f.readline().split()]
|
||||||
|
x, y, z = coords
|
||||||
|
label = f"{point_name} ({x:g}, {y:g}, {z:g}) m"
|
||||||
|
|
||||||
|
data = np.loadtxt(filename, skiprows=2)
|
||||||
|
|
||||||
|
time = data[:, 1]
|
||||||
|
dbdt = data[:, 2]
|
||||||
|
|
||||||
|
if use_abs:
|
||||||
|
dbdt_plot = np.abs(dbdt)
|
||||||
|
else:
|
||||||
|
dbdt_plot = dbdt
|
||||||
|
|
||||||
|
mask = (time > 0) & (dbdt_plot > 0)
|
||||||
|
|
||||||
|
plt.loglog(time[mask], dbdt_plot[mask], linewidth=linewidth,
|
||||||
|
color=series_color(i, len(files)), label=label)
|
||||||
|
|
||||||
|
# ==========================
|
||||||
|
# Plot
|
||||||
|
# ==========================
|
||||||
|
plt.xlabel("Time (s)", fontsize=label_fontsize)
|
||||||
|
plt.ylabel(ylabel, fontsize=label_fontsize)
|
||||||
|
|
||||||
|
plt.xticks(fontsize=tick_fontsize)
|
||||||
|
plt.yticks(fontsize=tick_fontsize)
|
||||||
|
|
||||||
|
plt.grid(True, which="both", linestyle="--", alpha=0.4)
|
||||||
|
|
||||||
|
if xmin is not None or xmax is not None:
|
||||||
|
plt.xlim(xmin, xmax)
|
||||||
|
|
||||||
|
if ymin is not None or ymax is not None:
|
||||||
|
plt.ylim(ymin, ymax)
|
||||||
|
|
||||||
|
plt.legend(fontsize=legend_fontsize)
|
||||||
|
plt.tight_layout()
|
||||||
|
|
||||||
|
if savefig:
|
||||||
|
plt.savefig(os.path.join(script_dir, save_name), dpi=dpi)
|
||||||
|
|
||||||
|
plt.show()
|
||||||
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,35 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
210 ! 回线源尺寸
|
||||||
|
61,61,60 ! x、y、z网格数量
|
||||||
|
1 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
30,30 ! x方向均匀核心区域范围/数量
|
||||||
|
30,30 ! y方向均匀核心区域范围/数量
|
||||||
|
20,30 ! z方向均匀核心区域范围/数量
|
||||||
|
10 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
1,30
|
||||||
|
1e-5
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
31,60
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
2.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
3 ! 接收测点数量
|
||||||
|
1 ! 测点1编号
|
||||||
|
-60,0,0 ! 测点1坐标
|
||||||
|
2
|
||||||
|
-30,0,0
|
||||||
|
3
|
||||||
|
0,0,0
|
||||||
二进制文件未显示。
|
之后 宽度: | 高度: | 大小: 446 KiB |
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,35 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
210 ! 回线源尺寸
|
||||||
|
61,61,60 ! x、y、z网格数量
|
||||||
|
1 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
30,30 ! x方向均匀核心区域范围/数量
|
||||||
|
30,30 ! y方向均匀核心区域范围/数量
|
||||||
|
20,30 ! z方向均匀核心区域范围/数量
|
||||||
|
10 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
1,30
|
||||||
|
1e-5
|
||||||
|
1,61
|
||||||
|
1,61
|
||||||
|
31,60
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
2.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
3 ! 接收测点数量
|
||||||
|
1 ! 测点1编号
|
||||||
|
-60,0,0 ! 测点1坐标
|
||||||
|
2
|
||||||
|
-30,0,0
|
||||||
|
3
|
||||||
|
0,0,0
|
||||||
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
二进制文件未显示。
|
之后 宽度: | 高度: | 大小: 368 KiB |
文件差异内容过多而无法显示
加载差异
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,31 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
101,101,100 ! x、y、z网格数量
|
||||||
|
0 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
1,50
|
||||||
|
1e-5
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
51,100
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
90.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
60000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
4.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
1 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
文件差异内容过多而无法显示
加载差异
@@ -0,0 +1,31 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
101,101,100 ! x、y、z网格数量
|
||||||
|
0 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
1,50
|
||||||
|
1e-5
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
51,100
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
300.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
200000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
4.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
1 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
@@ -0,0 +1,31 @@
|
|||||||
|
1 ! 1-Ground TEM；2-SATEM
|
||||||
|
500 ! 回线源尺寸
|
||||||
|
101,101,100 ! x、y、z网格数量
|
||||||
|
0 ! 边界条件开关：1=CPML吸收边界，0=原始非均匀网格Dirichlet边界
|
||||||
|
10,10,10 ! PML层数（x、y、z方向，仅开关=1时有效）
|
||||||
|
25,25 ! x方向均匀核心区域范围/数量
|
||||||
|
25,25 ! y方向均匀核心区域范围/数量
|
||||||
|
25,25 ! z方向均匀核心区域范围/数量
|
||||||
|
20 ! 核心均匀网格尺寸
|
||||||
|
0.01 ! 背景介质电导率(S/m)
|
||||||
|
2 ! 介质数量
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
1,50
|
||||||
|
1e-5
|
||||||
|
1,101
|
||||||
|
1,101
|
||||||
|
51,100
|
||||||
|
1e-2
|
||||||
|
4000000 ! 最大迭代次数
|
||||||
|
300.101 ! 最大计算时间
|
||||||
|
1e-6,1e-9 ! 上升沿时间及时间步
|
||||||
|
200000e-6 ! 平台阶段持续时间
|
||||||
|
1e-7,1e-9 ! 下降沿时间及时间步
|
||||||
|
1e-9 ! 初始时间步
|
||||||
|
1 ! AMP
|
||||||
|
4.0 ! The conductivity of abnormal body (When the file Complex_anomalous.dat exists)
|
||||||
|
TIXING_UPCOS ! source type
|
||||||
|
1 ! 接收测点数量
|
||||||
|
1
|
||||||
|
0,0,0
|
||||||
@@ -0,0 +1,765 @@
|
|||||||
|
!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
|
||||||
|
!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
|
||||||
|
USE RES_MODEL_PARAMETER
|
||||||
|
USE CONSTANTPARAMETERS
|
||||||
|
use omp_lib
|
||||||
|
IMPLICIT NONE
|
||||||
|
CHARACTER(200) FinenameOfAnomalous
|
||||||
|
CHARACTER(200) print_vert0,print_vert1,print_vert2,Complex_Inclusion_x,Complex_Inclusion_y,Complex_Inclusion_z,temp
|
||||||
|
CHARACTER(300) :: line !used to read one line of the ASCII STL file
|
||||||
|
INTEGER(KIND=4)::i,j,k,t,ii,jj,kk,n,i1,i2,i3,j1,j2,j3,k1,k2,k3,l1,l2,l3,i0
|
||||||
|
INTEGER(KIND=4):: ios_stl,i_face,iv_face,nv_tmp,idx_v,ip_stl
|
||||||
|
INTEGER(KIND=4), DIMENSION(:,:), ALLOCATABLE :: tmp_face
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: tmp_vert,tmp_norm
|
||||||
|
REAL(KIND=8):: vx,vy,vz
|
||||||
|
REAL(KIND=8):: ex1x,ex1y,ex1z,ex2x,ex2y,ex2z,crossx,crossy,crossz
|
||||||
|
|
||||||
|
INTEGER(KIND=4)::iz,jz,kz,ix,jx,kx,iy,jy,ky,iii,jjj,kkk
|
||||||
|
INTEGER(KIND=4)::index_z,index_x,index_y,dex_z,dex_x,dex_y
|
||||||
|
INTEGER(KIND=4)::num_z,num_x,num_y,dex_dd_z,dex_dd_x,dex_dd_y,dex_max_z,dex_max_x,dex_max_y,dex_d_z,dex_d_x,dex_d_y
|
||||||
|
REAL(KIND=8)::dist_d_z,dist_d_x,dist_d_y,dist_z,dist_x,dist_y,threshold
|
||||||
|
INTEGER(KIND=4), DIMENSION(:), ALLOCATABLE :: XX_min,XX_max,YY_min,YY_max,ZZ_min,ZZ_max
|
||||||
|
|
||||||
|
REAL(KIND=8), DIMENSION(:), ALLOCATABLE :: coor_z_max,coor_z_min,coor_x_max,coor_x_min,coor_y_max,coor_y_min
|
||||||
|
TYPE Triangular_Coordinates
|
||||||
|
INTEGER(KIND=4)::point_number
|
||||||
|
REAL(KIND=8):: Coord_X,Coord_Y,Coord_Z
|
||||||
|
END TYPE Triangular_Coordinates
|
||||||
|
TYPE face
|
||||||
|
INTEGER(KIND=4)::node_face
|
||||||
|
TYPE(Triangular_Coordinates) ::node_point1
|
||||||
|
TYPE(Triangular_Coordinates) ::node_point2
|
||||||
|
TYPE(Triangular_Coordinates) ::node_point3
|
||||||
|
END TYPE face
|
||||||
|
TYPE(face), DIMENSION(:), ALLOCATABLE :: Triangular_face_element
|
||||||
|
TYPE(Triangular_Coordinates), DIMENSION(:), ALLOCATABLE :: Vert
|
||||||
|
|
||||||
|
print*,'Start conformal processing of the anomalous body'
|
||||||
|
mmx = 0
|
||||||
|
mmy = 0
|
||||||
|
mmz = 0
|
||||||
|
X_max=1
|
||||||
|
X_min=NXB
|
||||||
|
Y_max=1
|
||||||
|
Y_min=NYB
|
||||||
|
Z_max=1
|
||||||
|
Z_min=NZB
|
||||||
|
threshold=1.0e-8
|
||||||
|
|
||||||
|
!===============================Read triangle face element information====================================
|
||||||
|
IF(Logic_AnomalousDat)THEN
|
||||||
|
!>Original .dat format:
|
||||||
|
!! Line 1 : "Number of Nodes and Elements:"
|
||||||
|
!! Line 2 : n_point (number of nodes)
|
||||||
|
!! Line 3 : n_face (number of triangular elements)
|
||||||
|
!! Line 4 : "Nodes Coordinates:"
|
||||||
|
!! next n_point lines : label, Coord_X, Coord_Y, Coord_Z
|
||||||
|
!! then 2 title lines, then n_face lines : label, node1, node2, node3
|
||||||
|
FinenameOfAnomalous='Complex_anomalous.dat'
|
||||||
|
OPEN(20240506,FILE=FinenameOfAnomalous,STATUS='OLD')
|
||||||
|
Read(20240506, *) temp
|
||||||
|
Read(20240506, *) n_point !get total number of Node
|
||||||
|
Read(20240506, *) n_face !get total number of Element
|
||||||
|
Read(20240506, *) temp
|
||||||
|
|
||||||
|
ALLOCATE(Triangular_face_element(n_face))
|
||||||
|
ALLOCATE(Vert(n_point))
|
||||||
|
DO j=1,n_point
|
||||||
|
READ(20240506,*)Vert(j)%point_number,Vert(j)%Coord_X,Vert(j)%Coord_Y,Vert(j)%Coord_Z
|
||||||
|
ENDDO
|
||||||
|
Read(20240506,*) temp
|
||||||
|
Read(20240506,*) temp
|
||||||
|
DO i=1,n_face
|
||||||
|
READ(20240506,*)Triangular_face_element(i)%node_face,Triangular_face_element(i)%node_point1%point_number,Triangular_face_element(i)%node_point2%point_number,Triangular_face_element(i)%node_point3%point_number
|
||||||
|
ENDDO
|
||||||
|
CLOSE(20240506)
|
||||||
|
ELSEIF(Logic_AnomalousStl)THEN
|
||||||
|
!>ASCII STL format:
|
||||||
|
!! solid <name>
|
||||||
|
!! facet normal nx ny nz
|
||||||
|
!! outer loop
|
||||||
|
!! vertex x y z
|
||||||
|
!! vertex x y z
|
||||||
|
!! vertex x y z
|
||||||
|
!! endloop
|
||||||
|
!! endfacet
|
||||||
|
!! ...
|
||||||
|
!! endsolid <name>
|
||||||
|
!!In an STL file the vertices are written once per facet, so the duplicated
|
||||||
|
!!vertices are merged into unique nodes before filling Vert/Triangular_face_element.
|
||||||
|
!!The vertex order of each facet is also checked against the facet normal so that
|
||||||
|
!!the normal direction convention is the same as the .dat format.
|
||||||
|
FinenameOfAnomalous='Complex_anomalous.stl'
|
||||||
|
OPEN(20240506,FILE=FinenameOfAnomalous,STATUS='OLD')
|
||||||
|
!>First pass: count the number of facets.
|
||||||
|
n_face=0
|
||||||
|
DO
|
||||||
|
READ(20240506,'(A)',IOSTAT=ios_stl) line
|
||||||
|
IF(ios_stl/=0) EXIT
|
||||||
|
!>convert the line into lower case for keyword matching
|
||||||
|
DO ii=1,LEN_TRIM(line)
|
||||||
|
IF(line(ii:ii)>='A'.AND.line(ii:ii)<='Z') line(ii:ii)=ACHAR(IACHAR(line(ii:ii))+32)
|
||||||
|
ENDDO
|
||||||
|
IF(INDEX(line,'facet')>0 .AND. INDEX(line,'endfacet')==0) n_face=n_face+1
|
||||||
|
ENDDO
|
||||||
|
IF(n_face==0)THEN
|
||||||
|
WRITE(*,*)'Error: no facet is found in Complex_anomalous.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
REWIND(20240506)
|
||||||
|
ALLOCATE(tmp_face(3,n_face),tmp_norm(3,n_face),tmp_vert(3,3*n_face))
|
||||||
|
nv_tmp=0
|
||||||
|
i_face=0
|
||||||
|
iv_face=0
|
||||||
|
DO
|
||||||
|
READ(20240506,'(A)',IOSTAT=ios_stl) line
|
||||||
|
IF(ios_stl/=0) EXIT
|
||||||
|
DO ii=1,LEN_TRIM(line)
|
||||||
|
IF(line(ii:ii)>='A'.AND.line(ii:ii)<='Z') line(ii:ii)=ACHAR(IACHAR(line(ii:ii))+32)
|
||||||
|
ENDDO
|
||||||
|
IF(INDEX(line,'facet')>0 .AND. INDEX(line,'endfacet')==0)THEN
|
||||||
|
!>a new facet begins
|
||||||
|
i_face=i_face+1
|
||||||
|
iv_face=0
|
||||||
|
IF(INDEX(line,'normal')>0)THEN
|
||||||
|
READ(line(INDEX(line,'normal')+6:),*,IOSTAT=ios_stl) tmp_norm(1,i_face),tmp_norm(2,i_face),tmp_norm(3,i_face)
|
||||||
|
IF(ios_stl/=0)THEN
|
||||||
|
WRITE(*,*)'Error: failed to read the facet normal line in Complex_anomalous.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ELSEIF(INDEX(line,'endfacet')>0)THEN
|
||||||
|
!>a facet is finished, check that it has exactly 3 vertices
|
||||||
|
IF(iv_face/=3)THEN
|
||||||
|
WRITE(*,*)'Error: a facet with',iv_face,'vertices (instead of 3) is found in Complex_anomalous.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
ELSEIF(INDEX(line,'vertex')>0)THEN
|
||||||
|
iv_face=iv_face+1
|
||||||
|
IF(iv_face>3)THEN
|
||||||
|
WRITE(*,*)'Error: a facet with more than 3 vertices is found in Complex_anomalous.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
READ(line(INDEX(line,'vertex')+6:),*,IOSTAT=ios_stl) vx,vy,vz
|
||||||
|
IF(ios_stl/=0)THEN
|
||||||
|
WRITE(*,*)'Error: failed to read a vertex line in Complex_anomalous.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
!>merge the duplicated vertices
|
||||||
|
idx_v=0
|
||||||
|
DO ip_stl=1,nv_tmp
|
||||||
|
IF(ABS(tmp_vert(1,ip_stl)-vx)<threshold.AND.ABS(tmp_vert(2,ip_stl)-vy)<threshold.AND.ABS(tmp_vert(3,ip_stl)-vz)<threshold)THEN
|
||||||
|
idx_v=ip_stl
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(idx_v==0)THEN
|
||||||
|
nv_tmp=nv_tmp+1
|
||||||
|
tmp_vert(1,nv_tmp)=vx
|
||||||
|
tmp_vert(2,nv_tmp)=vy
|
||||||
|
tmp_vert(3,nv_tmp)=vz
|
||||||
|
idx_v=nv_tmp
|
||||||
|
ENDIF
|
||||||
|
tmp_face(iv_face,i_face)=idx_v
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
!>Correct the vertex order of each facet: compare the cross-product normal
|
||||||
|
!!with the facet normal stored in the STL file, swap node2/node3 if they
|
||||||
|
!!point in opposite directions, so that the normal direction convention
|
||||||
|
!!is the same as in the .dat format.
|
||||||
|
DO i=1,n_face
|
||||||
|
ex1x=tmp_vert(1,tmp_face(2,i))-tmp_vert(1,tmp_face(1,i))
|
||||||
|
ex1y=tmp_vert(2,tmp_face(2,i))-tmp_vert(2,tmp_face(1,i))
|
||||||
|
ex1z=tmp_vert(3,tmp_face(2,i))-tmp_vert(3,tmp_face(1,i))
|
||||||
|
ex2x=tmp_vert(1,tmp_face(3,i))-tmp_vert(1,tmp_face(1,i))
|
||||||
|
ex2y=tmp_vert(2,tmp_face(3,i))-tmp_vert(2,tmp_face(1,i))
|
||||||
|
ex2z=tmp_vert(3,tmp_face(3,i))-tmp_vert(3,tmp_face(1,i))
|
||||||
|
crossx=ex1y*ex2z-ex1z*ex2y
|
||||||
|
crossy=ex1z*ex2x-ex1x*ex2z
|
||||||
|
crossz=ex1x*ex2y-ex1y*ex2x
|
||||||
|
IF(crossx*tmp_norm(1,i)+crossy*tmp_norm(2,i)+crossz*tmp_norm(3,i)<0.0D0)THEN
|
||||||
|
idx_v=tmp_face(2,i)
|
||||||
|
tmp_face(2,i)=tmp_face(3,i)
|
||||||
|
tmp_face(3,i)=idx_v
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
n_point=nv_tmp
|
||||||
|
ALLOCATE(Triangular_face_element(n_face))
|
||||||
|
ALLOCATE(Vert(n_point))
|
||||||
|
DO j=1,n_point
|
||||||
|
Vert(j)%point_number=j
|
||||||
|
Vert(j)%Coord_X=tmp_vert(1,j)
|
||||||
|
Vert(j)%Coord_Y=tmp_vert(2,j)
|
||||||
|
Vert(j)%Coord_Z=tmp_vert(3,j)
|
||||||
|
ENDDO
|
||||||
|
DO i=1,n_face
|
||||||
|
Triangular_face_element(i)%node_face=i
|
||||||
|
Triangular_face_element(i)%node_point1%point_number=tmp_face(1,i)
|
||||||
|
Triangular_face_element(i)%node_point2%point_number=tmp_face(2,i)
|
||||||
|
Triangular_face_element(i)%node_point3%point_number=tmp_face(3,i)
|
||||||
|
ENDDO
|
||||||
|
CLOSE(20240506)
|
||||||
|
DEALLOCATE(tmp_face,tmp_norm,tmp_vert)
|
||||||
|
WRITE(*,*)'Complex_anomalous.stl read: n_point=',n_point,' n_face=',n_face
|
||||||
|
ELSE
|
||||||
|
WRITE(*,*)'Error: neither Complex_anomalous.dat nor Complex_anomalous.stl exists, anomalous_conformal can not run!'
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
!=========================================================================================================
|
||||||
|
!=====================================The first range reduction===========================================
|
||||||
|
!Find out the maximum and minimum values of the abnormal volume triangular mesh in the three ranges.
|
||||||
|
max_coord_x=maxval(Vert(:)%Coord_X)
|
||||||
|
min_coord_x=minval(Vert(:)%Coord_X)
|
||||||
|
max_coord_y=maxval(Vert(:)%Coord_Y)
|
||||||
|
min_coord_y=minval(Vert(:)%Coord_Y)
|
||||||
|
max_coord_z=maxval(Vert(:)%Coord_Z)
|
||||||
|
min_coord_z=minval(Vert(:)%Coord_Z)
|
||||||
|
!The anomalous volume is delimited in the hexahedron.
|
||||||
|
DO ii=1,NX
|
||||||
|
IF(coordinates_x(ii)>min_coord_x)THEN
|
||||||
|
X_min=ii-1
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO ii=1,NX
|
||||||
|
IF(coordinates_x(ii)>max_coord_x)THEN
|
||||||
|
X_max=ii
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO jj=1,NY
|
||||||
|
IF(coordinates_y(jj)>min_coord_y)THEN
|
||||||
|
Y_min=jj-1
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO jj=1,NY
|
||||||
|
IF(coordinates_y(jj)>max_coord_y)THEN
|
||||||
|
Y_max=jj
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO kk=1,NZ
|
||||||
|
IF(coordinates_z(kk)>min_coord_z)THEN
|
||||||
|
Z_min=kk-1
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO kk=1,NZ
|
||||||
|
IF(coordinates_z(kk)>max_coord_z)THEN
|
||||||
|
Z_max=kk
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
!=========================================================================================================
|
||||||
|
ALLOCATE(orig_z(3,NXB*NYB),orig_y(3,NXB*NZB),orig_x(3,NXB*NZB))
|
||||||
|
ALLOCATE(vert0(3,n_face),vert1(3,n_face),vert2(3,n_face),edge1(3,n_face),edge2(3,n_face))
|
||||||
|
ALLOCATE(det_z(NXB*NYB),det_x(NYB*NZB),det_y(NXB*NZB))
|
||||||
|
ALLOCATE(u_z(NXB*NYB),u_x(NYB*NZB),u_y(NXB*NZB))
|
||||||
|
ALLOCATE(v_z(NXB*NYB),v_x(NYB*NZB),v_y(NXB*NZB))
|
||||||
|
ALLOCATE(t_z(NXB*NYB),t_x(NYB*NZB),t_y(NXB*NZB))
|
||||||
|
ALLOCATE(coor_z(NXB,NYB,n_face),coor_y(NXB,NZB,n_face),coor_x(NYB,NZB,n_face))
|
||||||
|
ALLOCATE(pvec_z(3,NXB*NYB),pvec_y(3,NXB*NZB),pvec_x(3,NYB*NZB))
|
||||||
|
ALLOCATE(tvec_z(3,NXB*NYB),tvec_y(3,NXB*NZB),tvec_x(3,NYB*NZB))
|
||||||
|
ALLOCATE(ZZ_min(X_max),ZZ_max(X_max),XX_min(Y_max),XX_max(Y_max),YY_min(Z_max),YY_max(Z_max))
|
||||||
|
ALLOCATE(coor_z_min(X_max),coor_z_max(X_max),coor_x_min(Y_max),coor_x_max(Y_max),coor_y_min(Z_max),coor_y_max(Z_max))
|
||||||
|
ALLOCATE(mmz_per(NXB*NYB),mmy_per(NXB*NZB),mmx_per(NYB*NZB))
|
||||||
|
ALLOCATE(crosspoint_ZZ(X_max,NXB*NYB),crosspoint_YY(X_max,NXB*NZB),crosspoint_XX(Y_max,NYB*NZB))
|
||||||
|
ALLOCATE( Face_Triangle_NormVect(3,n_face))
|
||||||
|
orig_z=0.0D0
|
||||||
|
orig_y=0.0D0
|
||||||
|
orig_x=0.0D0
|
||||||
|
vert0=0.0D0
|
||||||
|
vert1=0.0D0
|
||||||
|
vert2=0.0D0
|
||||||
|
edge1=0.0D0
|
||||||
|
edge2=0.0D0
|
||||||
|
det_z=0.0D0
|
||||||
|
det_x=0.0D0
|
||||||
|
det_y=0.0D0
|
||||||
|
u_z=0.0D0
|
||||||
|
u_x=0.0D0
|
||||||
|
u_y=0.0D0
|
||||||
|
v_z=0.0D0
|
||||||
|
v_x=0.0D0
|
||||||
|
v_y=0.0D0
|
||||||
|
t_z=0.0D0
|
||||||
|
t_x=0.0D0
|
||||||
|
t_y=0.0D0
|
||||||
|
pvec_z=0.0D0
|
||||||
|
pvec_x=0.0D0
|
||||||
|
pvec_y=0.0D0
|
||||||
|
tvec_z=0.0D0
|
||||||
|
tvec_x=0.0D0
|
||||||
|
tvec_y=0.0D0
|
||||||
|
mmz=0
|
||||||
|
mmx=0
|
||||||
|
mmy=0
|
||||||
|
mmz_per=0
|
||||||
|
mmx_per=0
|
||||||
|
mmy_per=0
|
||||||
|
dir_z = [0.D0,0.D0,1.D0]
|
||||||
|
dir_y = [0.D0,1.D0,0.D0]
|
||||||
|
dir_x = [1.D0,0.D0,0.D0]
|
||||||
|
!=====================================Möller-Trumbore algorithm===========================================
|
||||||
|
vert0(1,:) = Vert(Triangular_face_element(:)%node_point1%point_number)%Coord_X
|
||||||
|
vert0(2,:) = Vert(Triangular_face_element(:)%node_point1%point_number)%Coord_Y
|
||||||
|
vert0(3,:) = Vert(Triangular_face_element(:)%node_point1%point_number)%Coord_Z
|
||||||
|
|
||||||
|
vert1(1,:) = Vert(Triangular_face_element(:)%node_point2%point_number)%Coord_X
|
||||||
|
vert1(2,:) = Vert(Triangular_face_element(:)%node_point2%point_number)%Coord_Y
|
||||||
|
vert1(3,:) = Vert(Triangular_face_element(:)%node_point2%point_number)%Coord_Z
|
||||||
|
|
||||||
|
vert2(1,:) = Vert(Triangular_face_element(:)%node_point3%point_number)%Coord_X
|
||||||
|
vert2(2,:) = Vert(Triangular_face_element(:)%node_point3%point_number)%Coord_Y
|
||||||
|
vert2(3,:) = Vert(Triangular_face_element(:)%node_point3%point_number)%Coord_Z
|
||||||
|
|
||||||
|
edge1 = vert1 - vert0
|
||||||
|
edge2 = vert2 - vert0
|
||||||
|
DO i0=1,n_face
|
||||||
|
Face_Triangle_NormVect(1,i0)=edge1(2,i0) * edge2(3,i0)-edge1(3,i0) * edge2(2,i0)
|
||||||
|
Face_Triangle_NormVect(2,i0)=edge1(3,i0) * edge2(1,i0)-edge1(1,i0) * edge2(3,i0)
|
||||||
|
Face_Triangle_NormVect(3,i0)=edge1(1,i0) * edge2(2,i0)-edge1(2,i0) * edge2(1,i0)
|
||||||
|
ENDDO
|
||||||
|
print*,'Ray tracing begins'
|
||||||
|
!call OMP_SET_NUM_THREADS(16)
|
||||||
|
!$OMP PARALLEL DO PRIVATE(i0,j1,i1,Rz,kk,kkk,verts_Dotmultp)
|
||||||
|
!get the intersaction of ray and z-face and save it into "crosspoint_z"
|
||||||
|
Do j1=Y_min,Y_max
|
||||||
|
Do i1=X_min,X_max
|
||||||
|
Rz=(j1-1)*NXB+i1
|
||||||
|
DO i0=1,n_face
|
||||||
|
orig_z(1,Rz)=coordinates_x(i1)
|
||||||
|
orig_z(2,Rz)=coordinates_y(j1)
|
||||||
|
orig_z(3,Rz)=coordinates_z(1)
|
||||||
|
tvec_z(1:3,Rz) = orig_z(1:3,Rz) - vert0(1:3,i0)
|
||||||
|
pvec_z(1,Rz) = dir_z(2)*edge2(3,i0) - dir_z(3)*edge2(2,i0)
|
||||||
|
pvec_z(2,Rz) = dir_z(3)*edge2(1,i0) - dir_z(1)*edge2(3,i0)
|
||||||
|
pvec_z(3,Rz) = dir_z(1)*edge2(2,i0) - dir_z(2)*edge2(1,i0)
|
||||||
|
det_z(Rz)=edge1(1,i0)*pvec_z(1,Rz)+edge1(2,i0)*pvec_z(2,Rz)+edge1(3,i0)*pvec_z(3,Rz)
|
||||||
|
IF (abs(det_z(Rz)) < eps105) THEN
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
u_z(Rz) = (tvec_z(1,Rz)*pvec_z(1,Rz)+tvec_z(2,Rz)*pvec_z(2,Rz)+tvec_z(3,Rz)*pvec_z(3,Rz))/det_z(Rz)
|
||||||
|
IF (u_z(Rz) < 0.0 .or. u_z(Rz) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
pvec_z(1,Rz) = tvec_z(2,Rz)*edge1(3,i0) - tvec_z(3,Rz)*edge1(2,i0)
|
||||||
|
pvec_z(2,Rz) = tvec_z(3,Rz)*edge1(1,i0) - tvec_z(1,Rz)*edge1(3,i0)
|
||||||
|
pvec_z(3,Rz) = tvec_z(1,Rz)*edge1(2,i0) - tvec_z(2,Rz)*edge1(1,i0)
|
||||||
|
v_z(Rz) = (dir_z(1)*pvec_z(1,Rz)+dir_z(2)*pvec_z(2,Rz)+dir_z(3)*pvec_z(3,Rz))/det_z(Rz)
|
||||||
|
IF (v_z(Rz) < 0.0 .or. u_z(Rz) + v_z(Rz) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
t_z(Rz)=(edge2(1,i0)*pvec_z(1,Rz)+edge2(2,i0)*pvec_z(2,Rz)+edge2(3,i0)*pvec_z(3,Rz))/det_z(Rz)
|
||||||
|
coor_z(i1,j1,i0)%Global_Coord%Coord_X = orig_z(1,Rz) + t_z(Rz) * dir_z(1)
|
||||||
|
coor_z(i1,j1,i0)%Global_Coord%Coord_Y = orig_z(2,Rz) + t_z(Rz) * dir_z(2)
|
||||||
|
coor_z(i1,j1,i0)%Global_Coord%Coord_Z = orig_z(3,Rz) + t_z(Rz) * dir_z(3)
|
||||||
|
mmz_per(Rz) = mmz_per(Rz) + 1 !The number of z-direction intersections of each facet element is stored
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_X = coor_z(i1,j1,i0)%Global_Coord%Coord_X
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Y = coor_z(i1,j1,i0)%Global_Coord%Coord_Y
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Z = coor_z(i1,j1,i0)%Global_Coord%Coord_Z
|
||||||
|
IF(mmz_per(Rz)>1)THEN
|
||||||
|
IF(ABS(crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Z-crosspoint_ZZ((mmz_per(Rz)-1),Rz)%Global_Coord%Coord_Z)<eps105)THEN
|
||||||
|
mmz_per(Rz) = mmz_per(Rz) - 1
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
!*********************************Determine the intersection_Z attribute*******************************
|
||||||
|
verts_Dotmultp = dir_z(1) * Face_Triangle_NormVect(1,i0) + dir_z(2) * Face_Triangle_NormVect(2,i0) + dir_z(3) * Face_Triangle_NormVect(3,i0)
|
||||||
|
if(verts_Dotmultp > 0.D0) THEN
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Log_In=.TRUE.
|
||||||
|
ELSE
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Log_In=.FALSE.
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(mmz_per(Rz)>1)THEN
|
||||||
|
DO kk=2,mmz_per(Rz)
|
||||||
|
DO kkk=1,kk-1
|
||||||
|
IF(crosspoint_ZZ(kk,Rz)%Global_Coord%Coord_Z<crosspoint_ZZ(kkk,Rz)%Global_Coord%Coord_Z)THEN
|
||||||
|
CALL SWAP(crosspoint_ZZ(kk,Rz), crosspoint_ZZ(kkk,Rz))
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END PARALLEL DO
|
||||||
|
!get the intersaction of ray and y-face and save it into "crosspoint_y"
|
||||||
|
!=======================================================================================================
|
||||||
|
!$OMP PARALLEL DO PRIVATE(i0,k2,i2,Ry,jj,jjj,verts_Dotmultp)
|
||||||
|
Do i2=X_min,X_max
|
||||||
|
Do k2=Z_min,Z_max
|
||||||
|
Ry=(i2-1)*NZB+k2
|
||||||
|
DO i0=1,n_face
|
||||||
|
orig_y(1,Ry)=coordinates_x(i2)
|
||||||
|
orig_y(2,Ry)=coordinates_y(1)
|
||||||
|
orig_y(3,Ry)=coordinates_z(k2)
|
||||||
|
tvec_y(1:3,Ry) = orig_y(1:3,Ry) - vert0(1:3,i0)
|
||||||
|
pvec_y(1,Ry) = dir_y(2)*edge2(3,i0) - dir_y(3)*edge2(2,i0)
|
||||||
|
pvec_y(2,Ry) = dir_y(3)*edge2(1,i0) - dir_y(1)*edge2(3,i0)
|
||||||
|
pvec_y(3,Ry) = dir_y(1)*edge2(2,i0) - dir_y(2)*edge2(1,i0)
|
||||||
|
det_y(Ry)=edge1(1,i0)*pvec_y(1,Ry)+edge1(2,i0)*pvec_y(2,Ry)+edge1(3,i0)*pvec_y(3,Ry)
|
||||||
|
IF (abs(det_y(Ry)) < eps105) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
u_y(Ry) = (tvec_y(1,Ry)*pvec_y(1,Ry)+tvec_y(2,Ry)*pvec_y(2,Ry)+tvec_y(3,Ry)*pvec_y(3,Ry))/det_y(Ry)
|
||||||
|
IF (u_y(Ry) < 0.0 .or. u_y(Ry) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
pvec_y(1,Ry) = tvec_y(2,Ry)*edge1(3,i0) - tvec_y(3,Ry)*edge1(2,i0)
|
||||||
|
pvec_y(2,Ry) = tvec_y(3,Ry)*edge1(1,i0) - tvec_y(1,Ry)*edge1(3,i0)
|
||||||
|
pvec_y(3,Ry) = tvec_y(1,Ry)*edge1(2,i0) - tvec_y(2,Ry)*edge1(1,i0)
|
||||||
|
v_y(Ry) = (dir_y(1)*pvec_y(1,Ry)+dir_y(2)*pvec_y(2,Ry)+dir_y(3)*pvec_y(3,Ry))/det_y(Ry)
|
||||||
|
IF (v_y(Ry) < 0.0 .or. u_y(Ry) + v_y(Ry) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
t_y(Ry)=(edge2(1,i0)*pvec_y(1,Ry)+edge2(2,i0)*pvec_y(2,Ry)+edge2(3,i0)*pvec_y(3,Ry))/det_y(Ry)
|
||||||
|
coor_y(i2,k2,i0)%Global_Coord%Coord_X = orig_y(1,Ry) + t_y(Ry) * dir_y(1)
|
||||||
|
coor_y(i2,k2,i0)%Global_Coord%Coord_Y = orig_y(2,Ry) + t_y(Ry) * dir_y(2)
|
||||||
|
coor_y(i2,k2,i0)%Global_Coord%Coord_Z = orig_y(3,Ry) + t_y(Ry) * dir_y(3)
|
||||||
|
mmy_per(Ry) = mmy_per(Ry) + 1 !The number of y-direction intersections of each facet element is stored
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_X = coor_y(i2,k2,i0)%Global_Coord%Coord_X
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y = coor_y(i2,k2,i0)%Global_Coord%Coord_Y
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Z = coor_y(i2,k2,i0)%Global_Coord%Coord_Z
|
||||||
|
IF(mmy_per(Ry)>1)THEN
|
||||||
|
IF(ABS(crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y-crosspoint_YY((mmy_per(Ry)-1),Ry)%Global_Coord%Coord_Y)<eps105)THEN
|
||||||
|
mmy_per(Ry) = mmy_per(Ry) - 1
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
!*********************************Determine the intersection_Y attribute*******************************
|
||||||
|
verts_Dotmultp = dir_y(1) * Face_Triangle_NormVect(1,i0) + dir_y(2) * Face_Triangle_NormVect(2,i0) + dir_y(3) * Face_Triangle_NormVect(3,i0)
|
||||||
|
if(verts_Dotmultp > 0.D0)THEN
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Log_In=.TRUE.
|
||||||
|
ELSE
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Log_In=.FALSE.
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(mmy_per(Ry)>1)THEN
|
||||||
|
DO jj=2,mmy_per(Ry)
|
||||||
|
DO jjj=1,jj-1
|
||||||
|
IF(crosspoint_YY(jj,Ry)%Global_Coord%Coord_Y<crosspoint_YY(jjj,Ry)%Global_Coord%Coord_Y)THEN
|
||||||
|
CALL SWAP(crosspoint_YY(jj,Ry), crosspoint_YY(jjj,Ry))
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END PARALLEL DO
|
||||||
|
!get the intersaction of ray and y-face and save it into "crosspoint_x"
|
||||||
|
!=======================================================================================================
|
||||||
|
!$OMP PARALLEL DO PRIVATE(i0,k3,j3,ii,iii,Rx,verts_Dotmultp)
|
||||||
|
Do k3=Z_min,Z_max
|
||||||
|
Do j3=Y_min,Y_max
|
||||||
|
Rx=(k3-1)*NYB+j3
|
||||||
|
DO i0=1,n_face
|
||||||
|
orig_x(1,Rx)=coordinates_x(1)
|
||||||
|
orig_x(2,Rx)=coordinates_y(j3)
|
||||||
|
orig_x(3,Rx)=coordinates_z(k3)
|
||||||
|
tvec_x(1:3,Rx) = orig_x(1:3,Rx) - vert0(1:3,i0)
|
||||||
|
pvec_x(1,Rx) = dir_x(2)*edge2(3,i0) - dir_x(3)*edge2(2,i0)
|
||||||
|
pvec_x(2,Rx) = dir_x(3)*edge2(1,i0) - dir_x(1)*edge2(3,i0)
|
||||||
|
pvec_x(3,Rx) = dir_x(1)*edge2(2,i0) - dir_x(2)*edge2(1,i0)
|
||||||
|
det_x(Rx)=edge1(1,i0)*pvec_x(1,Rx)+edge1(2,i0)*pvec_x(2,Rx)+edge1(3,i0)*pvec_x(3,Rx)
|
||||||
|
IF (abs(det_x(Rx)) < eps105) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
u_x(Rx) = (tvec_x(1,Rx)*pvec_x(1,Rx)+tvec_x(2,Rx)*pvec_x(2,Rx)+tvec_x(3,Rx)*pvec_x(3,Rx))/det_x(Rx)
|
||||||
|
IF (u_x(Rx) < 0.0 .or. u_x(Rx) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
pvec_x(1,Rx) = tvec_x(2,Rx)*edge1(3,i0) - tvec_x(3,Rx)*edge1(2,i0)
|
||||||
|
pvec_x(2,Rx) = tvec_x(3,Rx)*edge1(1,i0) - tvec_x(1,Rx)*edge1(3,i0)
|
||||||
|
pvec_x(3,Rx) = tvec_x(1,Rx)*edge1(2,i0) - tvec_x(2,Rx)*edge1(1,i0)
|
||||||
|
v_x(Rx) = (dir_x(1)*pvec_x(1,Rx)+dir_x(2)*pvec_x(2,Rx)+dir_x(3)*pvec_x(3,Rx))/det_x(Rx)
|
||||||
|
IF (v_x(Rx) < 0.0 .or. u_x(Rx) + v_x(Rx) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
t_x(Rx)=(edge2(1,i0)*pvec_x(1,Rx)+edge2(2,i0)*pvec_x(2,Rx)+edge2(3,i0)*pvec_x(3,Rx))/det_x(Rx)
|
||||||
|
coor_x(j3,k3,i0)%Global_Coord%Coord_X = orig_x(1,Rx) + t_x(Rx) * dir_x(1)
|
||||||
|
coor_x(j3,k3,i0)%Global_Coord%Coord_Y = orig_x(2,Rx) + t_x(Rx) * dir_x(2)
|
||||||
|
coor_x(j3,k3,i0)%Global_Coord%Coord_Z = orig_x(3,Rx) + t_x(Rx) * dir_x(3)
|
||||||
|
mmx_per(Rx) = mmx_per(Rx) + 1 !The number of x-direction intersections of each facet element is stored
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X = coor_x(j3,k3,i0)%Global_Coord%Coord_X
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Y = coor_x(j3,k3,i0)%Global_Coord%Coord_Y
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Z = coor_x(j3,k3,i0)%Global_Coord%Coord_Z
|
||||||
|
IF(mmx_per(Rx)>1)THEN
|
||||||
|
IF(ABS(crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X-crosspoint_XX((mmx_per(Rx)-1),Rx)%Global_Coord%Coord_X)<eps105)THEN
|
||||||
|
mmx_per(Rx) = mmx_per(Rx) - 1
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
!*********************************Determine the intersection_X attribute*******************************
|
||||||
|
verts_Dotmultp = dir_x(1) * Face_Triangle_NormVect(1,i0) + dir_x(2) * Face_Triangle_NormVect(2,i0) + dir_x(3) * Face_Triangle_NormVect(3,i0)
|
||||||
|
if(verts_Dotmultp > 0.D0)THEN
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Log_In=.TRUE.
|
||||||
|
ELSE
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Log_In=.FALSE.
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(mmx_per(Rx)>1)THEN
|
||||||
|
DO ii=2,mmx_per(Rx)
|
||||||
|
DO iii=1,mmx_per(Rx)-1
|
||||||
|
IF(crosspoint_XX(ii,Rx)%Global_Coord%Coord_X<crosspoint_XX(iii,Rx)%Global_Coord%Coord_X)THEN
|
||||||
|
CALL SWAP(crosspoint_XX(ii,Rx), crosspoint_XX(iii,Rx))
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END PARALLEL DO
|
||||||
|
!=======================================================================================================
|
||||||
|
!=========================================================================================================
|
||||||
|
!$OMP PARALLEL
|
||||||
|
!$OMP DO PRIVATE(ii)
|
||||||
|
Do j1=Y_min,Y_max
|
||||||
|
coor_x_min(j1)=minval(coor_x(j1,:,:)%Global_Coord%Coord_X)
|
||||||
|
coor_x_max(j1)=maxval(coor_x(j1,:,:)%Global_Coord%Coord_X)
|
||||||
|
XX_min(j1) = -1
|
||||||
|
XX_max(j1) = -1
|
||||||
|
DO ii=1,NX
|
||||||
|
IF(coordinates_x(ii)>=coor_x_min(j1).and.XX_min(j1) == -1)THEN
|
||||||
|
XX_min(j1)=ii-1
|
||||||
|
ENDIF
|
||||||
|
IF(coordinates_x(ii)>=coor_x_max(j1).and.XX_max(j1) == -1)THEN
|
||||||
|
XX_max(j1)=ii
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END DO
|
||||||
|
!'Calculate the projection of the anomalous volume on the y-plane'
|
||||||
|
!$OMP DO PRIVATE(kk)
|
||||||
|
Do i2=X_min,X_max
|
||||||
|
coor_z_min(i2)=minval(coor_z(i2,:,:)%Global_Coord%Coord_Z)
|
||||||
|
coor_z_max(i2)=maxval(coor_z(i2,:,:)%Global_Coord%Coord_Z)
|
||||||
|
ZZ_min(i2) = -1
|
||||||
|
ZZ_max(i2) = -1
|
||||||
|
DO kk=1,NZ
|
||||||
|
IF(coordinates_z(kk)>=coor_z_min(i2).and.ZZ_min(i2) == -1)THEN
|
||||||
|
ZZ_min(i2)=kk-1
|
||||||
|
ENDIF
|
||||||
|
IF(coordinates_z(kk)>=coor_z_max(i2).and.ZZ_max(i2) == -1)THEN
|
||||||
|
ZZ_max(i2)=kk
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END DO
|
||||||
|
!'Calculate the projection of the anomalous volume on the x-plane'
|
||||||
|
!$OMP DO PRIVATE(jj)
|
||||||
|
DO k3=Z_min,Z_max
|
||||||
|
coor_y_min(k3)=minval(coor_y(:,k3,:)%Global_Coord%Coord_Y)
|
||||||
|
coor_y_max(k3)=maxval(coor_y(:,k3,:)%Global_Coord%Coord_Y)
|
||||||
|
YY_min(k3) = -1
|
||||||
|
YY_max(k3) = -1
|
||||||
|
DO jj=1,NY
|
||||||
|
IF(coordinates_y(jj)>=coor_y_min(k3).and.YY_min(k3) == -1)THEN
|
||||||
|
YY_min(k3)=jj-1
|
||||||
|
ENDIF
|
||||||
|
IF(coordinates_y(jj)>=coor_y_max(k3).and.YY_max(k3) == -1)THEN
|
||||||
|
YY_max(k3)=jj
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END DO
|
||||||
|
!$OMP END PARALLEL
|
||||||
|
print*,'The projection calculation of the model in three directions is completed.'
|
||||||
|
!=========================================================================================================
|
||||||
|
!=====================================Calculate the electric conductivity===========================================
|
||||||
|
!Calculate the electric conductivity of z-dection
|
||||||
|
DO j=Y_min,Y_max
|
||||||
|
DO i=XX_min(j),XX_max(j)
|
||||||
|
Rz=(j-1)*NXB+i
|
||||||
|
IF (mod(mmz_per(Rz),2)==0 .and. mmz_per(Rz)/=0) THEN !The case of an even number of intersection points
|
||||||
|
idx_start=0
|
||||||
|
idx_end=0
|
||||||
|
Logic_1=.false.
|
||||||
|
Logic_2=.false.
|
||||||
|
DO KK=1,mmz_per(Rz)
|
||||||
|
IF(crosspoint_ZZ(KK,Rz)%Log_In)THEN !The intersection point is the entry point
|
||||||
|
idx_start=KK
|
||||||
|
ELSEIF(.NOT.crosspoint_ZZ(KK,Rz)%Log_In)THEN !The intersection point is the exit point
|
||||||
|
idx_end=KK
|
||||||
|
ENDIF
|
||||||
|
IF((idx_start>0).AND.(idx_end>0))THEN !There are both entry and exit points on the ray simultaneously
|
||||||
|
DO k=1,NZ
|
||||||
|
Logic_1=((coordinates_z(k)<=crosspoint_ZZ(idx_start,Rz)%Global_Coord%Coord_Z).AND.&
|
||||||
|
&(coordinates_z(k+1)>=crosspoint_ZZ(idx_start,Rz)%Global_Coord%Coord_Z))
|
||||||
|
Logic_2=((coordinates_z(k)<=crosspoint_ZZ(idx_end,Rz)%Global_Coord%Coord_Z).AND.&
|
||||||
|
&(coordinates_z(k+1)>=crosspoint_ZZ(idx_end,Rz)%Global_Coord%Coord_Z))
|
||||||
|
IF(Logic_1) KIdx_1=k
|
||||||
|
IF(Logic_2) KIdx_2=k
|
||||||
|
IF(Logic_1.and.Logic_2) EXIT
|
||||||
|
ENDDO
|
||||||
|
IF(idx_start<idx_end) THEN !The ray first penetrate the stratum and enter the anomalous body
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGZ(i,j,KIdx_1) = (crosspoint_ZZ(idx_end,Rz)%Global_Coord%Coord_Z-crosspoint_ZZ(idx_start,Rz)%Global_Coord%Coord_Z)/Cdelz(KIdx_1)
|
||||||
|
CCSIGZ(i,j,KIdx_1) = tao_abnormal * LenRatio_CCSIGZ(i,j,KIdx_1)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGZ(i,j,KIdx_1))
|
||||||
|
ELSEIF(KIdx_2 > KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGZ(i,j,KIdx_1) = (crosspoint_ZZ(idx_start,Rz)%Global_Coord%Coord_Z-coordinates_z(KIdx_1))/Cdelz(KIdx_1)
|
||||||
|
LenRatio_CCSIGZ(i,j,KIdx_2) = (crosspoint_ZZ(idx_end,Rz)%Global_Coord%Coord_Z-coordinates_z(KIdx_2))/Cdelz(KIdx_2)
|
||||||
|
CCSIGZ(i,j,KIdx_1) = TAR_CONDUCTIVITY(2) * LenRatio_CCSIGZ(i,j,KIdx_1) + tao_abnormal * (1-LenRatio_CCSIGZ(i,j,KIdx_1))
|
||||||
|
CCSIGZ(i,j,(KIdx_1+1):(KIdx_2-1)) = tao_abnormal
|
||||||
|
CCSIGZ(i,j,KIdx_2) = tao_abnormal * LenRatio_CCSIGZ(i,j,KIdx_2)+TAR_CONDUCTIVITY(2) * (1-LenRatio_CCSIGZ(i,j,KIdx_2))
|
||||||
|
ENDIF
|
||||||
|
ELSE !The ray first emerges from the anomaly and penetrates the stratum
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGZ(i,j,KIdx_1) = (crosspoint_ZZ(idx_start,Rz)%Global_Coord%Coord_Z-crosspoint_ZZ(idx_end,Rz)%Global_Coord%Coord_Z)/Cdelz(KIdx_1)
|
||||||
|
CCSIGZ(i,j,KIdx_1) = tao_abnormal * LenRatio_CCSIGZ(i,j,KIdx_1)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGZ(i,j,KIdx_1))
|
||||||
|
ELSEIF(KIdx_2 < KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGZ(i,j,KIdx_1) = (coordinates_z(KIdx_1+1)-crosspoint_ZZ(idx_start,Rz)%Global_Coord%Coord_Z)/Cdelz(KIdx_1)
|
||||||
|
LenRatio_CCSIGZ(i,j,KIdx_2) = (crosspoint_ZZ(idx_end,Rz)%Global_Coord%Coord_Z-coordinates_z(KIdx_2))/Cdelz(KIdx_2)
|
||||||
|
ENDIF
|
||||||
|
CCSIGZ(i,j,KIdx_2) = LenRatio_CCSIGZ(i,j,KIdx_2)*tao_abnormal+(1-LenRatio_CCSIGZ(i,j,KIdx_2))*TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGZ(i,j,(KIdx_2+1):(KIdx_1-1)) = TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGZ(i,j,KIdx_1) = TAR_CONDUCTIVITY(2)*LenRatio_CCSIGZ(i,j,KIdx_1)+(1-LenRatio_CCSIGZ(i,j,KIdx_1))*tao_abnormal
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ELSEIF(mod(mmz_per(Rz),2)==1)THEN
|
||||||
|
print*,'z-dection!!!ERROR!!!ERROR!!!ERROR!!!'
|
||||||
|
print*,i,j
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
print*,'The equivalent conductivity calculation in the z direction is completed!'
|
||||||
|
!Calculate the electric conductivity of x-dection
|
||||||
|
DO k=Z_min,Z_max
|
||||||
|
DO j=YY_min(k),YY_max(k)
|
||||||
|
Rx=(k-1)*NYB+j
|
||||||
|
IF (mod(mmx_per(Rx),2)==0.and.mmx_per(Rx)/=0) THEN !The case of an even number of intersection points
|
||||||
|
idx_start=0
|
||||||
|
idx_end=0
|
||||||
|
Logic_1=.false.
|
||||||
|
Logic_2=.false.
|
||||||
|
DO II=1,mmx_per(Rx)
|
||||||
|
IF(crosspoint_XX(II,Rx)%Log_In)THEN !The intersection point is the entry point
|
||||||
|
idx_start=II
|
||||||
|
ELSEIF(.NOT.crosspoint_XX(II,Rx)%Log_In)THEN !The intersection point is the exit point
|
||||||
|
idx_end=II
|
||||||
|
ENDIF
|
||||||
|
IF((idx_start>0).AND.(idx_end>0))THEN !There are both entry and exit points on the ray simultaneously
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=((coordinates_x(i)<=crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X).AND.&
|
||||||
|
&(coordinates_x(i+1)>=crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X))
|
||||||
|
Logic_2=((coordinates_x(i)<=crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X).AND.&
|
||||||
|
&(coordinates_x(i+1)>=crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X))
|
||||||
|
IF(Logic_1) KIdx_1=i
|
||||||
|
IF(Logic_2) KIdx_2=i
|
||||||
|
IF(Logic_1.and.Logic_2) EXIT
|
||||||
|
ENDDO
|
||||||
|
IF(idx_start<idx_end) THEN !The ray first penetrate the stratum and enter the anomalous body
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,j,k) = (crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X-crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X)/Cdelx(KIdx_1)
|
||||||
|
CCSIGX(KIdx_1,j,k) = tao_abnormal * LenRatio_CCSIGX(KIdx_1,j,k)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGX(KIdx_1,j,k))
|
||||||
|
ELSEIF(KIdx_2 > KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,j,k) = (crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_1))/Cdelx(KIdx_1)
|
||||||
|
LenRatio_CCSIGX(KIdx_2,j,k) = (crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_2))/Cdelx(KIdx_2)
|
||||||
|
CCSIGX(KIdx_1,j,k) = TAR_CONDUCTIVITY(2) * LenRatio_CCSIGX(KIdx_1,j,k) + tao_abnormal * (1-LenRatio_CCSIGX(KIdx_1,j,k))
|
||||||
|
CCSIGX((KIdx_1+1):(KIdx_2-1),j,k) = tao_abnormal
|
||||||
|
CCSIGX(KIdx_2,j,k) = tao_abnormal * LenRatio_CCSIGX(KIdx_2,j,k)+TAR_CONDUCTIVITY(2) * (1-LenRatio_CCSIGX(KIdx_2,j,k))
|
||||||
|
ENDIF
|
||||||
|
ELSE !The ray first emerges from the anomaly and penetrates the stratum
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,j,k) = (crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X-crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X)/Cdelx(KIdx_1)
|
||||||
|
CCSIGX(KIdx_1,j,k) = tao_abnormal * LenRatio_CCSIGX(KIdx_1,j,k)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGX(KIdx_1,j,k))
|
||||||
|
ELSEIF(KIdx_2 < KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,j,k) = (coordinates_x(KIdx_1+1)-crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X)/Cdelx(KIdx_1)
|
||||||
|
LenRatio_CCSIGX(KIdx_2,j,k) = (crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_2))/Cdelx(KIdx_2)
|
||||||
|
ENDIF
|
||||||
|
CCSIGX(KIdx_2,j,k) = tao_abnormal*LenRatio_CCSIGX(KIdx_2,j,k)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGX(KIdx_2,j,k))
|
||||||
|
CCSIGX((KIdx_2+1):(KIdx_1-1),j,k) = TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGX(KIdx_1,j,k) = TAR_CONDUCTIVITY(2)*LenRatio_CCSIGX(KIdx_1,j,k)+tao_abnormal*(1-LenRatio_CCSIGX(KIdx_1,j,k))
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ELSEIF(mod(mmx_per(Rx),2)==1)THEN
|
||||||
|
print*,'x-dection!!!ERROR!!!ERROR!!!ERROR!!!'
|
||||||
|
print*,j,k,coordinates_y(j),coordinates_z(k)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
print*,'The equivalent conductivity calculation in the x direction is completed!'
|
||||||
|
!===========================================================================================================================================================
|
||||||
|
!Calculate the electric conductivity of y-dection
|
||||||
|
DO i=X_min,X_max
|
||||||
|
DO k=ZZ_min(i),ZZ_max(i)
|
||||||
|
Ry=(i-1)*NZB+k
|
||||||
|
IF (mod(mmy_per(Ry),2)==0.and. mmy_per(Ry)/=0) THEN !The case of an even number of intersection points
|
||||||
|
idx_start=0
|
||||||
|
idx_end=0
|
||||||
|
Logic_1=.false.
|
||||||
|
Logic_2=.false.
|
||||||
|
DO JJ=1,mmy_per(Ry)
|
||||||
|
IF(crosspoint_YY(JJ,Ry)%Log_In)THEN !The intersection point is the entry point
|
||||||
|
idx_start=JJ
|
||||||
|
ELSEIF(.NOT.crosspoint_YY(JJ,Ry)%Log_In)THEN !The intersection point is the exit point
|
||||||
|
idx_end=JJ
|
||||||
|
ENDIF
|
||||||
|
IF((idx_start>0).AND.(idx_end>0))THEN !There are both entry and exit points on the ray simultaneously
|
||||||
|
DO j=1,NY
|
||||||
|
Logic_1=((coordinates_y(j)<=crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y).AND.&
|
||||||
|
&(coordinates_y(j+1)>=crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y))
|
||||||
|
Logic_2=((coordinates_y(j)<=crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y).AND.&
|
||||||
|
&(coordinates_y(j+1)>=crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y))
|
||||||
|
IF(Logic_1) KIdx_1=j
|
||||||
|
IF(Logic_2) KIdx_2=j
|
||||||
|
IF(Logic_1.and.Logic_2) EXIT
|
||||||
|
ENDDO
|
||||||
|
IF(idx_start<idx_end) THEN !The ray first penetrate the stratum and enter the anomalous body
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = (crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y-crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y)/Cdely(KIdx_1)
|
||||||
|
CCSIGY(i,KIdx_1,k) = tao_abnormal * LenRatio_CCSIGY(i,KIdx_1,k)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGY(i,KIdx_1,k))
|
||||||
|
ELSEIF(KIdx_2 > KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = (crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_1))/Cdely(KIdx_1)
|
||||||
|
LenRatio_CCSIGY(i,KIdx_2,k) = (crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_2))/Cdely(KIdx_2)
|
||||||
|
CCSIGY(i,KIdx_1,k) = TAR_CONDUCTIVITY(2) * LenRatio_CCSIGY(i,KIdx_1,k) + tao_abnormal * (1-LenRatio_CCSIGY(i,KIdx_1,k))
|
||||||
|
CCSIGY(i,(KIdx_1+1):(KIdx_2-1),k) = tao_abnormal
|
||||||
|
CCSIGY(i,KIdx_2,k) = tao_abnormal * LenRatio_CCSIGY(i,KIdx_2,k)+TAR_CONDUCTIVITY(2) * (1-LenRatio_CCSIGY(i,KIdx_2,k))
|
||||||
|
ENDIF
|
||||||
|
ELSE !The ray first emerges from the anomaly and penetrates the stratum
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = (crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y-crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y)/Cdely(KIdx_1)
|
||||||
|
CCSIGY(i,KIdx_1,k) = tao_abnormal * LenRatio_CCSIGY(i,KIdx_1,k)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGY(i,KIdx_1,k))
|
||||||
|
ELSEIF(KIdx_2 < KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = (coordinates_y(KIdx_1+1)-crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y)/Cdely(KIdx_1)
|
||||||
|
LenRatio_CCSIGY(i,KIdx_2,k) = (crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_2))/Cdely(KIdx_2)
|
||||||
|
ENDIF
|
||||||
|
CCSIGY(i,KIdx_2,k) = tao_abnormal*LenRatio_CCSIGY(i,KIdx_2,k)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGY(i,KIdx_2,k))
|
||||||
|
CCSIGY(i,(KIdx_2+1):(KIdx_1-1),k) = TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGY(i,KIdx_1,k) = TAR_CONDUCTIVITY(2)*LenRatio_CCSIGY(i,KIdx_1,k)+tao_abnormal*(1-LenRatio_CCSIGY(i,KIdx_1,k))
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ELSEIF(mod(mmy_per(Ry),2)==1)THEN
|
||||||
|
print*,'y-dection!!!ERROR!!!ERROR!!!ERROR!!!'
|
||||||
|
print*,i,k,coordinates_x(i),coordinates_z(k)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
print*,'The equivalent conductivity calculation in the y direction is completed!'
|
||||||
|
|
||||||
|
DEALLOCATE(orig_z,orig_y,orig_x)
|
||||||
|
DEALLOCATE(vert0,vert1,vert2,edge1,edge2)
|
||||||
|
DEALLOCATE(det_z,det_x,det_y)
|
||||||
|
DEALLOCATE(u_z,u_x,u_y)
|
||||||
|
DEALLOCATE(v_z,v_x,v_y)
|
||||||
|
DEALLOCATE(t_z,t_x,t_y)
|
||||||
|
DEALLOCATE(coor_z,coor_y,coor_x)
|
||||||
|
DEALLOCATE(pvec_z,pvec_y,pvec_x)
|
||||||
|
DEALLOCATE(tvec_z,tvec_y,tvec_x)
|
||||||
|
DEALLOCATE(ZZ_min,ZZ_max,XX_min,XX_max,YY_min,YY_max)
|
||||||
|
DEALLOCATE(coor_z_min,coor_z_max,coor_x_min,coor_x_max,coor_y_min,coor_y_max)
|
||||||
|
DEALLOCATE(mmz_per,mmy_per,mmx_per)
|
||||||
|
DEALLOCATE(crosspoint_ZZ,crosspoint_YY,crosspoint_XX)
|
||||||
|
|
||||||
|
|
||||||
|
RETURN
|
||||||
|
END SUBROUTINE anomalous_conformal
|
||||||
@@ -9,14 +9,26 @@ subroutine GetSourcePosition
|
|||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER ii,jj
|
INTEGER ii,jj
|
||||||
is_ex_in_source=0; is_ey_in_source=0
|
is_ex_in_source=0; is_ey_in_source=0
|
||||||
do ii=nxs-(SourceGridNum-1)/2,nxs+(SourceGridNum-1)/2,1
|
IF(Logi_Sourcelenth) THEN !The number of grids occupied by the source is odd
|
||||||
is_ex_in_source(ii,nys-(SourceGridNum-1)/2)=1
|
do ii=nxs-(SourceGridNum-1)/2,nxs+(SourceGridNum-1)/2,1
|
||||||
is_ex_in_source(ii,nys+(SourceGridNum+1)/2)=-1
|
is_ex_in_source(ii,nys-(SourceGridNum-1)/2)=1
|
||||||
end do
|
is_ex_in_source(ii,nys+(SourceGridNum+1)/2)=-1
|
||||||
! Aware that the value of source has both positive and negative parts, or they will cancel each other out.
|
end do
|
||||||
do ii=nys-(SourceGridNum-1)/2,nys+(SourceGridNum-1)/2,1
|
! Aware that the value of source has both positive and negative parts, or they will cancel each other out.
|
||||||
is_ey_in_source(nxs-(SourceGridNum-1)/2,ii)=-1
|
do ii=nys-(SourceGridNum-1)/2,nys+(SourceGridNum-1)/2,1
|
||||||
is_ey_in_source(nxs+(SourceGridNum+1)/2,ii)=1
|
is_ey_in_source(nxs-(SourceGridNum-1)/2,ii)=-1
|
||||||
end do
|
is_ey_in_source(nxs+(SourceGridNum+1)/2,ii)=1
|
||||||
|
end do
|
||||||
|
ELSE !The number of grids occupied by the source is even
|
||||||
|
do ii=nxs-SourceGridNum/2+1,nxs+SourceGridNum/2+1,1
|
||||||
|
is_ex_in_source(ii,nys-(SourceGridNum)/2+1)=1
|
||||||
|
is_ex_in_source(ii,nys+(SourceGridNum)/2+1)=-1
|
||||||
|
end do
|
||||||
|
! Aware that the value of source has both positive and negative parts, or they will cancel each other out.
|
||||||
|
do ii=nys-SourceGridNum/2+1,nys+SourceGridNum/2+1,1
|
||||||
|
is_ey_in_source(nxs-(SourceGridNum)/2+1,ii)=-1
|
||||||
|
is_ey_in_source(nxs+(SourceGridNum)/2+1,ii)=1
|
||||||
|
end do
|
||||||
|
ENDIF
|
||||||
end subroutine GetSourcePosition
|
end subroutine GetSourcePosition
|
||||||
|
|
||||||
|
|||||||
@@ -0,0 +1,101 @@
|
|||||||
|
!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
|
||||||
|
!written by Shangbin Liu(lsbin87@126.com)
|
||||||
|
|
||||||
|
SUBROUTINE Get_Receiver_Gridlabel
|
||||||
|
!This subroutine is used to calculate the global coordinates and grid dispersion at the receiving point
|
||||||
|
USE CONSTANTPARAMETERS
|
||||||
|
USE OMP_LIB
|
||||||
|
IMPLICIT NONE
|
||||||
|
INTEGER ii,i,j,k
|
||||||
|
INTEGER(KIND=4) ::x_pined,y_pined,z_pined
|
||||||
|
REAL(KIND=8) ::volu(8),volu_total
|
||||||
|
|
||||||
|
! -------------------------points_observer_gridlabel-------------------------------------------!
|
||||||
|
!$OMP PARALLEL DO PRIVATE(i,j,k,x_pined,y_pined,z_pined,volu,volu_total)
|
||||||
|
DO ii=1,point_num
|
||||||
|
DO i=1,NX
|
||||||
|
IF(Points_Observer(ii)%Local_Coord_To_Source%Coord_X < Coord_HZ_X(i))THEN
|
||||||
|
x_pined = i-1
|
||||||
|
EXIT !Find the corresponding grid
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
x_pined = MAX(1,MIN(x_pined,NX-1)) !clamp: keep the index in [1,NX-1] even if the receiver is outside the grid
|
||||||
|
DO j=1,NY
|
||||||
|
IF(Points_Observer(ii)%Local_Coord_To_Source%Coord_Y < Coord_HZ_Y(j))THEN
|
||||||
|
y_pined = j-1
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
y_pined = MAX(1,MIN(y_pined,NY-1)) !clamp
|
||||||
|
DO k=1,NZB
|
||||||
|
IF(Points_Observer(ii)%Local_Coord_To_Source%Coord_Z < Coord_HZ_Z(k))THEN
|
||||||
|
z_pined = k-1
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
z_pined = MAX(1,MIN(z_pined,NZB-1)) !clamp
|
||||||
|
!The position of the first HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(1)%Coordmesh_X = x_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(1)%Coordmesh_Y = y_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(1)%Coordmesh_Z = z_pined
|
||||||
|
!The position of the second HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(2)%Coordmesh_X = x_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(2)%Coordmesh_Y = y_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(2)%Coordmesh_Z = z_pined
|
||||||
|
!The position of the 3th HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(3)%Coordmesh_X = x_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(3)%Coordmesh_Y = y_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(3)%Coordmesh_Z = z_pined
|
||||||
|
!The position of the 4th HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(4)%Coordmesh_X = x_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(4)%Coordmesh_Y = y_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(4)%Coordmesh_Z = z_pined
|
||||||
|
!The position of the 5th HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(5)%Coordmesh_X = x_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(5)%Coordmesh_Y = y_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(5)%Coordmesh_Z = z_pined + 1
|
||||||
|
!The position of the 6th HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(6)%Coordmesh_X = x_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(6)%Coordmesh_Y = y_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(6)%Coordmesh_Z = z_pined + 1
|
||||||
|
!The position of the 7th HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(7)%Coordmesh_X = x_pined
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(7)%Coordmesh_Y = y_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(7)%Coordmesh_Z = z_pined + 1
|
||||||
|
!The position of the 8th HZ corresponding to the observation point
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(8)%Coordmesh_X = x_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(8)%Coordmesh_Y = y_pined + 1
|
||||||
|
Points_Observer(ii)%Global_Coordmesh(8)%Coordmesh_Z = z_pined + 1
|
||||||
|
|
||||||
|
volu(1) = (Points_Observer(ii)%Local_Coord_To_Source%Coord_X - Coord_HZ_X(x_pined)) * (Points_Observer(ii)%Local_Coord_To_Source%Coord_Y- Coord_HZ_Y(y_pined)) *&
|
||||||
|
(Points_Observer(ii)%Local_Coord_To_Source%Coord_Z - Coord_HZ_Z(z_pined))
|
||||||
|
volu(2) = (Coord_HZ_X(x_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_X) * (Points_Observer(ii)%Local_Coord_To_Source%Coord_Y- Coord_HZ_Y(y_pined)) *&
|
||||||
|
(Points_Observer(ii)%Local_Coord_To_Source%Coord_Z - Coord_HZ_Z(z_pined))
|
||||||
|
volu(3) = (Points_Observer(ii)%Local_Coord_To_Source%Coord_X - Coord_HZ_X(x_pined)) * (Coord_HZ_Y(y_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Y) *&
|
||||||
|
(Points_Observer(ii)%Local_Coord_To_Source%Coord_Z - Coord_HZ_Z(z_pined))
|
||||||
|
volu(4) = (Coord_HZ_X(x_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_X) * (Coord_HZ_Y(y_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Y) *&
|
||||||
|
(Points_Observer(ii)%Local_Coord_To_Source%Coord_Z - Coord_HZ_Z(z_pined))
|
||||||
|
volu(5) = (Points_Observer(ii)%Local_Coord_To_Source%Coord_X - Coord_HZ_X(x_pined)) * (Points_Observer(ii)%Local_Coord_To_Source%Coord_Y- Coord_HZ_Y(y_pined)) *&
|
||||||
|
(Coord_HZ_Z(z_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Z)
|
||||||
|
volu(6) = (Coord_HZ_X(x_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_X) * (Points_Observer(ii)%Local_Coord_To_Source%Coord_Y- Coord_HZ_Y(y_pined)) *&
|
||||||
|
(Coord_HZ_Z(z_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Z)
|
||||||
|
volu(7) = (Points_Observer(ii)%Local_Coord_To_Source%Coord_X - Coord_HZ_X(x_pined)) * (Coord_HZ_Y(y_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Y) *&
|
||||||
|
(Coord_HZ_Z(z_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Z)
|
||||||
|
volu(8) = (Coord_HZ_X(x_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_X) * (Coord_HZ_Y(y_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Y) *&
|
||||||
|
(Coord_HZ_Z(z_pined+1) - Points_Observer(ii)%Local_Coord_To_Source%Coord_Z)
|
||||||
|
|
||||||
|
volu_total = (Coord_HZ_X(x_pined+1) - Coord_HZ_X(x_pined)) * (Coord_HZ_Y(y_pined+1) - Coord_HZ_Y(y_pined)) * (Coord_HZ_Z(z_pined+1) - Coord_HZ_Z(z_pined))
|
||||||
|
|
||||||
|
Points_Observer(ii)%Coeff(1) = volu(8)/volu_total
|
||||||
|
Points_Observer(ii)%Coeff(2) = volu(7)/volu_total
|
||||||
|
Points_Observer(ii)%Coeff(3) = volu(6)/volu_total
|
||||||
|
Points_Observer(ii)%Coeff(4) = volu(5)/volu_total
|
||||||
|
Points_Observer(ii)%Coeff(5) = volu(4)/volu_total
|
||||||
|
Points_Observer(ii)%Coeff(6) = volu(3)/volu_total
|
||||||
|
Points_Observer(ii)%Coeff(7) = volu(2)/volu_total
|
||||||
|
Points_Observer(ii)%Coeff(8) = volu(1)/volu_total
|
||||||
|
ENDDO
|
||||||
|
!$OMP END PARALLEL DO
|
||||||
|
!------------------------------------------------------------------------------------------!
|
||||||
|
RETURN
|
||||||
|
ENDSUBROUTINE Get_Receiver_Gridlabel
|
||||||
+577
-136
@@ -3,19 +3,477 @@
|
|||||||
!Code distribution @ tdem.org or sunhuaifeng.com
|
!Code distribution @ tdem.org or sunhuaifeng.com
|
||||||
|
|
||||||
! --------------------------------Subroutine part---------------------------------------------!
|
! --------------------------------Subroutine part---------------------------------------------!
|
||||||
subroutine Iteration
|
subroutine Iteration_cpml
|
||||||
use constantparameters
|
use constantparameters
|
||||||
USE CONSTANTPARAMETERS
|
USE CONSTANTPARAMETERS
|
||||||
USE ELECTROMAGNETIC_VARIABLES
|
USE ELECTROMAGNETIC_VARIABLES
|
||||||
USE RES_MODEL_PARAMETER
|
USE RES_MODEL_PARAMETER
|
||||||
USE TIME_PARAMETER
|
USE TIME_PARAMETER
|
||||||
|
USE PML_PARAMETER
|
||||||
implicit none
|
implicit none
|
||||||
real::t1,t2,t !t1 denotes original cpu time at the beginning of each computation fraction, t2 denotes the end cpu time and t=t2-t1
|
real::t1,t2,t,t_start,t_end,t_total !t1 denotes original cpu time at the beginning of each computation fraction, t2 denotes the end cpu time and t=t2-t1
|
||||||
REAL*8 CA,CB,DELX1,DELY1,DELZ1 !ca, cb, delx1, dely1, delz1 are all middle variables used in the computation of EM field
|
REAL*8 CA,CB,DELX1,DELY1,DELZ1 !ca, cb, delx1, dely1, delz1 are all middle variables used in the computation of EM field
|
||||||
REAL*8 TEMP_SIG,temp_cacb !Temp_sig and temp_cacb are middle variables used in the computation of EM field
|
REAL*8 TEMP_SIG,temp_cacb,data_rec(point_num) !Temp_sig and temp_cacb are middle variables used in the computation of EM field
|
||||||
REAL*8 DELY2,DELZ2,delx2 !They are all middle variables as above ones.
|
REAL*8 DELY2,DELZ2,delx2 !They are all middle variables as above ones.
|
||||||
integer num,i,j,k,ii !num is the number of computation fraction
|
integer num,i,j,k,ii,iii,jj,kk,idx_write,x_pos_observer(8),y_pos_observer(8),z_pos_observer(8) !num is the number of computation fraction
|
||||||
|
integer :: N_hight=0
|
||||||
real*8,allocatable::Meps_r(:),Mdelt(:),Msource(:),Mcq(:) !They are local substitution of eps_r, delt and cq
|
real*8,allocatable::Meps_r(:),Mdelt(:),Msource(:),Mcq(:) !They are local substitution of eps_r, delt and cq
|
||||||
|
REAL*8 hz_observer(8)
|
||||||
|
CHARACTER*20::string,str_num
|
||||||
|
|
||||||
|
WRITE(*,*)'[Iteration_cpml] Boundary condition: CPML absorbing boundary (PML = unbounded absorbing layer, uniform grid required)'
|
||||||
|
WRITE(*,*)'[Iteration_cpml] Iteration starts .. .. .. ..'
|
||||||
|
|
||||||
|
!Create output files
|
||||||
|
idx_start=12000
|
||||||
|
do iii=1,point_num
|
||||||
|
idx_write=idx_start+iii
|
||||||
|
IF(iii<10) THEN
|
||||||
|
write(str_num,"(I1)")iii
|
||||||
|
ELSEif(iii<100) THEN
|
||||||
|
write(str_num,"(I2)")iii
|
||||||
|
ELSEif(iii<1000) THEN
|
||||||
|
write(str_num,"(I3)")iii
|
||||||
|
ENDIF
|
||||||
|
string='dBzdt'//"_"//trim(str_num)//'.txt'
|
||||||
|
open(idx_write,file=string)
|
||||||
|
write(idx_write,*)"point_"//trim(str_num)
|
||||||
|
write(idx_write,*)Points_observer(iii)%local_coord_to_source%coord_x,Points_observer(iii)%local_coord_to_source%coord_y,&
|
||||||
|
Points_observer(iii)%local_coord_to_source%coord_z
|
||||||
|
enddo
|
||||||
|
|
||||||
|
call cpu_time(t_start)
|
||||||
|
!OPEN(20250220,file='dBzdt.txt')
|
||||||
|
do num=1,num_fra_com,1 !The outer loop which begins from the first fraction ends at the last fraction
|
||||||
|
call cpu_time(t1) !Record the cpu time at the beginning of each computing fraction
|
||||||
|
allocate(mdelt(0:mstop(num)),meps_r(mstop(num)),mcq(mstop(num)),msource(mstop(num)))
|
||||||
|
! The memory of mdelt, meps_r, mcq and msource are allocated at the begining of fraction
|
||||||
|
do ii=mstart(num),mstart(num)+mstop(num)-1,1
|
||||||
|
mdelt(ii-mstart(num)+1)=delt(ii)
|
||||||
|
meps_r(ii-mstart(num)+1)=eps_r(ii)
|
||||||
|
mcq(ii-mstart(num)+1)=cq(ii)
|
||||||
|
msource(ii-mstart(num)+1)=source(ii) !Link the local value of mdelt, meps_r, mcq and msorce to the global value of delt, eps_r, cq and source array.
|
||||||
|
end do
|
||||||
|
print*,'Now computing fraction:',num
|
||||||
|
mdelt(0)=mdelt(1)
|
||||||
|
do loop=1,mstop(num),1
|
||||||
|
! --------------------------------CPML coefficients b/c of the current time step-------------------------------!
|
||||||
|
! b = exp(-(sig/kappa+alpha)*delt/eps0), c = sig*(b-1)/(sig+kappa*alpha)/kappa
|
||||||
|
! They are recomputed at every step because MDELT changes between the raise, wave, ramp and off phases.
|
||||||
|
! The sigma/alpha/kappa profiles are built once by Get_pml_parameters.
|
||||||
|
! When Logic_PML=0 this whole block is skipped and the original Dirichlet boundary scheme is used.
|
||||||
|
DO i=1,PML_X1
|
||||||
|
b_e_x1(i)=DEXP(-(sig_PML_e_x1(i)/kappa_PML_e_x1(i)+alpha_PML_e_x1(i))*MDELT(LOOP-1)/EPS0)
|
||||||
|
IF(sig_PML_e_x1(i)==0.0 .AND. alpha_PML_e_x1(i)==0.0 .AND. i==PML_X1)THEN
|
||||||
|
c_e_x1(i)=0.0
|
||||||
|
ELSE
|
||||||
|
c_e_x1(i)=sig_PML_e_x1(i)*(b_e_x1(i)-1.0)/(sig_PML_e_x1(i)+kappa_PML_e_x1(i)*alpha_PML_e_x1(i))/kappa_PML_e_x1(i)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO ii=1,PML_X1-1
|
||||||
|
b_h_x1(ii)=DEXP(-(sig_PML_h_x1(ii)/kappa_PML_h_x1(ii)+alpha_PML_h_x1(ii))*MDELT(LOOP-1)/EPS0)
|
||||||
|
c_h_x1(ii)=sig_PML_h_x1(ii)*(b_h_x1(ii)-1.0)/(sig_PML_h_x1(ii)+kappa_PML_h_x1(ii)*alpha_PML_h_x1(ii))/kappa_PML_h_x1(ii)
|
||||||
|
ENDDO
|
||||||
|
DO i=1,PML_X2
|
||||||
|
b_e_x2(i)=DEXP(-(sig_PML_e_x2(i)/kappa_PML_e_x2(i)+alpha_PML_e_x2(i))*MDELT(LOOP-1)/EPS0)
|
||||||
|
IF(sig_PML_e_x2(i)==0.0 .AND. alpha_PML_e_x2(i)==0.0 .AND. i==PML_X2)THEN
|
||||||
|
c_e_x2(i)=0.0
|
||||||
|
ELSE
|
||||||
|
c_e_x2(i)=sig_PML_e_x2(i)*(b_e_x2(i)-1.0)/(sig_PML_e_x2(i)+kappa_PML_e_x2(i)*alpha_PML_e_x2(i))/kappa_PML_e_x2(i)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO ii=1,PML_X2-1
|
||||||
|
b_h_x2(ii)=DEXP(-(sig_PML_h_x2(ii)/kappa_PML_h_x2(ii)+alpha_PML_h_x2(ii))*MDELT(LOOP-1)/EPS0)
|
||||||
|
c_h_x2(ii)=sig_PML_h_x2(ii)*(b_h_x2(ii)-1.0)/(sig_PML_h_x2(ii)+kappa_PML_h_x2(ii)*alpha_PML_h_x2(ii))/kappa_PML_h_x2(ii)
|
||||||
|
ENDDO
|
||||||
|
DO j=1,PML_Y1
|
||||||
|
b_e_y1(j)=DEXP(-(sig_PML_e_y1(j)/kappa_PML_e_y1(j)+alpha_PML_e_y1(j))*MDELT(LOOP-1)/EPS0)
|
||||||
|
IF(sig_PML_e_y1(j)==0.0 .AND. alpha_PML_e_y1(j)==0.0 .AND. j==PML_Y1)THEN
|
||||||
|
c_e_y1(j)=0.0
|
||||||
|
ELSE
|
||||||
|
c_e_y1(j)=sig_PML_e_y1(j)*(b_e_y1(j)-1.0)/(sig_PML_e_y1(j)+kappa_PML_e_y1(j)*alpha_PML_e_y1(j))/kappa_PML_e_y1(j)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO jj=1,PML_Y1-1
|
||||||
|
b_h_y1(jj)=DEXP(-(sig_PML_h_y1(jj)/kappa_PML_h_y1(jj)+alpha_PML_h_y1(jj))*MDELT(LOOP-1)/EPS0)
|
||||||
|
c_h_y1(jj)=sig_PML_h_y1(jj)*(b_h_y1(jj)-1.0)/(sig_PML_h_y1(jj)+kappa_PML_h_y1(jj)*alpha_PML_h_y1(jj))/kappa_PML_h_y1(jj)
|
||||||
|
ENDDO
|
||||||
|
DO j=1,PML_Y2
|
||||||
|
b_e_y2(j)=DEXP(-(sig_PML_e_y2(j)/kappa_PML_e_y2(j)+alpha_PML_e_y2(j))*MDELT(LOOP-1)/EPS0)
|
||||||
|
IF(sig_PML_e_y2(j)==0.0 .AND. alpha_PML_e_y2(j)==0.0 .AND. j==PML_Y2)THEN
|
||||||
|
c_e_y2(j)=0.0
|
||||||
|
ELSE
|
||||||
|
c_e_y2(j)=sig_PML_e_y2(j)*(b_e_y2(j)-1.0)/(sig_PML_e_y2(j)+kappa_PML_e_y2(j)*alpha_PML_e_y2(j))/kappa_PML_e_y2(j)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO jj=1,PML_Y2-1
|
||||||
|
b_h_y2(jj)=DEXP(-(sig_PML_h_y2(jj)/kappa_PML_h_y2(jj)+alpha_PML_h_y2(jj))*MDELT(LOOP-1)/EPS0)
|
||||||
|
c_h_y2(jj)=sig_PML_h_y2(jj)*(b_h_y2(jj)-1.0)/(sig_PML_h_y2(jj)+kappa_PML_h_y2(jj)*alpha_PML_h_y2(jj))/kappa_PML_h_y2(jj)
|
||||||
|
ENDDO
|
||||||
|
DO k=1,PML_Z1
|
||||||
|
b_e_z1(k)=DEXP(-(sig_PML_e_z1(k)/kappa_PML_e_z1(k)+alpha_PML_e_z1(k))*MDELT(LOOP-1)/EPS0)
|
||||||
|
IF(sig_PML_e_z1(k)==0.0 .AND. alpha_PML_e_z1(k)==0.0 .AND. k==PML_Z1)THEN
|
||||||
|
c_e_z1(k)=0.0
|
||||||
|
ELSE
|
||||||
|
c_e_z1(k)=sig_PML_e_z1(k)*(b_e_z1(k)-1.0)/(sig_PML_e_z1(k)+kappa_PML_e_z1(k)*alpha_PML_e_z1(k))/kappa_PML_e_z1(k)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO kk=1,PML_Z1-1
|
||||||
|
b_h_z1(kk)=DEXP(-(sig_PML_h_z1(kk)/kappa_PML_h_z1(kk)+alpha_PML_h_z1(kk))*MDELT(LOOP-1)/EPS0)
|
||||||
|
c_h_z1(kk)=sig_PML_h_z1(kk)*(b_h_z1(kk)-1.0)/(sig_PML_h_z1(kk)+kappa_PML_h_z1(kk)*alpha_PML_h_z1(kk))/kappa_PML_h_z1(kk)
|
||||||
|
ENDDO
|
||||||
|
DO k=1,PML_Z2
|
||||||
|
b_e_z2(k)=DEXP(-(sig_PML_e_z2(k)/kappa_PML_e_z2(k)+alpha_PML_e_z2(k))*MDELT(LOOP-1)/EPS0)
|
||||||
|
IF(sig_PML_e_z2(k)==0.0 .AND. alpha_PML_e_z2(k)==0.0 .AND. k==PML_Z2)THEN
|
||||||
|
c_e_z2(k)=0.0
|
||||||
|
ELSE
|
||||||
|
c_e_z2(k)=sig_PML_e_z2(k)*(b_e_z2(k)-1.0)/(sig_PML_e_z2(k)+kappa_PML_e_z2(k)*alpha_PML_e_z2(k))/kappa_PML_e_z2(k)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO kk=1,PML_Z2-1
|
||||||
|
b_h_z2(kk)=DEXP(-(sig_PML_h_z2(kk)/kappa_PML_h_z2(kk)+alpha_PML_h_z2(kk))*MDELT(LOOP-1)/EPS0)
|
||||||
|
c_h_z2(kk)=sig_PML_h_z2(kk)*(b_h_z2(kk)-1.0)/(sig_PML_h_z2(kk)+kappa_PML_h_z2(kk)*alpha_PML_h_z2(kk))/kappa_PML_h_z2(kk)
|
||||||
|
ENDDO
|
||||||
|
!Assemble c_h_zz used by the Hz recursion in the z direction.
|
||||||
|
DO k=1,PML_Z1-1
|
||||||
|
c_h_zz(k)=c_h_z1(k)
|
||||||
|
ENDDO
|
||||||
|
DO k=NZ+2-PML_Z2,NZ
|
||||||
|
c_h_zz(k)=c_h_z2(NZ+1-k)
|
||||||
|
ENDDO
|
||||||
|
!Precompute the inverse denominator of the Hz recursion once per step
|
||||||
|
!(bit-for-bit neutral when Logic_PML=0: inv_hz_den stays 1.0 from ZERO).
|
||||||
|
DO k=1,NZ
|
||||||
|
inv_hz_den(k)=1.0D0/(den_hz(k)+c_h_zz(k))
|
||||||
|
ENDDO
|
||||||
|
! --------------------------------update the value of Ex ---------------------------------------!
|
||||||
|
! 忠实移植自参考版 tem3dfdtd_第二版（孙师兄版）：psi 内嵌在场更新循环内，
|
||||||
|
! 循环结构 DO I / DO K / DO J；源项仅在源平面 K=NZS+1 施加（当前项目 2D 掩码，
|
||||||
|
! 等价参考版 3D 掩码在非源平面层为 0）。
|
||||||
|
DO I=1,NX
|
||||||
|
DO K=2,NZB-1
|
||||||
|
DO J=2,NYB-1
|
||||||
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
|
CA=(2.0D0*Meps_r(loop)-Mdelt(LOOP-1)*CCSIGX(I,J,K))/(2.0D0*Meps_r(loop)+Mdelt(LOOP-1)*CCSIGX(I,J,K))
|
||||||
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGX(I,J,K))
|
||||||
|
EX(I,J,K)=CA*EX(I,J,K)+CB*((HZ(I,J,K)-HZ(I,J-1,K))*den_ey(J)/DELY1&
|
||||||
|
&-(HY(I,J,K)-HY(I,J,K-1))*den_ez(K)/DELZ1)
|
||||||
|
IF(K==NZS+1)THEN
|
||||||
|
EX(I,J,K)=EX(I,J,K)-CB*Msource(loop)*is_ex_in_source(I,J)
|
||||||
|
ENDIF
|
||||||
|
! PML for Ex, y-direction
|
||||||
|
IF(J<=PML_Y1)THEN
|
||||||
|
psi_Exy_1(I,J,K)=b_e_y1(J)*psi_Exy_1(I,J,K)+c_e_y1(J)*(HZ(I,J,K)-HZ(I,J-1,K))/DELY1
|
||||||
|
EX(I,J,K)=EX(I,J,K)+CB*psi_Exy_1(I,J,K)
|
||||||
|
ELSEIF(J>=NY+2-PML_Y2)THEN
|
||||||
|
psi_Exy_2(I,NY+2-J,K)=b_e_y2(NY+2-J)*psi_Exy_2(I,NY+2-J,K)+c_e_y2(NY+2-J)*(HZ(I,J,K)-HZ(I,J-1,K))/DELY1
|
||||||
|
EX(I,J,K)=EX(I,J,K)+CB*psi_Exy_2(I,NY+2-J,K)
|
||||||
|
ENDIF
|
||||||
|
! PML for Ex, z-direction
|
||||||
|
IF(K<=PML_Z1)THEN
|
||||||
|
psi_Exz_1(I,J,K)=b_e_z1(K)*psi_Exz_1(I,J,K)+c_e_z1(K)*(HY(I,J,K)-HY(I,J,K-1))/DELZ1
|
||||||
|
EX(I,J,K)=EX(I,J,K)-CB*psi_Exz_1(I,J,K)
|
||||||
|
ELSEIF(K>=NZ+2-PML_Z2)THEN
|
||||||
|
psi_Exz_2(I,J,NZ+2-K)=b_e_z2(NZ+2-K)*psi_Exz_2(I,J,NZ+2-K)+c_e_z2(NZ+2-K)*(HY(I,J,K)-HY(I,J,K-1))/DELZ1
|
||||||
|
EX(I,J,K)=EX(I,J,K)-CB*psi_Exz_2(I,J,NZ+2-K)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!===============end of updating Ex=========================!
|
||||||
|
! --------------------------------update the value of Ey ---------------------------------------!
|
||||||
|
DO J=1,NY
|
||||||
|
DO K=2,NZB-1
|
||||||
|
DO I=2,NXB-1
|
||||||
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
||||||
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGY(I,J,K))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
|
EY(I,J,K)=CA*EY(I,J,K)+CB*((HX(I,J,K)-HX(I,J,K-1))*den_ez(K)/DELZ1&
|
||||||
|
&-(HZ(I,J,K)-HZ(I-1,J,K))*den_ex(I)/DELX1)
|
||||||
|
IF(K==NZS+1)THEN
|
||||||
|
EY(I,J,K)=EY(I,J,K)-CB*Msource(loop)*is_ey_in_source(I,J)
|
||||||
|
ENDIF
|
||||||
|
! PML for Ey, z-direction
|
||||||
|
IF(K<=PML_Z1)THEN
|
||||||
|
psi_Eyz_1(I,J,K)=b_e_z1(K)*psi_Eyz_1(I,J,K)+c_e_z1(K)*(HX(I,J,K)-HX(I,J,K-1))/DELZ1
|
||||||
|
EY(I,J,K)=EY(I,J,K)+CB*psi_Eyz_1(I,J,K)
|
||||||
|
ELSEIF(K>=NZ+2-PML_Z2)THEN
|
||||||
|
psi_Eyz_2(I,J,NZ+2-K)=b_e_z2(NZ+2-K)*psi_Eyz_2(I,J,NZ+2-K)+c_e_z2(NZ+2-K)*(HX(I,J,K)-HX(I,J,K-1))/DELZ1
|
||||||
|
EY(I,J,K)=EY(I,J,K)+CB*psi_Eyz_2(I,J,NZ+2-K)
|
||||||
|
ENDIF
|
||||||
|
! PML for Ey, x-direction
|
||||||
|
IF(I<=PML_X1)THEN
|
||||||
|
psi_Eyx_1(I,J,K)=b_e_x1(I)*psi_Eyx_1(I,J,K)+c_e_x1(I)*(HZ(I,J,K)-HZ(I-1,J,K))/DELX1
|
||||||
|
EY(I,J,K)=EY(I,J,K)-CB*psi_Eyx_1(I,J,K)
|
||||||
|
ELSEIF(I>=NX+2-PML_X2)THEN
|
||||||
|
psi_Eyx_2(NX+2-I,J,K)=b_e_x2(NX+2-I)*psi_Eyx_2(NX+2-I,J,K)+c_e_x2(NX+2-I)*(HZ(I,J,K)-HZ(I-1,J,K))/DELX1
|
||||||
|
EY(I,J,K)=EY(I,J,K)-CB*psi_Eyx_2(NX+2-I,J,K)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!===============end of updating Ey===================!
|
||||||
|
! -------------------------------------update the value of Ez--------------------------------------!
|
||||||
|
DO K=1,NZ
|
||||||
|
DO J=2,NYB-1
|
||||||
|
DO I=2,NXB-1
|
||||||
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
||||||
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
|
TEMP_CACB=2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGZ(I,J,K)
|
||||||
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGZ(I,J,K))/TEMP_CACB
|
||||||
|
CB=(2.0D0*MDELT(LOOP-1))/TEMP_CACB
|
||||||
|
EZ(I,J,K)=CA*EZ(I,J,K)+CB*((HY(I,J,K)-HY(I-1,J,K))*den_ex(I)/DELX1&
|
||||||
|
&-(HX(I,J,K)-HX(I,J-1,K))*den_ey(J)/DELY1)
|
||||||
|
! PML for Ez, x-direction
|
||||||
|
IF(I<=PML_X1)THEN
|
||||||
|
psi_Ezx_1(I,J,K)=b_e_x1(I)*psi_Ezx_1(I,J,K)+c_e_x1(I)*(HY(I,J,K)-HY(I-1,J,K))/DELX1
|
||||||
|
EZ(I,J,K)=EZ(I,J,K)+CB*psi_Ezx_1(I,J,K)
|
||||||
|
ELSEIF(I>=NX+2-PML_X2)THEN
|
||||||
|
psi_Ezx_2(NX+2-I,J,K)=b_e_x2(NX+2-I)*psi_Ezx_2(NX+2-I,J,K)+c_e_x2(NX+2-I)*(HY(I,J,K)-HY(I-1,J,K))/DELX1
|
||||||
|
EZ(I,J,K)=EZ(I,J,K)+CB*psi_Ezx_2(NX+2-I,J,K)
|
||||||
|
ENDIF
|
||||||
|
! PML for Ez, y-direction
|
||||||
|
IF(J<=PML_Y1)THEN
|
||||||
|
psi_Ezy_1(I,J,K)=b_e_y1(J)*psi_Ezy_1(I,J,K)+c_e_y1(J)*(HX(I,J,K)-HX(I,J-1,K))/DELY1
|
||||||
|
EZ(I,J,K)=EZ(I,J,K)-CB*psi_Ezy_1(I,J,K)
|
||||||
|
ELSEIF(J>=NY+2-PML_Y2)THEN
|
||||||
|
psi_Ezy_2(I,NY+2-J,K)=b_e_y2(NY+2-J)*psi_Ezy_2(I,NY+2-J,K)+c_e_y2(NY+2-J)*(HX(I,J,K)-HX(I,J-1,K))/DELY1
|
||||||
|
EZ(I,J,K)=EZ(I,J,K)-CB*psi_Ezy_2(I,NY+2-J,K)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!===============end of updating Ez=========================!
|
||||||
|
! ------------------------------------update the value of Hx-----------------------------------------------!
|
||||||
|
DO I=1,NXB
|
||||||
|
DO K=1,NZ
|
||||||
|
DO J=1,NY
|
||||||
|
HX(I,J,K)=HX(I,J,K)-MCQ(LOOP)*((EZ(I,J+1,K)-EZ(I,J,K))*den_hy(J))/CDELY(J)&
|
||||||
|
&+MCQ(LOOP)*((EY(I,J,K+1)-EY(I,J,K))*den_hz(K))/CDELZ(K)
|
||||||
|
! PML for Hx, y-direction
|
||||||
|
IF(J<=PML_Y1-1)THEN
|
||||||
|
psi_Hxy_1(I,J,K)=b_h_y1(J)*psi_Hxy_1(I,J,K)+c_h_y1(J)*(EZ(I,J+1,K)-EZ(I,J,K))/CDELY(J)
|
||||||
|
HX(I,J,K)=HX(I,J,K)-MCQ(LOOP)*psi_Hxy_1(I,J,K)
|
||||||
|
ELSEIF(J>=NY+2-PML_Y2)THEN
|
||||||
|
psi_Hxy_2(I,NY+1-J,K)=b_h_y2(NY+1-J)*psi_Hxy_2(I,NY+1-J,K)+c_h_y2(NY+1-J)*(EZ(I,J+1,K)-EZ(I,J,K))/CDELY(J)
|
||||||
|
HX(I,J,K)=HX(I,J,K)-MCQ(LOOP)*psi_Hxy_2(I,NY+1-J,K)
|
||||||
|
ENDIF
|
||||||
|
! PML for Hx, z-direction
|
||||||
|
IF(K<=PML_Z1-1)THEN
|
||||||
|
psi_Hxz_1(I,J,K)=b_h_z1(K)*psi_Hxz_1(I,J,K)+c_h_z1(K)*(EY(I,J,K+1)-EY(I,J,K))/CDELZ(K)
|
||||||
|
HX(I,J,K)=HX(I,J,K)+MCQ(LOOP)*psi_Hxz_1(I,J,K)
|
||||||
|
ELSEIF(K>=NZ+2-PML_Z2)THEN
|
||||||
|
psi_Hxz_2(I,J,NZ+1-K)=b_h_z2(NZ+1-K)*psi_Hxz_2(I,J,NZ+1-K)+c_h_z2(NZ+1-K)*(EY(I,J,K+1)-EY(I,J,K))/CDELZ(K)
|
||||||
|
HX(I,J,K)=HX(I,J,K)+MCQ(LOOP)*psi_Hxz_2(I,J,NZ+1-K)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!================end of updating Hx=======================!
|
||||||
|
! -------------------------------------update the value of Hy---------------------------------------------!
|
||||||
|
DO J=1,NYB
|
||||||
|
DO K=1,NZ
|
||||||
|
DO I=1,NX
|
||||||
|
HY(I,J,K)=HY(I,J,K)-MCQ(LOOP)*((EX(I,J,K+1)-EX(I,J,K))*den_hz(K))/CDELZ(K)&
|
||||||
|
&+MCQ(LOOP)*((EZ(I+1,J,K)-EZ(I,J,K))*den_hx(I))/CDELX(I)
|
||||||
|
! PML for Hy, x-direction
|
||||||
|
IF(I<=PML_X1-1)THEN
|
||||||
|
psi_Hyx_1(I,J,K)=b_h_x1(I)*psi_Hyx_1(I,J,K)+c_h_x1(I)*(EZ(I+1,J,K)-EZ(I,J,K))/CDELX(I)
|
||||||
|
HY(I,J,K)=HY(I,J,K)+MCQ(LOOP)*psi_Hyx_1(I,J,K)
|
||||||
|
ELSEIF(I>=NX+2-PML_X2)THEN
|
||||||
|
psi_Hyx_2(NX+1-I,J,K)=b_h_x2(NX+1-I)*psi_Hyx_2(NX+1-I,J,K)+c_h_x2(NX+1-I)*(EZ(I+1,J,K)-EZ(I,J,K))/CDELX(I)
|
||||||
|
HY(I,J,K)=HY(I,J,K)+MCQ(LOOP)*psi_Hyx_2(NX+1-I,J,K)
|
||||||
|
ENDIF
|
||||||
|
! PML for Hy, z-direction
|
||||||
|
IF(K<=PML_Z1-1)THEN
|
||||||
|
psi_Hyz_1(I,J,K)=b_h_z1(K)*psi_Hyz_1(I,J,K)+c_h_z1(K)*(EX(I,J,K+1)-EX(I,J,K))/CDELZ(K)
|
||||||
|
HY(I,J,K)=HY(I,J,K)-MCQ(LOOP)*psi_Hyz_1(I,J,K)
|
||||||
|
ELSEIF(K>=NZ+2-PML_Z2)THEN
|
||||||
|
psi_Hyz_2(I,J,NZ+1-K)=b_h_z2(NZ+1-K)*psi_Hyz_2(I,J,NZ+1-K)+c_h_z2(NZ+1-K)*(EX(I,J,K+1)-EX(I,J,K))/CDELZ(K)
|
||||||
|
HY(I,J,K)=HY(I,J,K)-MCQ(LOOP)*psi_Hyz_2(I,J,NZ+1-K)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!===============end of updating Hy========================!
|
||||||
|
!-------------------------------------update the value of Hz----------------------------------------------!
|
||||||
|
! 上扫 k=1..NZS-1（参考版原样）：HZ(I,J,K+1) 由 HZ(I,J,K) 推出，psi 修正内嵌。
|
||||||
|
DO K=1,NZs-1
|
||||||
|
DO I=1,NX
|
||||||
|
DO J=1,NY
|
||||||
|
HZ(I,J,K+1)=HZ(I,J,K)-((CDELZ(K)*den_hx(I))/(den_hz(K)+c_h_zz(K)))*((HX(I+1,J,K)-HX(I,J,K))/CDELX(I))&
|
||||||
|
&-((CDELZ(K)*den_hy(J))/(den_hz(K)+c_h_zz(K)))*((HY(I,J+1,K)-HY(I,J,K))/CDELY(J))
|
||||||
|
! PML for Hz up, x-direction
|
||||||
|
IF(I<=PML_X1-1)THEN
|
||||||
|
psi_Hzx_1(I,J,K)=b_h_x1(I)*psi_Hzx_1(I,J,K)+c_h_x1(I)*((HX(I+1,J,K)-HX(I,J,K))/CDELX(I))
|
||||||
|
HZ(I,J,K+1)=HZ(I,J,K+1)-((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzx_1(I,J,K)
|
||||||
|
ELSEIF(I>=NX+2-PML_X2)THEN
|
||||||
|
psi_Hzx_2(NX+1-I,J,K)=b_h_x2(NX+1-I)*psi_Hzx_2(NX+1-I,J,K)+c_h_x2(NX+1-I)*((HX(I+1,J,K)-HX(I,J,K))/CDELX(I))
|
||||||
|
HZ(I,J,K+1)=HZ(I,J,K+1)-((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzx_2(NX+1-I,J,K)
|
||||||
|
ENDIF
|
||||||
|
! PML for Hz up, y-direction
|
||||||
|
IF(J<=PML_Y1-1)THEN
|
||||||
|
psi_Hzy_1(I,J,K)=b_h_y1(J)*psi_Hzy_1(I,J,K)+c_h_y1(J)*((HY(I,J+1,K)-HY(I,J,K))/CDELY(J))
|
||||||
|
HZ(I,J,K+1)=HZ(I,J,K+1)-((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzy_1(I,J,K)
|
||||||
|
ELSEIF(J>=NY+2-PML_Y2)THEN
|
||||||
|
psi_Hzy_2(I,NY+1-J,K)=b_h_y2(NY+1-J)*psi_Hzy_2(I,NY+1-J,K)+c_h_y2(NY+1-J)*((HY(I,J+1,K)-HY(I,J,K))/CDELY(J))
|
||||||
|
HZ(I,J,K+1)=HZ(I,J,K+1)-((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzy_2(I,NY+1-J,K)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
! 下扫 k=NZ..NZS+1（参考版原样）：HZ(I,J,K) 由 HZ(I,J,K+1) 推出（HZ(NZ+1) 保持 0），psi 修正内嵌。
|
||||||
|
DO K=NZ,NZs+1,-1
|
||||||
|
DO I=1,NX
|
||||||
|
DO J=1,NY
|
||||||
|
HZ(I,J,K)=HZ(I,J,K+1)+((CDELZ(K)*den_hx(I))/(den_hz(K)+c_h_zz(K)))*((HX(I+1,J,K)-HX(I,J,K))/CDELX(I))&
|
||||||
|
&+((CDELZ(K)*den_hy(J))/(den_hz(K)+c_h_zz(K)))*((HY(I,J+1,K)-HY(I,J,K))/CDELY(J))
|
||||||
|
! PML for Hz down, x-direction
|
||||||
|
IF(I<=PML_X1-1)THEN
|
||||||
|
psi_Hzx_1(I,J,K)=b_h_x1(I)*psi_Hzx_1(I,J,K)+c_h_x1(I)*((HX(I+1,J,K)-HX(I,J,K))/CDELX(I))
|
||||||
|
HZ(I,J,K)=HZ(I,J,K)+((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzx_1(I,J,K)
|
||||||
|
ELSEIF(I>=NX+2-PML_X2)THEN
|
||||||
|
psi_Hzx_2(NX+1-I,J,K)=b_h_x2(NX+1-I)*psi_Hzx_2(NX+1-I,J,K)+c_h_x2(NX+1-I)*((HX(I+1,J,K)-HX(I,J,K))/CDELX(I))
|
||||||
|
HZ(I,J,K)=HZ(I,J,K)+((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzx_2(NX+1-I,J,K)
|
||||||
|
ENDIF
|
||||||
|
! PML for Hz down, y-direction
|
||||||
|
IF(J<=PML_Y1-1)THEN
|
||||||
|
psi_Hzy_1(I,J,K)=b_h_y1(J)*psi_Hzy_1(I,J,K)+c_h_y1(J)*((HY(I,J+1,K)-HY(I,J,K))/CDELY(J))
|
||||||
|
HZ(I,J,K)=HZ(I,J,K)+((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzy_1(I,J,K)
|
||||||
|
ELSEIF(J>=NY+2-PML_Y2)THEN
|
||||||
|
psi_Hzy_2(I,NY+1-J,K)=b_h_y2(NY+1-J)*psi_Hzy_2(I,NY+1-J,K)+c_h_y2(NY+1-J)*((HY(I,J+1,K)-HY(I,J,K))/CDELY(J))
|
||||||
|
HZ(I,J,K)=HZ(I,J,K)+((CDELZ(K))/(den_hz(K)+c_h_zz(K)))*psi_Hzy_2(I,NY+1-J,K)
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!===================end of updating Hz==========================!
|
||||||
|
DO i=1,point_num
|
||||||
|
!=================================point1=======================================
|
||||||
|
x_pos_observer(1)=Points_observer(i)%global_coordmesh(1)%coordmesh_x
|
||||||
|
y_pos_observer(1)=Points_observer(i)%global_coordmesh(1)%coordmesh_y
|
||||||
|
z_pos_observer(1)=Points_observer(i)%global_coordmesh(1)%coordmesh_z
|
||||||
|
hz_observer(1)=(EX(x_pos_observer(1),y_pos_observer(1)+1,z_pos_observer(1))-EX(x_pos_observer(1),y_pos_observer(1),z_pos_observer(1)))/CDELY(y_pos_observer(1))-&
|
||||||
|
(EY(x_pos_observer(1)+1,y_pos_observer(1),z_pos_observer(1))-EY(x_pos_observer(1),y_pos_observer(1),z_pos_observer(1)))/CDELX(x_pos_observer(1))
|
||||||
|
!=================================point2=======================================
|
||||||
|
x_pos_observer(2)=Points_observer(i)%global_coordmesh(2)%coordmesh_x
|
||||||
|
y_pos_observer(2)=Points_observer(i)%global_coordmesh(2)%coordmesh_y
|
||||||
|
z_pos_observer(2)=Points_observer(i)%global_coordmesh(2)%coordmesh_z
|
||||||
|
hz_observer(2)=(EX(x_pos_observer(2),y_pos_observer(2)+1,z_pos_observer(2))-EX(x_pos_observer(2),y_pos_observer(2),z_pos_observer(2)))/CDELY(y_pos_observer(2))-&
|
||||||
|
(EY(x_pos_observer(2)+1,y_pos_observer(2),z_pos_observer(2))-EY(x_pos_observer(2),y_pos_observer(2),z_pos_observer(2)))/CDELX(x_pos_observer(2))
|
||||||
|
!=================================point3=======================================
|
||||||
|
x_pos_observer(3)=Points_observer(i)%global_coordmesh(3)%coordmesh_x
|
||||||
|
|
||||||
|
y_pos_observer(3)=Points_observer(i)%global_coordmesh(3)%coordmesh_y
|
||||||
|
z_pos_observer(3)=Points_observer(i)%global_coordmesh(3)%coordmesh_z
|
||||||
|
hz_observer(3)=(EX(x_pos_observer(3),y_pos_observer(3)+1,z_pos_observer(3))-EX(x_pos_observer(3),y_pos_observer(3),z_pos_observer(3)))/CDELY(y_pos_observer(3))-&
|
||||||
|
(EY(x_pos_observer(3)+1,y_pos_observer(3),z_pos_observer(3))-EY(x_pos_observer(3),y_pos_observer(3),z_pos_observer(3)))/CDELX(x_pos_observer(3))
|
||||||
|
!=================================point4=======================================
|
||||||
|
x_pos_observer(4)=Points_observer(i)%global_coordmesh(4)%coordmesh_x
|
||||||
|
y_pos_observer(4)=Points_observer(i)%global_coordmesh(4)%coordmesh_y
|
||||||
|
z_pos_observer(4)=Points_observer(i)%global_coordmesh(4)%coordmesh_z
|
||||||
|
hz_observer(4)=(EX(x_pos_observer(4),y_pos_observer(4)+1,z_pos_observer(4))-EX(x_pos_observer(4),y_pos_observer(4),z_pos_observer(4)))/CDELY(y_pos_observer(4))-&
|
||||||
|
(EY(x_pos_observer(4)+1,y_pos_observer(4),z_pos_observer(4))-EY(x_pos_observer(4),y_pos_observer(4),z_pos_observer(4)))/CDELX(x_pos_observer(4))
|
||||||
|
!=================================point5=======================================
|
||||||
|
x_pos_observer(5)=Points_observer(i)%global_coordmesh(5)%coordmesh_x
|
||||||
|
y_pos_observer(5)=Points_observer(i)%global_coordmesh(5)%coordmesh_y
|
||||||
|
z_pos_observer(5)=Points_observer(i)%global_coordmesh(5)%coordmesh_z
|
||||||
|
hz_observer(5)=(EX(x_pos_observer(5),y_pos_observer(5)+1,z_pos_observer(5))-EX(x_pos_observer(5),y_pos_observer(5),z_pos_observer(5)))/CDELY(y_pos_observer(5))-&
|
||||||
|
(EY(x_pos_observer(5)+1,y_pos_observer(5),z_pos_observer(5))-EY(x_pos_observer(5),y_pos_observer(5),z_pos_observer(5)))/CDELX(x_pos_observer(5))
|
||||||
|
!=================================point6=======================================
|
||||||
|
x_pos_observer(6)=Points_observer(i)%global_coordmesh(6)%coordmesh_x
|
||||||
|
y_pos_observer(6)=Points_observer(i)%global_coordmesh(6)%coordmesh_y
|
||||||
|
z_pos_observer(6)=Points_observer(i)%global_coordmesh(6)%coordmesh_z
|
||||||
|
hz_observer(6)=(EX(x_pos_observer(6),y_pos_observer(6)+1,z_pos_observer(6))-EX(x_pos_observer(6),y_pos_observer(6),z_pos_observer(6)))/CDELY(y_pos_observer(6))-&
|
||||||
|
(EY(x_pos_observer(6)+1,y_pos_observer(6),z_pos_observer(6))-EY(x_pos_observer(6),y_pos_observer(6),z_pos_observer(6)))/CDELX(x_pos_observer(6))
|
||||||
|
!=================================point7=======================================
|
||||||
|
x_pos_observer(7)=Points_observer(i)%global_coordmesh(7)%coordmesh_x
|
||||||
|
y_pos_observer(7)=Points_observer(i)%global_coordmesh(7)%coordmesh_y
|
||||||
|
z_pos_observer(7)=Points_observer(i)%global_coordmesh(7)%coordmesh_z
|
||||||
|
hz_observer(7)=(EX(x_pos_observer(7),y_pos_observer(7)+1,z_pos_observer(7))-EX(x_pos_observer(7),y_pos_observer(7),z_pos_observer(7)))/CDELY(y_pos_observer(7))-&
|
||||||
|
(EY(x_pos_observer(7)+1,y_pos_observer(7),z_pos_observer(7))-EY(x_pos_observer(7),y_pos_observer(7),z_pos_observer(7)))/CDELX(x_pos_observer(7))
|
||||||
|
!=================================point8=======================================
|
||||||
|
x_pos_observer(8)=Points_observer(i)%global_coordmesh(8)%coordmesh_x
|
||||||
|
y_pos_observer(8)=Points_observer(i)%global_coordmesh(8)%coordmesh_y
|
||||||
|
z_pos_observer(8)=Points_observer(i)%global_coordmesh(8)%coordmesh_z
|
||||||
|
hz_observer(8)=(EX(x_pos_observer(8),y_pos_observer(8)+1,z_pos_observer(8))-EX(x_pos_observer(8),y_pos_observer(8),z_pos_observer(8)))/CDELY(y_pos_observer(8))-&
|
||||||
|
(EY(x_pos_observer(8)+1,y_pos_observer(8),z_pos_observer(8))-EY(x_pos_observer(8),y_pos_observer(8),z_pos_observer(8)))/CDELX(x_pos_observer(8))
|
||||||
|
|
||||||
|
data_rec(i) = hz_observer(1) * Points_observer(i)%coeff(1) + hz_observer(2) * Points_observer(i)%coeff(2) +&
|
||||||
|
hz_observer(3) * Points_observer(i)%coeff(3) + hz_observer(4) * Points_observer(i)%coeff(4) +&
|
||||||
|
hz_observer(5) * Points_observer(i)%coeff(5) + hz_observer(6) * Points_observer(i)%coeff(6) +&
|
||||||
|
hz_observer(7) * Points_observer(i)%coeff(7) + hz_observer(8) * Points_observer(i)%coeff(8)
|
||||||
|
ENDDO
|
||||||
|
enddo
|
||||||
|
|
||||||
|
deallocate(meps_r,mcq,msource,mdelt)
|
||||||
|
print*,mstop(num),'steps have just finished'
|
||||||
|
|
||||||
|
IF(Ctime(mstart(num)+mstop(num)-1)>(RAISETIME+WAVE+RAMP))THEN
|
||||||
|
DO i=1,point_num
|
||||||
|
idx_write=idx_start+i
|
||||||
|
WRITE(idx_write,*)mstart(num)+mstop(num)-1,Ctime(mstart(num)+mstop(num)-1)-(RAISETIME+WAVE+RAMP),data_rec(i)
|
||||||
|
ENDDO
|
||||||
|
write(*,'(a,i8,a,i8,a,f6.2,a)') 'Progress: [', num, '/', num_fra_com, '] (',100.0*num/num_fra_com, '%)'
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
call cpu_time(t_end)
|
||||||
|
t_total=t_end-t_start
|
||||||
|
print*,'The computing time is:', t_total
|
||||||
|
end subroutine Iteration_cpml
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
!===============================================================================================!
|
||||||
|
! ITERATION (below): original Dirichlet boundary iteration (Logic_PML=0).
|
||||||
|
! ITERATION_CPML (above): CPML absorbing boundary iteration (Logic_PML=1).
|
||||||
|
! main.f90 dispatches to either one according to Logic_PML read from input.dat.
|
||||||
|
!===============================================================================================!
|
||||||
|
! --------------------------------Subroutine part---------------------------------------------!
|
||||||
|
subroutine Iteration
|
||||||
|
use constantparameters
|
||||||
|
USE CONSTANTPARAMETERS
|
||||||
|
USE ELECTROMAGNETIC_VARIABLES
|
||||||
|
USE RES_MODEL_PARAMETER
|
||||||
|
USE TIME_PARAMETER
|
||||||
|
USE PML_PARAMETER
|
||||||
|
implicit none
|
||||||
|
real::t1,t2,t,t_start,t_end,t_total !t1 denotes original cpu time at the beginning of each computation fraction, t2 denotes the end cpu time and t=t2-t1
|
||||||
|
REAL*8 CA,CB,DELX1,DELY1,DELZ1 !ca, cb, delx1, dely1, delz1 are all middle variables used in the computation of EM field
|
||||||
|
REAL*8 TEMP_SIG,temp_cacb,data_rec(point_num) !Temp_sig and temp_cacb are middle variables used in the computation of EM field
|
||||||
|
REAL*8 DELY2,DELZ2,delx2 !They are all middle variables as above ones.
|
||||||
|
integer num,i,j,k,ii,iii,jj,kk,idx_write,x_pos_observer(8),y_pos_observer(8),z_pos_observer(8) !num is the number of computation fraction
|
||||||
|
integer :: N_hight=0
|
||||||
|
real*8,allocatable::Meps_r(:),Mdelt(:),Msource(:),Mcq(:) !They are local substitution of eps_r, delt and cq
|
||||||
|
REAL*8 hz_observer(8)
|
||||||
|
CHARACTER*20::string,str_num
|
||||||
|
|
||||||
|
WRITE(*,*)'[Iteration] Boundary condition: Dirichlet (zero-field) boundary (field fixed to zero at the outer grid faces)'
|
||||||
|
WRITE(*,*)'[Iteration] Iteration starts .. .. .. ..'
|
||||||
|
|
||||||
|
!Create output files
|
||||||
|
idx_start=12000
|
||||||
|
do iii=1,point_num
|
||||||
|
idx_write=idx_start+iii
|
||||||
|
IF(iii<10) THEN
|
||||||
|
write(str_num,"(I1)")iii
|
||||||
|
ELSEif(iii<100) THEN
|
||||||
|
write(str_num,"(I2)")iii
|
||||||
|
ELSEif(iii<1000) THEN
|
||||||
|
write(str_num,"(I3)")iii
|
||||||
|
ENDIF
|
||||||
|
string='dBzdt'//"_"//trim(str_num)//'.txt'
|
||||||
|
open(idx_write,file=string)
|
||||||
|
write(idx_write,*)"point_"//trim(str_num)
|
||||||
|
write(idx_write,*)Points_observer(iii)%local_coord_to_source%coord_x,Points_observer(iii)%local_coord_to_source%coord_y,&
|
||||||
|
Points_observer(iii)%local_coord_to_source%coord_z
|
||||||
|
enddo
|
||||||
|
|
||||||
|
call cpu_time(t_start)
|
||||||
|
!OPEN(20250220,file='dBzdt.txt')
|
||||||
do num=1,num_fra_com,1 !The outer loop which begins from the first fraction ends at the last fraction
|
do num=1,num_fra_com,1 !The outer loop which begins from the first fraction ends at the last fraction
|
||||||
call cpu_time(t1) !Record the cpu time at the beginning of each computing fraction
|
call cpu_time(t1) !Record the cpu time at the beginning of each computing fraction
|
||||||
allocate(mdelt(0:mstop(num)),meps_r(mstop(num)),mcq(mstop(num)),msource(mstop(num)))
|
allocate(mdelt(0:mstop(num)),meps_r(mstop(num)),mcq(mstop(num)),msource(mstop(num)))
|
||||||
@@ -28,237 +486,220 @@ subroutine Iteration
|
|||||||
end do
|
end do
|
||||||
print*,'Now computing fraction:',num
|
print*,'Now computing fraction:',num
|
||||||
mdelt(0)=mdelt(1)
|
mdelt(0)=mdelt(1)
|
||||||
!$acc data copy(Ex(1:nx,1:nyb,1:nzb),Ey(1:nxb,1:ny,1:nzb),Ez(1:nxb,1:nyb,1:nz))&
|
|
||||||
!$acc copy(Hx(1:nxb,1:ny,0:nz),Hy(1:nx,1:nyb,0:nz),Hz(1:nx,1:ny,1:nzb)),copyin(cdelx(1:nx))&
|
|
||||||
!$acc copyin(ccsig(1:nx,1:ny,1:nz),mdelt(0:mstop(num)),cdely(1:ny),cdelz(1:nz),mcq(1:mstop(num)),meps_r(1:mstop(num)))&
|
|
||||||
!$acc copyin(is_ex_in_source(1:nx,2:nyb-1),is_ey_in_source(2:nx,1:ny),msource(1:mstop(num)))
|
|
||||||
! OpenACC directive, copy in and out of Ex,Ey,Ez,Hx,Hy,Hz, copy in ccsig, mdelt, cdelz, mcq, meps_r, is_ex_in_source, is_ey_in_source
|
|
||||||
do loop=1,mstop(num),1
|
do loop=1,mstop(num),1
|
||||||
! --------------------------------update the value of Ex and Ey in source area---------------------------------------!
|
! --------------------------------update the value of Ex and Ey in source area---------------------------------------!
|
||||||
!$acc parallel async(1)
|
|
||||||
!$acc loop gang
|
|
||||||
DO J=2,NYB-1
|
DO J=2,NYB-1
|
||||||
!$acc loop vector
|
|
||||||
DO I=1,NX
|
DO I=1,NX
|
||||||
K=NZ/2+1
|
K=NZS+1-N_hight
|
||||||
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
DELZ1=CDELZ(NZ/2+1)
|
DELZ1=CDELZ(NZ/2+1)
|
||||||
TEMP_SIG=CCSIG(I,J-1,K-1)*CDELY(J-1)*CDELZ(K-1)&
|
CA=(2.0D0*Meps_r(loop)-Mdelt(LOOP-1)*CCSIGX(I,J,K))/(2.0*Meps_r(loop)+Mdelt(LOOP-1)*CCSIGX(I,J,K))
|
||||||
&+CCSIG(I,J-1,K)*CDELY(J-1)*CDELZ(K)&
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGX(I,J,K))
|
||||||
&+CCSIG(I,J,K-1)*CDELY(J)*CDELZ(K-1)&
|
EX(I,J,K)=CA*EX(I,J,K)+CB*((HZ(I,J,K)-HZ(I,J-1,K))*den_ey(J)/DELY1&
|
||||||
&+CCSIG(I,J,K)*CDELY(J)*CDELZ(K)
|
&-(HY(I,J,K)-HY(I,J,K-1))*den_ez(K)/DELZ1)-cb*Msource(loop)*is_ex_in_source(i,j)
|
||||||
TEMP_SIG=TEMP_SIG/(4.0D0*DELY1*DELZ1)
|
|
||||||
CA=(2.0D0*Meps_r(loop)-Mdelt(LOOP-1)*TEMP_SIG)/(2.0*Meps_r(loop)+Mdelt(LOOP-1)*TEMP_SIG)
|
|
||||||
CB=(2.0D0*MDELT(LOOP-1))/(2.0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
EX(I,J,K)=CA*EX(I,J,K)+CB*((HZ(I,J,K)-HZ(I,J-1,K))/DELY1-(HY(I,J,K)-HY(I,J,K-1))/DELZ1)-cb*Msource(loop)*is_ex_in_source(i,j)
|
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
|
||||||
! end of updating Ex while k=Nzs+1
|
! end of updating Ex while k=Nzs+1
|
||||||
! update the value of Ey while k=Nzs+1
|
! update the value of Ey while k=Nzs+1
|
||||||
!$acc parallel async(2)
|
|
||||||
!$acc loop gang
|
|
||||||
DO J=1,NY
|
DO J=1,NY
|
||||||
!$acc loop vector
|
|
||||||
DO I=2,NX
|
DO I=2,NX
|
||||||
K=NZ/2+1
|
K=NZS+1-N_hight
|
||||||
DELX1=(CDELX(I-1)+CDELX(I))/2.0
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0
|
||||||
DELZ1=CDELZ(NZ/2+1)
|
DELZ1=CDELZ(NZ/2+1)
|
||||||
TEMP_SIG=CCSIG(I-1,J,K-1)*CDELX(I-1)*CDELZ(K-1)&
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGY(I,J,K))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
&+CCSIG(I-1,J,K)*CDELX(I-1)*CDELZ(K)&
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
&+CCSIG(I,J,K-1)*CDELX(I)*CDELZ(K-1)&
|
EY(I,J,K)=CA*EY(I,J,K)+CB*((HX(I,J,K)-HX(I,J,K-1))*den_ez(K)/DELZ1&
|
||||||
&+CCSIG(I,J,K)*CDELX(I)*CDELZ(K)
|
&-(HZ(I,J,K)-HZ(I-1,J,K))*den_ex(I)/DELX1)-cb*Msource(loop)*is_ey_in_source(i,j)
|
||||||
TEMP_SIG=TEMP_SIG/(4.0D0*DELX1*DELZ1)
|
|
||||||
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*TEMP_SIG)/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
EY(I,J,K)=CA*EY(I,J,K)+CB*((HX(I,J,K)-HX(I,J,K-1))/DELZ1-(HZ(I,J,K)-HZ(I-1,J,K))/DELX1)-cb*Msource(loop)*is_ey_in_source(i,j)
|
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
|
||||||
! end of uptating Ey while k=Nzs+1
|
! end of uptating Ey while k=Nzs+1
|
||||||
! ---------------------------------------------------Ex Part-------------------------------------------------------------!
|
! ---------------------------------------------------Ex Part-------------------------------------------------------------!
|
||||||
!$acc parallel async(3)
|
DO K=NZS+2-N_hight,NZ
|
||||||
!$acc loop gang
|
|
||||||
DO K=NZ/2+2,NZ
|
|
||||||
!$acc loop worker
|
|
||||||
DO J=2,NY
|
DO J=2,NY
|
||||||
!$acc loop vector
|
|
||||||
DO I=1,NX
|
DO I=1,NX
|
||||||
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
TEMP_SIG=CCSIG(I,J-1,K-1)*CDELY(J-1)*CDELZ(K-1)&
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGX(I,J,K))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGX(I,J,K))
|
||||||
&+CCSIG(I,J-1,K)*CDELY(J-1)*CDELZ(K)&
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGX(I,J,K))
|
||||||
&+CCSIG(I,J,K-1)*CDELY(J)*CDELZ(K-1)&
|
EX(I,J,K)=CA*EX(I,J,K)+CB*((HZ(I,J,K)-HZ(I,J-1,K))*den_ey(J)/DELY1&
|
||||||
&+CCSIG(I,J,K)*CDELY(J)*CDELZ(K)
|
&-(HY(I,J,K)-HY(I,J,K-1))*den_ez(K)/DELZ1)
|
||||||
TEMP_SIG=TEMP_SIG/(4.0D0*DELY1*DELZ1)
|
|
||||||
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*TEMP_SIG)/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
EX(I,J,K)=CA*EX(I,J,K)+CB*((HZ(I,J,K)-HZ(I,J-1,K))/DELY1-(HY(I,J,K)-HY(I,J,K-1))/DELZ1)
|
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
DO K=2,NZS-N_hight
|
||||||
!$acc parallel async(4)
|
|
||||||
!$acc loop gang
|
|
||||||
DO K=2,NZ/2
|
|
||||||
!$acc loop worker
|
|
||||||
DO J=2,NY
|
DO J=2,NY
|
||||||
!$acc loop vector
|
|
||||||
DO I=1,NX
|
DO I=1,NX
|
||||||
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
TEMP_SIG=CCSIG(I,J-1,K-1)*CDELY(J-1)*CDELZ(K-1)&
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGX(I,J,K))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGX(I,J,K))
|
||||||
&+CCSIG(I,J-1,K)*CDELY(J-1)*CDELZ(K)&
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGX(I,J,K))
|
||||||
&+CCSIG(I,J,K-1)*CDELY(J)*CDELZ(K-1)&
|
EX(I,J,K)=CA*EX(I,J,K)+CB*((HZ(I,J,K)-HZ(I,J-1,K))*den_ey(J)/DELY1&
|
||||||
&+CCSIG(I,J,K)*CDELY(J)*CDELZ(K)
|
&-(HY(I,J,K)-HY(I,J,K-1))*den_ez(K)/DELZ1)
|
||||||
TEMP_SIG=TEMP_SIG/(4.0D0*DELY1*DELZ1)
|
|
||||||
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*TEMP_SIG)/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
EX(I,J,K)=CA*EX(I,J,K)+CB*((HZ(I,J,K)-HZ(I,J-1,K))/DELY1-(HY(I,J,K)-HY(I,J,K-1))/DELZ1)
|
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
|
||||||
! ================end of updating Ex==================!
|
! ================end of updating Ex==================!
|
||||||
! -----------------------------------------update the value of Ey--------------------------------!
|
! -----------------------------------------update the value of Ey--------------------------------!
|
||||||
!$acc parallel async(5)
|
DO K=NZS+2-N_hight,NZ
|
||||||
!$acc loop gang
|
|
||||||
DO K=NZ/2+2,NZ
|
|
||||||
!$acc loop worker
|
|
||||||
DO J=1,NY
|
DO J=1,NY
|
||||||
!$acc loop vector
|
|
||||||
DO I=2,NX
|
DO I=2,NX
|
||||||
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
||||||
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
TEMP_SIG=CCSIG(I-1,J,K-1)*CDELX(I-1)*CDELZ(K-1)&
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGY(I,J,K))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
&+CCSIG(I-1,J,K)*CDELX(I-1)*CDELZ(K)&
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
&+CCSIG(I,J,K-1)*CDELX(I)*CDELZ(K-1)&
|
EY(I,J,K)=CA*EY(I,J,K)+CB*((HX(I,J,K)-HX(I,J,K-1))*den_ez(K)/DELZ1&
|
||||||
&+CCSIG(I,J,K)*CDELX(I)*CDELZ(K)
|
&-(HZ(I,J,K)-HZ(I-1,J,K))*den_ex(I)/DELX1)
|
||||||
TEMP_SIG=TEMP_SIG/(4.0D0*DELX1*DELZ1)
|
|
||||||
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*TEMP_SIG)/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
EY(I,J,K)=CA*EY(I,J,K)+CB*((HX(I,J,K)-HX(I,J,K-1))/DELZ1-(HZ(I,J,K)-HZ(I-1,J,K))/DELX1)
|
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
DO K=2,NZS-N_hight
|
||||||
!$acc parallel async(6)
|
|
||||||
!$acc loop gang
|
|
||||||
DO K=2,NZ/2
|
|
||||||
!$acc loop worker
|
|
||||||
DO J=1,NY
|
DO J=1,NY
|
||||||
!$acc loop vector
|
|
||||||
DO I=2,NXB-1
|
DO I=2,NXB-1
|
||||||
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
||||||
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
TEMP_SIG=CCSIG(I-1,J,K-1)*CDELX(I-1)*CDELZ(K-1)&
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGY(I,J,K))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
&+CCSIG(I-1,J,K)*CDELX(I-1)*CDELZ(K)&
|
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGY(I,J,K))
|
||||||
&+CCSIG(I,J,K-1)*CDELX(I)*CDELZ(K-1)&
|
EY(I,J,K)=CA*EY(I,J,K)+CB*((HX(I,J,K)-HX(I,J,K-1))*den_ez(K)/DELZ1&
|
||||||
&+CCSIG(I,J,K)*CDELX(I)*CDELZ(K)
|
&-(HZ(I,J,K)-HZ(I-1,J,K))*den_ex(I)/DELX1)
|
||||||
TEMP_SIG=TEMP_SIG/(4.0D0*DELX1*DELZ1)
|
|
||||||
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*TEMP_SIG)/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
CB=(2.0D0*MDELT(LOOP-1))/(2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG)
|
|
||||||
EY(I,J,K)=CA*EY(I,J,K)+CB*((HX(I,J,K)-HX(I,J,K-1))/DELZ1-(HZ(I,J,K)-HZ(I-1,J,K))/DELX1)
|
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
|
||||||
!===============end of updating Ey===================!
|
!===============end of updating Ey===================!
|
||||||
! -------------------------------------update the value of Ez--------------------------------------!
|
! -------------------------------------update the value of Ez--------------------------------------!
|
||||||
!$acc parallel async(7)
|
|
||||||
!$acc loop gang
|
|
||||||
DO K=1,NZ
|
DO K=1,NZ
|
||||||
!$acc loop worker
|
|
||||||
DO J=2,NYB-1
|
DO J=2,NYB-1
|
||||||
!$acc loop vector
|
|
||||||
DO I=2,NXB-1
|
DO I=2,NXB-1
|
||||||
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
||||||
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
TEMP_SIG=CCSIG(I-1,J-1,K)*CDELX(I-1)*CDELY(J-1)&
|
TEMP_CACB=2.0D0*Meps_r(loop)+MDELT(LOOP-1)*CCSIGZ(I,J,K)
|
||||||
&+CCSIG(I-1,J,K)*CDELX(I-1)*CDELY(J)&
|
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*CCSIGZ(I,J,K))/TEMP_CACB
|
||||||
&+CCSIG(I,J-1,K)*CDELX(I)*CDELY(J-1)&
|
|
||||||
&+CCSIG(I,J,K)*CDELX(I)*CDELY(J)
|
|
||||||
TEMP_SIG=TEMP_SIG/(4.0D0*DELX1*DELY1)
|
|
||||||
TEMP_CACB=2.0D0*Meps_r(loop)+MDELT(LOOP-1)*TEMP_SIG
|
|
||||||
CA=(2.0D0*Meps_r(loop)-MDELT(LOOP-1)*TEMP_SIG)/TEMP_CACB
|
|
||||||
CB=(2.0D0*MDELT(LOOP-1))/TEMP_CACB
|
CB=(2.0D0*MDELT(LOOP-1))/TEMP_CACB
|
||||||
EZ(I,J,K)=CA*EZ(I,J,K)+CB*((HY(I,J,K)-HY(I-1,J,K))/DELX1-(HX(I,J,K)-HX(I,J-1,K))/DELY1)
|
EZ(I,J,K)=CA*EZ(I,J,K)+CB*((HY(I,J,K)-HY(I-1,J,K))*den_ex(I)/DELX1&
|
||||||
|
&-(HX(I,J,K)-HX(I,J-1,K))*den_ey(J)/DELY1)
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
|
||||||
!$acc wait
|
|
||||||
!===============end of updating Ez=========================!
|
!===============end of updating Ez=========================!
|
||||||
! ------------------------------------update the value of Hx-----------------------------------------------!
|
! ------------------------------------update the value of Hx-----------------------------------------------!
|
||||||
!$acc parallel async(8)
|
|
||||||
!$acc loop gang
|
|
||||||
DO K=1,NZ
|
DO K=1,NZ
|
||||||
!$acc loop worker
|
|
||||||
DO J=1,NY
|
DO J=1,NY
|
||||||
!$acc loop vector
|
|
||||||
DO I=1,NXB
|
DO I=1,NXB
|
||||||
DELY2=CDELY(J)
|
DELY2=CDELY(J)
|
||||||
DELZ2=CDELZ(K)
|
DELZ2=CDELZ(K)
|
||||||
HX(I,J,K)=HX(I,J,K)-MCQ(LOOP)*((EZ(I,J+1,K)-EZ(I,J,K))/DELY2-(EY(I,J,K+1)-EY(I,J,K))/DELZ2)
|
HX(I,J,K)=HX(I,J,K)-MCQ(LOOP)*((EZ(I,J+1,K)-EZ(I,J,K))*den_hy(J)/DELY2&
|
||||||
|
&-(EY(I,J,K+1)-EY(I,J,K))*den_hz(K)/DELZ2)
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
|
||||||
!================end of updating Hx=======================!
|
!================end of updating Hx=======================!
|
||||||
! -------------------------------------update the value of Hy---------------------------------------------!
|
! -------------------------------------update the value of Hy---------------------------------------------!
|
||||||
!$acc parallel async(9)
|
|
||||||
!$acc loop gang
|
|
||||||
DO K=1,NZ
|
DO K=1,NZ
|
||||||
!$acc loop worker
|
|
||||||
DO J=1,NYB
|
DO J=1,NYB
|
||||||
!$acc loop vector
|
|
||||||
DO I=1,NX
|
DO I=1,NX
|
||||||
DELZ2=CDELZ(K)
|
DELZ2=CDELZ(K)
|
||||||
DELX2=CDELX(I)
|
DELX2=CDELX(I)
|
||||||
HY(I,J,K)=HY(I,J,K)-MCQ(LOOP)*((EX(I,J,K+1)-EX(I,J,K))/DELZ2-(EZ(I+1,J,K)-EZ(I,J,K))/DELX2)
|
HY(I,J,K)=HY(I,J,K)-MCQ(LOOP)*((EX(I,J,K+1)-EX(I,J,K))*den_hz(K)/DELZ2&
|
||||||
|
&-(EZ(I+1,J,K)-EZ(I,J,K))*den_hx(I)/DELX2)
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end parallel
|
|
||||||
!$acc wait
|
|
||||||
!===============end of updating Hy========================!
|
!===============end of updating Hy========================!
|
||||||
!-------------------------------------update the value of Hz----------------------------------------------!
|
!-------------------------------------update the value of Hz----------------------------------------------!
|
||||||
!$acc kernels async(10)
|
|
||||||
DO J=1,NY
|
DO J=1,NY
|
||||||
DO I=1,NX
|
DO I=1,NX
|
||||||
DO K=NZ,NZ/2+1,-1 !NZ,2,-1 !
|
DO K=NZ,NZS+1,-1
|
||||||
DELX2=CDELX(I)
|
DELX2=CDELX(I)
|
||||||
DELY2=CDELY(J)
|
DELY2=CDELY(J)
|
||||||
DELZ2=CDELZ(K)
|
DELZ2=CDELZ(K)
|
||||||
HZ(I,J,K)=HZ(I,J,K+1)+DELZ2*((HX(I+1,J,K)-HX(I,J,K))/DELX2+(HY(I,J+1,K)-HY(I,J,K))/DELY2)
|
HZ(I,J,K)=HZ(I,J,K+1)+DELZ2*((HX(I+1,J,K)-HX(I,J,K))*den_hx(I)/DELX2&
|
||||||
|
&+(HY(I,J+1,K)-HY(I,J,K))*den_hy(J)/DELY2)*inv_hz_den(K)
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end kernels
|
DO K=1,NZS-1
|
||||||
!$acc kernels async(11)
|
|
||||||
DO K=1,NZ/2-1
|
|
||||||
DO J=1,NY
|
DO J=1,NY
|
||||||
DO I=1,NX
|
DO I=1,NX
|
||||||
DELX2=CDELX(I)
|
DELX2=CDELX(I)
|
||||||
DELY2=CDELY(J)
|
DELY2=CDELY(J)
|
||||||
DELZ2=CDELZ(K)
|
DELZ2=CDELZ(K)
|
||||||
HZ(I,J,K+1)=HZ(I,J,K)-DELZ2*((HX(I+1,J,K)-HX(I,J,K))/DELX2+(HY(I,J+1,K)-HY(I,J,K))/DELY2)
|
HZ(I,J,K+1)=HZ(I,J,K)-DELZ2*((HX(I+1,J,K)-HX(I,J,K))*den_hx(I)/DELX2&
|
||||||
|
&+(HY(I,J+1,K)-HY(I,J,K))*den_hy(J)/DELY2)*inv_hz_den(K)
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
ENDDO
|
ENDDO
|
||||||
!$acc end kernels
|
|
||||||
!$acc wait
|
|
||||||
!===================end of updating Hz==========================!
|
!===================end of updating Hz==========================!
|
||||||
enddo
|
DO i=1,point_num
|
||||||
!$acc end data
|
!=================================point1=======================================
|
||||||
call cpu_time(t2)
|
x_pos_observer(1)=Points_observer(i)%global_coordmesh(1)%coordmesh_x
|
||||||
t=t2-t1
|
y_pos_observer(1)=Points_observer(i)%global_coordmesh(1)%coordmesh_y
|
||||||
print*,'The computing time for this fraction is:', t
|
z_pos_observer(1)=Points_observer(i)%global_coordmesh(1)%coordmesh_z
|
||||||
|
hz_observer(1)=(EX(x_pos_observer(1),y_pos_observer(1)+1,z_pos_observer(1))-EX(x_pos_observer(1),y_pos_observer(1),z_pos_observer(1)))/CDELY(y_pos_observer(1))-&
|
||||||
|
(EY(x_pos_observer(1)+1,y_pos_observer(1),z_pos_observer(1))-EY(x_pos_observer(1),y_pos_observer(1),z_pos_observer(1)))/CDELX(x_pos_observer(1))
|
||||||
|
!=================================point2=======================================
|
||||||
|
x_pos_observer(2)=Points_observer(i)%global_coordmesh(2)%coordmesh_x
|
||||||
|
y_pos_observer(2)=Points_observer(i)%global_coordmesh(2)%coordmesh_y
|
||||||
|
z_pos_observer(2)=Points_observer(i)%global_coordmesh(2)%coordmesh_z
|
||||||
|
hz_observer(2)=(EX(x_pos_observer(2),y_pos_observer(2)+1,z_pos_observer(2))-EX(x_pos_observer(2),y_pos_observer(2),z_pos_observer(2)))/CDELY(y_pos_observer(2))-&
|
||||||
|
(EY(x_pos_observer(2)+1,y_pos_observer(2),z_pos_observer(2))-EY(x_pos_observer(2),y_pos_observer(2),z_pos_observer(2)))/CDELX(x_pos_observer(2))
|
||||||
|
!=================================point3=======================================
|
||||||
|
x_pos_observer(3)=Points_observer(i)%global_coordmesh(3)%coordmesh_x
|
||||||
|
|
||||||
|
y_pos_observer(3)=Points_observer(i)%global_coordmesh(3)%coordmesh_y
|
||||||
|
z_pos_observer(3)=Points_observer(i)%global_coordmesh(3)%coordmesh_z
|
||||||
|
hz_observer(3)=(EX(x_pos_observer(3),y_pos_observer(3)+1,z_pos_observer(3))-EX(x_pos_observer(3),y_pos_observer(3),z_pos_observer(3)))/CDELY(y_pos_observer(3))-&
|
||||||
|
(EY(x_pos_observer(3)+1,y_pos_observer(3),z_pos_observer(3))-EY(x_pos_observer(3),y_pos_observer(3),z_pos_observer(3)))/CDELX(x_pos_observer(3))
|
||||||
|
!=================================point4=======================================
|
||||||
|
x_pos_observer(4)=Points_observer(i)%global_coordmesh(4)%coordmesh_x
|
||||||
|
y_pos_observer(4)=Points_observer(i)%global_coordmesh(4)%coordmesh_y
|
||||||
|
z_pos_observer(4)=Points_observer(i)%global_coordmesh(4)%coordmesh_z
|
||||||
|
hz_observer(4)=(EX(x_pos_observer(4),y_pos_observer(4)+1,z_pos_observer(4))-EX(x_pos_observer(4),y_pos_observer(4),z_pos_observer(4)))/CDELY(y_pos_observer(4))-&
|
||||||
|
(EY(x_pos_observer(4)+1,y_pos_observer(4),z_pos_observer(4))-EY(x_pos_observer(4),y_pos_observer(4),z_pos_observer(4)))/CDELX(x_pos_observer(4))
|
||||||
|
!=================================point5=======================================
|
||||||
|
x_pos_observer(5)=Points_observer(i)%global_coordmesh(5)%coordmesh_x
|
||||||
|
y_pos_observer(5)=Points_observer(i)%global_coordmesh(5)%coordmesh_y
|
||||||
|
z_pos_observer(5)=Points_observer(i)%global_coordmesh(5)%coordmesh_z
|
||||||
|
hz_observer(5)=(EX(x_pos_observer(5),y_pos_observer(5)+1,z_pos_observer(5))-EX(x_pos_observer(5),y_pos_observer(5),z_pos_observer(5)))/CDELY(y_pos_observer(5))-&
|
||||||
|
(EY(x_pos_observer(5)+1,y_pos_observer(5),z_pos_observer(5))-EY(x_pos_observer(5),y_pos_observer(5),z_pos_observer(5)))/CDELX(x_pos_observer(5))
|
||||||
|
!=================================point6=======================================
|
||||||
|
x_pos_observer(6)=Points_observer(i)%global_coordmesh(6)%coordmesh_x
|
||||||
|
y_pos_observer(6)=Points_observer(i)%global_coordmesh(6)%coordmesh_y
|
||||||
|
z_pos_observer(6)=Points_observer(i)%global_coordmesh(6)%coordmesh_z
|
||||||
|
hz_observer(6)=(EX(x_pos_observer(6),y_pos_observer(6)+1,z_pos_observer(6))-EX(x_pos_observer(6),y_pos_observer(6),z_pos_observer(6)))/CDELY(y_pos_observer(6))-&
|
||||||
|
(EY(x_pos_observer(6)+1,y_pos_observer(6),z_pos_observer(6))-EY(x_pos_observer(6),y_pos_observer(6),z_pos_observer(6)))/CDELX(x_pos_observer(6))
|
||||||
|
!=================================point7=======================================
|
||||||
|
x_pos_observer(7)=Points_observer(i)%global_coordmesh(7)%coordmesh_x
|
||||||
|
y_pos_observer(7)=Points_observer(i)%global_coordmesh(7)%coordmesh_y
|
||||||
|
z_pos_observer(7)=Points_observer(i)%global_coordmesh(7)%coordmesh_z
|
||||||
|
hz_observer(7)=(EX(x_pos_observer(7),y_pos_observer(7)+1,z_pos_observer(7))-EX(x_pos_observer(7),y_pos_observer(7),z_pos_observer(7)))/CDELY(y_pos_observer(7))-&
|
||||||
|
(EY(x_pos_observer(7)+1,y_pos_observer(7),z_pos_observer(7))-EY(x_pos_observer(7),y_pos_observer(7),z_pos_observer(7)))/CDELX(x_pos_observer(7))
|
||||||
|
!=================================point8=======================================
|
||||||
|
x_pos_observer(8)=Points_observer(i)%global_coordmesh(8)%coordmesh_x
|
||||||
|
y_pos_observer(8)=Points_observer(i)%global_coordmesh(8)%coordmesh_y
|
||||||
|
z_pos_observer(8)=Points_observer(i)%global_coordmesh(8)%coordmesh_z
|
||||||
|
hz_observer(8)=(EX(x_pos_observer(8),y_pos_observer(8)+1,z_pos_observer(8))-EX(x_pos_observer(8),y_pos_observer(8),z_pos_observer(8)))/CDELY(y_pos_observer(8))-&
|
||||||
|
(EY(x_pos_observer(8)+1,y_pos_observer(8),z_pos_observer(8))-EY(x_pos_observer(8),y_pos_observer(8),z_pos_observer(8)))/CDELX(x_pos_observer(8))
|
||||||
|
|
||||||
|
data_rec(i) = hz_observer(1) * Points_observer(i)%coeff(1) + hz_observer(2) * Points_observer(i)%coeff(2) +&
|
||||||
|
hz_observer(3) * Points_observer(i)%coeff(3) + hz_observer(4) * Points_observer(i)%coeff(4) +&
|
||||||
|
hz_observer(5) * Points_observer(i)%coeff(5) + hz_observer(6) * Points_observer(i)%coeff(6) +&
|
||||||
|
hz_observer(7) * Points_observer(i)%coeff(7) + hz_observer(8) * Points_observer(i)%coeff(8)
|
||||||
|
ENDDO
|
||||||
|
enddo
|
||||||
|
|
||||||
deallocate(meps_r,mcq,msource,mdelt)
|
deallocate(meps_r,mcq,msource,mdelt)
|
||||||
call WriteRecFiles(num)
|
|
||||||
write(*,'(1x,e20.10e3,3x,e20.10e3)')Hz(nxs,nys+2,Nzs_air(1)),Hz(Nxs,Nys+2,Nz/2+1)
|
|
||||||
write(*,*)'Now loop is:',mstart(num)+mstop(num)-1
|
|
||||||
print*,mstop(num),'steps have just finished'
|
print*,mstop(num),'steps have just finished'
|
||||||
ENDDO
|
|
||||||
|
IF(Ctime(mstart(num)+mstop(num)-1)>(RAISETIME+WAVE+RAMP))THEN
|
||||||
|
DO i=1,point_num
|
||||||
|
idx_write=idx_start+i
|
||||||
|
WRITE(idx_write,*)mstart(num)+mstop(num)-1,Ctime(mstart(num)+mstop(num)-1)-(RAISETIME+WAVE+RAMP),data_rec(i)
|
||||||
|
ENDDO
|
||||||
|
write(*,'(a,i8,a,i8,a,f6.2,a)') 'Progress: [', num, '/', num_fra_com, '] (',100.0*num/num_fra_com, '%)'
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
call cpu_time(t_end)
|
||||||
|
t_total=t_end-t_start
|
||||||
|
print*,'The computing time is:', t_total
|
||||||
end subroutine Iteration
|
end subroutine Iteration
|
||||||
|
|
||||||
|
|||||||
@@ -0,0 +1,772 @@
|
|||||||
|
!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
|
||||||
|
!written by Xinyu Li(202335098@mail.sdu.edu.cn) and Qi Zhao(zhaoqi_326326@163.com)
|
||||||
|
SUBROUTINE terrain_conformal
|
||||||
|
|
||||||
|
USE CONSTANTPARAMETERS
|
||||||
|
USE ELECTROMAGNETIC_VARIABLES
|
||||||
|
USE RES_MODEL_PARAMETER
|
||||||
|
USE TIME_PARAMETER
|
||||||
|
USE OMP_LIB
|
||||||
|
IMPLICIT NONE
|
||||||
|
|
||||||
|
INTEGER :: i,ii,j,jj,k,kk,i0,j1,i1,k2,i2,k3,j3,l1,l2,l3,iii,jjj,kkk
|
||||||
|
INTEGER :: index, recorder
|
||||||
|
logical :: JudgmentValue,LOGICAL_1,LOGICAL_2,LOGICAL_3,LOGICAL_4,LOGICAL_5,LOGICAL_6
|
||||||
|
CHARACTER*255 :: temp, FineNameOfTerrain
|
||||||
|
REAL(KIND=8), DIMENSION(:), ALLOCATABLE :: Normal_temp
|
||||||
|
CHARACTER(300) :: line !used to read one line of the ASCII STL file
|
||||||
|
INTEGER(KIND=4) :: ios_stl,i_face,iv_face,nv_tmp,idx_v,ip_stl
|
||||||
|
INTEGER(KIND=4), DIMENSION(:,:), ALLOCATABLE :: tmp_face
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: tmp_vert,tmp_norm
|
||||||
|
REAL(KIND=8) :: vx,vy,vz
|
||||||
|
REAL(KIND=8) :: ex1x,ex1y,ex1z,ex2x,ex2y,ex2z,crossx,crossy,crossz
|
||||||
|
|
||||||
|
!>The terrain mesh file can be Complex_Terrain.dat (the original text format) or
|
||||||
|
!!Complex_Terrain.stl (the ASCII STL format). Which one is used was decided in
|
||||||
|
!!GETDATA, and here only the corresponding reading branch is entered. The variables
|
||||||
|
!!filled below (Node_Label, CoordinatesX/Y/Z, Element_Label, Element_Node1/2/3,
|
||||||
|
!!n_point, n_face) keep the same names in both formats.
|
||||||
|
IF(Logic_TerrainDat)THEN
|
||||||
|
!>Original .dat format:
|
||||||
|
!! Line 1 : "Number of Nodes and Elements:"
|
||||||
|
!! Line 2 : n_point (number of nodes)
|
||||||
|
!! Line 3 : n_face (number of triangular elements)
|
||||||
|
!! Line 4 : "Nodes Coordinates:"
|
||||||
|
!! next n_point lines : label, Coord_X, Coord_Y, Coord_Z
|
||||||
|
!! then 2 title lines, then n_face lines : label, node1, node2, node3
|
||||||
|
FineNameOfTerrain = "Complex_Terrain.dat"
|
||||||
|
OPEN( 520, FILE = FinenameOfTerrain )
|
||||||
|
Read(520, *) temp
|
||||||
|
Read(520, *) n_point !get total number of Node
|
||||||
|
Read(520, *) n_face !get total number of Element
|
||||||
|
Read(520,*) temp
|
||||||
|
|
||||||
|
ALLOCATE( Normal(n_face,3) )
|
||||||
|
ALLOCATE( Normal_temp(n_face) )
|
||||||
|
ALLOCATE( Node_Label(n_point), CoordinatesX(n_point), CoordinatesY(n_point), CoordinatesZ(n_point) )
|
||||||
|
ALLOCATE( Element_Label(n_face), Element_Node1(n_face),Element_Node2(n_face), Element_Node3(n_face) )
|
||||||
|
ALLOCATE( vert0(3,n_face), vert1(3,n_face), vert2(3,n_face), edge1(3,n_face), edge2(3,n_face))
|
||||||
|
ALLOCATE( Face_Triangle_NormVect(3,n_face))
|
||||||
|
|
||||||
|
DO i =1, n_point
|
||||||
|
Read(520,*) Node_Label(i), CoordinatesX(i), CoordinatesY(i), CoordinatesZ(i) ! get the label of Node; get the coordinates of X, Y, Z connecting the Node
|
||||||
|
ENDDO
|
||||||
|
Read(520,*) temp
|
||||||
|
Read(520,*) temp
|
||||||
|
DO i =1, n_face
|
||||||
|
Read(520,*) Element_Label(i), Element_Node1(i),Element_Node2(i), Element_Node3(i) ! get the label of Element; get the Label of Node connecting the Node
|
||||||
|
vert0(1,i)=CoordinatesX( Element_Node1(i) )
|
||||||
|
vert0(2,i)=CoordinatesY( Element_Node1(i) )
|
||||||
|
vert0(3,i)=CoordinatesZ( Element_Node1(i) )
|
||||||
|
vert1(1,i)=CoordinatesX( Element_Node2(i) )
|
||||||
|
vert1(2,i)=CoordinatesY( Element_Node2(i) )
|
||||||
|
vert1(3,i)=CoordinatesZ( Element_Node2(i) )
|
||||||
|
vert2(1,i)=CoordinatesX( Element_Node3(i) )
|
||||||
|
vert2(2,i)=CoordinatesY( Element_Node3(i) )
|
||||||
|
vert2(3,i)=CoordinatesZ( Element_Node3(i) )
|
||||||
|
ENDDO
|
||||||
|
CLOSE(520)
|
||||||
|
ELSEIF(Logic_TerrainStl)THEN
|
||||||
|
!>ASCII STL format:
|
||||||
|
!! solid <name>
|
||||||
|
!! facet normal nx ny nz
|
||||||
|
!! outer loop
|
||||||
|
!! vertex x y z
|
||||||
|
!! vertex x y z
|
||||||
|
!! vertex x y z
|
||||||
|
!! endloop
|
||||||
|
!! endfacet
|
||||||
|
!! ...
|
||||||
|
!! endsolid <name>
|
||||||
|
!!In an STL file the vertices are written once per facet, so the duplicated
|
||||||
|
!!vertices are merged into unique nodes before filling the global arrays.
|
||||||
|
!!The vertex order of each facet is also checked against the facet normal so
|
||||||
|
!!that the normal direction convention is the same as the .dat format.
|
||||||
|
OPEN(520,FILE='Complex_Terrain.stl',STATUS='OLD')
|
||||||
|
!>First pass: count the number of facets.
|
||||||
|
n_face=0
|
||||||
|
DO
|
||||||
|
READ(520,'(A)',IOSTAT=ios_stl) line
|
||||||
|
IF(ios_stl/=0) EXIT
|
||||||
|
!>convert the line into lower case for keyword matching
|
||||||
|
DO ii=1,LEN_TRIM(line)
|
||||||
|
IF(line(ii:ii)>='A'.AND.line(ii:ii)<='Z') line(ii:ii)=ACHAR(IACHAR(line(ii:ii))+32)
|
||||||
|
ENDDO
|
||||||
|
IF(INDEX(line,'facet')>0 .AND. INDEX(line,'endfacet')==0) n_face=n_face+1
|
||||||
|
ENDDO
|
||||||
|
IF(n_face==0)THEN
|
||||||
|
WRITE(*,*)'Error: no facet is found in Complex_Terrain.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
REWIND(520)
|
||||||
|
ALLOCATE(tmp_face(3,n_face),tmp_norm(3,n_face),tmp_vert(3,3*n_face))
|
||||||
|
nv_tmp=0
|
||||||
|
i_face=0
|
||||||
|
iv_face=0
|
||||||
|
DO
|
||||||
|
READ(520,'(A)',IOSTAT=ios_stl) line
|
||||||
|
IF(ios_stl/=0) EXIT
|
||||||
|
DO ii=1,LEN_TRIM(line)
|
||||||
|
IF(line(ii:ii)>='A'.AND.line(ii:ii)<='Z') line(ii:ii)=ACHAR(IACHAR(line(ii:ii))+32)
|
||||||
|
ENDDO
|
||||||
|
IF(INDEX(line,'facet')>0 .AND. INDEX(line,'endfacet')==0)THEN
|
||||||
|
!>a new facet begins
|
||||||
|
i_face=i_face+1
|
||||||
|
iv_face=0
|
||||||
|
IF(INDEX(line,'normal')>0)THEN
|
||||||
|
READ(line(INDEX(line,'normal')+6:),*,IOSTAT=ios_stl) tmp_norm(1,i_face),tmp_norm(2,i_face),tmp_norm(3,i_face)
|
||||||
|
IF(ios_stl/=0)THEN
|
||||||
|
WRITE(*,*)'Error: failed to read the facet normal line in Complex_Terrain.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ELSEIF(INDEX(line,'endfacet')>0)THEN
|
||||||
|
!>a facet is finished, check that it has exactly 3 vertices
|
||||||
|
IF(iv_face/=3)THEN
|
||||||
|
WRITE(*,*)'Error: a facet with',iv_face,'vertices (instead of 3) is found in Complex_Terrain.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
ELSEIF(INDEX(line,'vertex')>0)THEN
|
||||||
|
iv_face=iv_face+1
|
||||||
|
IF(iv_face>3)THEN
|
||||||
|
WRITE(*,*)'Error: a facet with more than 3 vertices is found in Complex_Terrain.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
READ(line(INDEX(line,'vertex')+6:),*,IOSTAT=ios_stl) vx,vy,vz
|
||||||
|
IF(ios_stl/=0)THEN
|
||||||
|
WRITE(*,*)'Error: failed to read a vertex line in Complex_Terrain.stl!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
!>merge the duplicated vertices
|
||||||
|
idx_v=0
|
||||||
|
DO ip_stl=1,nv_tmp
|
||||||
|
IF(ABS(tmp_vert(1,ip_stl)-vx)<eps105.AND.ABS(tmp_vert(2,ip_stl)-vy)<eps105.AND.ABS(tmp_vert(3,ip_stl)-vz)<eps105)THEN
|
||||||
|
idx_v=ip_stl
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(idx_v==0)THEN
|
||||||
|
nv_tmp=nv_tmp+1
|
||||||
|
tmp_vert(1,nv_tmp)=vx
|
||||||
|
tmp_vert(2,nv_tmp)=vy
|
||||||
|
tmp_vert(3,nv_tmp)=vz
|
||||||
|
idx_v=nv_tmp
|
||||||
|
ENDIF
|
||||||
|
tmp_face(iv_face,i_face)=idx_v
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
!>Correct the vertex order of each facet: compare the cross-product normal
|
||||||
|
!!with the facet normal stored in the STL file, swap node2/node3 if they
|
||||||
|
!!point in opposite directions, so that the normal direction convention
|
||||||
|
!!is the same as in the .dat format.
|
||||||
|
DO i=1,n_face
|
||||||
|
ex1x=tmp_vert(1,tmp_face(2,i))-tmp_vert(1,tmp_face(1,i))
|
||||||
|
ex1y=tmp_vert(2,tmp_face(2,i))-tmp_vert(2,tmp_face(1,i))
|
||||||
|
ex1z=tmp_vert(3,tmp_face(2,i))-tmp_vert(3,tmp_face(1,i))
|
||||||
|
ex2x=tmp_vert(1,tmp_face(3,i))-tmp_vert(1,tmp_face(1,i))
|
||||||
|
ex2y=tmp_vert(2,tmp_face(3,i))-tmp_vert(2,tmp_face(1,i))
|
||||||
|
ex2z=tmp_vert(3,tmp_face(3,i))-tmp_vert(3,tmp_face(1,i))
|
||||||
|
crossx=ex1y*ex2z-ex1z*ex2y
|
||||||
|
crossy=ex1z*ex2x-ex1x*ex2z
|
||||||
|
crossz=ex1x*ex2y-ex1y*ex2x
|
||||||
|
IF(crossx*tmp_norm(1,i)+crossy*tmp_norm(2,i)+crossz*tmp_norm(3,i)<0.0D0)THEN
|
||||||
|
idx_v=tmp_face(2,i)
|
||||||
|
tmp_face(2,i)=tmp_face(3,i)
|
||||||
|
tmp_face(3,i)=idx_v
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
n_point=nv_tmp
|
||||||
|
ALLOCATE( Normal(n_face,3) )
|
||||||
|
ALLOCATE( Normal_temp(n_face) )
|
||||||
|
ALLOCATE( Node_Label(n_point), CoordinatesX(n_point), CoordinatesY(n_point), CoordinatesZ(n_point) )
|
||||||
|
ALLOCATE( Element_Label(n_face), Element_Node1(n_face),Element_Node2(n_face), Element_Node3(n_face) )
|
||||||
|
ALLOCATE( vert0(3,n_face), vert1(3,n_face), vert2(3,n_face), edge1(3,n_face), edge2(3,n_face))
|
||||||
|
ALLOCATE( Face_Triangle_NormVect(3,n_face))
|
||||||
|
DO j=1,n_point
|
||||||
|
Node_Label(j)=j
|
||||||
|
CoordinatesX(j)=tmp_vert(1,j)
|
||||||
|
CoordinatesY(j)=tmp_vert(2,j)
|
||||||
|
CoordinatesZ(j)=tmp_vert(3,j)
|
||||||
|
ENDDO
|
||||||
|
DO i=1,n_face
|
||||||
|
Element_Label(i)=i
|
||||||
|
Element_Node1(i)=tmp_face(1,i)
|
||||||
|
Element_Node2(i)=tmp_face(2,i)
|
||||||
|
Element_Node3(i)=tmp_face(3,i)
|
||||||
|
vert0(1,i)=CoordinatesX( Element_Node1(i) )
|
||||||
|
vert0(2,i)=CoordinatesY( Element_Node1(i) )
|
||||||
|
vert0(3,i)=CoordinatesZ( Element_Node1(i) )
|
||||||
|
vert1(1,i)=CoordinatesX( Element_Node2(i) )
|
||||||
|
vert1(2,i)=CoordinatesY( Element_Node2(i) )
|
||||||
|
vert1(3,i)=CoordinatesZ( Element_Node2(i) )
|
||||||
|
vert2(1,i)=CoordinatesX( Element_Node3(i) )
|
||||||
|
vert2(2,i)=CoordinatesY( Element_Node3(i) )
|
||||||
|
vert2(3,i)=CoordinatesZ( Element_Node3(i) )
|
||||||
|
ENDDO
|
||||||
|
CLOSE(520)
|
||||||
|
DEALLOCATE(tmp_face,tmp_norm,tmp_vert)
|
||||||
|
WRITE(*,*)'Complex_Terrain.stl read: n_point=',n_point,' n_face=',n_face
|
||||||
|
ELSE
|
||||||
|
WRITE(*,*)'Error: neither Complex_Terrain.dat nor Complex_Terrain.stl exists, terrain_conformal can not run!'
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
!============================================================================================================================================================
|
||||||
|
!Find out the maximum and minimum values of the abnormal volume triangular mesh in z-axis.
|
||||||
|
max_coord_z=maxval(CoordinatesZ)
|
||||||
|
min_coord_z=minval(CoordinatesZ)
|
||||||
|
DO kk=1,NZ
|
||||||
|
IF(coordinates_z(kk)>min_coord_z)THEN
|
||||||
|
Z_min=kk-1
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
DO kk=1,NZ
|
||||||
|
IF(coordinates_z(kk)>max_coord_z)THEN
|
||||||
|
Z_max=kk
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ALLOCATE(orig_z(3,NXB*NYB),orig_y(3,NXB*NZB),orig_x(3,NXB*NZB))
|
||||||
|
ALLOCATE(det_z(NXB*NYB),det_x(NYB*NZB),det_y(NXB*NZB))
|
||||||
|
ALLOCATE(u_z(NXB*NYB),u_x(NYB*NZB),u_y(NXB*NZB))
|
||||||
|
ALLOCATE(v_z(NXB*NYB),v_x(NYB*NZB),v_y(NXB*NZB))
|
||||||
|
ALLOCATE(t_z(NXB*NYB),t_x(NYB*NZB),t_y(NXB*NZB))
|
||||||
|
ALLOCATE(pvec_z(3,NXB*NYB),pvec_y(3,NXB*NZB),pvec_x(3,NYB*NZB))
|
||||||
|
ALLOCATE(tvec_z(3,NXB*NYB),tvec_y(3,NXB*NZB),tvec_x(3,NYB*NZB))
|
||||||
|
ALLOCATE(crosspoint_ZZ(50,NXB*NYB),crosspoint_YY(50,NXB*NZB),crosspoint_XX(50,NYB*NZB))
|
||||||
|
ALLOCATE(mmz_per(NXB*NYB),mmy_per(NXB*NZB),mmx_per(NYB*NZB))
|
||||||
|
|
||||||
|
!Vector of the Triangle
|
||||||
|
edge1 = vert1 - vert0
|
||||||
|
edge2 = vert2 - vert0
|
||||||
|
dir_z = [0.D0,0.D0,1.D0]
|
||||||
|
dir_y = [0.D0,1.D0,0.D0]
|
||||||
|
dir_x = [1.D0,0.D0,0.D0]
|
||||||
|
mmx_per=0
|
||||||
|
mmy_per=0
|
||||||
|
mmz_per=0
|
||||||
|
DO i0=1,n_face
|
||||||
|
Face_Triangle_NormVect(1,i0)=edge1(2,i0) * edge2(3,i0)-edge1(3,i0) * edge2(2,i0)
|
||||||
|
Face_Triangle_NormVect(2,i0)=edge1(3,i0) * edge2(1,i0)-edge1(1,i0) * edge2(3,i0)
|
||||||
|
Face_Triangle_NormVect(3,i0)=edge1(1,i0) * edge2(2,i0)-edge1(2,i0) * edge2(1,i0)
|
||||||
|
ENDDO
|
||||||
|
!CALL OMP_SET_NUM_THREADS(16)
|
||||||
|
!$OMP PARALLEL DO PRIVATE(i0,j1,i1,Rz,verts_Dotmultp,LOGICAL_1,LOGICAL_2,LOGICAL_3,LOGICAL_4,LOGICAL_5,LOGICAL_6)
|
||||||
|
!get the intersaction of ray and z-face and save it into "coor_z_terrain"
|
||||||
|
Do j1=1,NYB
|
||||||
|
Do i1=1,NXB
|
||||||
|
Rz=(j1-1)*NXB+i1
|
||||||
|
DO i0=1,n_face
|
||||||
|
orig_z(1,Rz)=coordinates_x(i1)
|
||||||
|
orig_z(2,Rz)=coordinates_y(j1)
|
||||||
|
orig_z(3,Rz)=coordinates_z(1)
|
||||||
|
tvec_z(1:3,Rz) = orig_z(1:3,Rz) - vert0(1:3,i0)
|
||||||
|
pvec_z(1,Rz) = dir_z(2)*edge2(3,i0) - dir_z(3)*edge2(2,i0)
|
||||||
|
pvec_z(2,Rz) = dir_z(3)*edge2(1,i0) - dir_z(1)*edge2(3,i0)
|
||||||
|
pvec_z(3,Rz) = dir_z(1)*edge2(2,i0) - dir_z(2)*edge2(1,i0)
|
||||||
|
det_z(Rz)=edge1(1,i0)*pvec_z(1,Rz)+edge1(2,i0)*pvec_z(2,Rz)+edge1(3,i0)*pvec_z(3,Rz)
|
||||||
|
IF (abs(det_z(Rz)) < eps105) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
u_z(Rz) = (tvec_z(1,Rz)*pvec_z(1,Rz)+tvec_z(2,Rz)*pvec_z(2,Rz)+tvec_z(3,Rz)*pvec_z(3,Rz))/det_z(Rz)
|
||||||
|
IF (u_z(Rz) < 0.D0 .or. u_z(Rz) > 1.D0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
pvec_z(1,Rz) = tvec_z(2,Rz)*edge1(3,i0) - tvec_z(3,Rz)*edge1(2,i0)
|
||||||
|
pvec_z(2,Rz) = tvec_z(3,Rz)*edge1(1,i0) - tvec_z(1,Rz)*edge1(3,i0)
|
||||||
|
pvec_z(3,Rz) = tvec_z(1,Rz)*edge1(2,i0) - tvec_z(2,Rz)*edge1(1,i0)
|
||||||
|
v_z(Rz) = (dir_z(1)*pvec_z(1,Rz)+dir_z(2)*pvec_z(2,Rz)+dir_z(3)*pvec_z(3,Rz))/det_z(Rz)
|
||||||
|
IF (v_z(Rz) < 0.D0 .or. u_z(Rz) + v_z(Rz) > 1.D0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
t_z(Rz)=(edge2(1,i0)*pvec_z(1,Rz)+edge2(2,i0)*pvec_z(2,Rz)+edge2(3,i0)*pvec_z(3,Rz))/det_z(Rz)
|
||||||
|
mmz_per(Rz) = mmz_per(Rz) + 1
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_X = orig_z(1,Rz) + t_z(Rz) * dir_z(1)
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Y = orig_z(2,Rz) + t_z(Rz) * dir_z(2)
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Z = orig_z(3,Rz) + t_z(Rz) * dir_z(3)
|
||||||
|
LOGICAL_1=crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_X<coordinates_x(1)
|
||||||
|
LOGICAL_2=crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_X>coordinates_x(NXB)
|
||||||
|
LOGICAL_3=crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Y<coordinates_y(1)
|
||||||
|
LOGICAL_4=crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Y>coordinates_y(NYB)
|
||||||
|
LOGICAL_5=crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Z<coordinates_z(1)
|
||||||
|
LOGICAL_6=crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Z>coordinates_z(NZB)
|
||||||
|
IF(LOGICAL_1 .OR. LOGICAL_2 .OR.LOGICAL_3 .OR.LOGICAL_4 .OR.LOGICAL_5 .OR.LOGICAL_6)THEN
|
||||||
|
mmz_per(Rz) = mmz_per(Rz) - 1
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
!*********************************Determine the intersection_Z attribute*******************************
|
||||||
|
verts_Dotmultp = dir_z(1) * Face_Triangle_NormVect(1,i0) + dir_z(2) * Face_Triangle_NormVect(2,i0) + dir_z(3) * Face_Triangle_NormVect(3,i0)
|
||||||
|
IF(verts_Dotmultp > 0.D0)THEN
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Log_In=.TRUE.
|
||||||
|
ELSE
|
||||||
|
crosspoint_ZZ(mmz_per(Rz),Rz)%Log_In=.FALSE.
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(mmz_per(Rz)>1)THEN
|
||||||
|
DO kk=2,mmz_per(Rz)
|
||||||
|
DO kkk=1,kk-1
|
||||||
|
IF(crosspoint_ZZ(kk,Rz)%Global_Coord%Coord_X<crosspoint_ZZ(kkk,Rz)%Global_Coord%Coord_X)THEN
|
||||||
|
CALL SWAP(crosspoint_ZZ(kk,Rz), crosspoint_ZZ(kkk,Rz))
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END PARALLEL DO
|
||||||
|
!$OMP PARALLEL DO PRIVATE(i0,k2,i2,Ry,verts_Dotmultp,LOGICAL_1,LOGICAL_2,LOGICAL_3,LOGICAL_4,LOGICAL_5,LOGICAL_6)
|
||||||
|
!get the intersaction of ray and y-face and save it into "coor_y_terrain"
|
||||||
|
DO k2=1,NZB
|
||||||
|
DO i2=1,NXB
|
||||||
|
Ry=(k2-1)*NXB+i2
|
||||||
|
DO i0=1,n_face
|
||||||
|
orig_y(1,Ry)=coordinates_x(i2)
|
||||||
|
orig_y(2,Ry)=coordinates_y(1)
|
||||||
|
orig_y(3,Ry)=coordinates_z(k2)
|
||||||
|
tvec_y(1:3,Ry) = orig_y(1:3,Ry) - vert0(1:3,i0)
|
||||||
|
pvec_y(1,Ry) = dir_y(2)*edge2(3,i0) - dir_y(3)*edge2(2,i0)
|
||||||
|
pvec_y(2,Ry) = dir_y(3)*edge2(1,i0) - dir_y(1)*edge2(3,i0)
|
||||||
|
pvec_y(3,Ry) = dir_y(1)*edge2(2,i0) - dir_y(2)*edge2(1,i0)
|
||||||
|
det_y(Ry)=edge1(1,i0)*pvec_y(1,Ry)+edge1(2,i0)*pvec_y(2,Ry)+edge1(3,i0)*pvec_y(3,Ry)
|
||||||
|
IF (abs(det_y(Ry)) < eps105) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
u_y(Ry) = (tvec_y(1,Ry)*pvec_y(1,Ry)+tvec_y(2,Ry)*pvec_y(2,Ry)+tvec_y(3,Ry)*pvec_y(3,Ry))/det_y(Ry)
|
||||||
|
IF (u_y(Ry) < 0.0 .or. u_y(Ry) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
pvec_y(1,Ry) = tvec_y(2,Ry)*edge1(3,i0) - tvec_y(3,Ry)*edge1(2,i0)
|
||||||
|
pvec_y(2,Ry) = tvec_y(3,Ry)*edge1(1,i0) - tvec_y(1,Ry)*edge1(3,i0)
|
||||||
|
pvec_y(3,Ry) = tvec_y(1,Ry)*edge1(2,i0) - tvec_y(2,Ry)*edge1(1,i0)
|
||||||
|
v_y(Ry) = (dir_y(1)*pvec_y(1,Ry)+dir_y(2)*pvec_y(2,Ry)+dir_y(3)*pvec_y(3,Ry))/det_y(Ry)
|
||||||
|
IF (v_y(Ry) < 0.0 .or. u_y(Ry) + v_y(Ry) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
t_y(Ry)=(edge2(1,i0)*pvec_y(1,Ry)+edge2(2,i0)*pvec_y(2,Ry)+edge2(3,i0)*pvec_y(3,Ry))/det_y(Ry)
|
||||||
|
mmy_per(Ry) = mmy_per(Ry) + 1
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_X=orig_y(1,Ry) + t_y(Ry) * dir_y(1)
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y=orig_y(2,Ry) + t_y(Ry) * dir_y(2)
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Z=orig_y(3,Ry) + t_y(Ry) * dir_y(3)
|
||||||
|
LOGICAL_1=crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_X<coordinates_x(1)
|
||||||
|
LOGICAL_2=crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_X>coordinates_x(NXB)
|
||||||
|
LOGICAL_3=crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y<coordinates_y(1)
|
||||||
|
LOGICAL_4=crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y>coordinates_y(NYB)
|
||||||
|
LOGICAL_5=crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Z<coordinates_z(1)
|
||||||
|
LOGICAL_6=crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Z>coordinates_z(NZB)
|
||||||
|
IF(LOGICAL_1 .OR. LOGICAL_2 .OR.LOGICAL_3 .OR.LOGICAL_4 .OR.LOGICAL_5 .OR.LOGICAL_6)THEN
|
||||||
|
mmy_per(Ry) = mmy_per(Ry) - 1
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
!*********************************Determine the intersection_Y attribute*******************************
|
||||||
|
verts_Dotmultp = dir_y(1) * Face_Triangle_NormVect(1,i0) + dir_y(2) * Face_Triangle_NormVect(2,i0) + dir_y(3) * Face_Triangle_NormVect(3,i0)
|
||||||
|
if(verts_Dotmultp > 0.D0)THEN
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Log_In=.TRUE.
|
||||||
|
ELSE
|
||||||
|
crosspoint_YY(mmy_per(Ry),Ry)%Log_In=.FALSE.
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(mmy_per(Ry)>1)THEN
|
||||||
|
DO jj=2,mmy_per(Ry)
|
||||||
|
DO jjj=1,jj-1
|
||||||
|
IF(crosspoint_YY(jj,Ry)%Global_Coord%Coord_Y<crosspoint_YY(jjj,Ry)%Global_Coord%Coord_Y)THEN
|
||||||
|
CALL SWAP(crosspoint_YY(jj,Ry), crosspoint_YY(jjj,Ry))
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END PARALLEL DO
|
||||||
|
!$OMP PARALLEL DO PRIVATE(i0,Rx,verts_Dotmultp,LOGICAL_1,LOGICAL_2,LOGICAL_3,LOGICAL_4,LOGICAL_5,LOGICAL_6)
|
||||||
|
!get the intersaction of ray and x-face and save it into "coor_x_terrain"
|
||||||
|
Do k3=1,NZB
|
||||||
|
Do j3=1,NYB
|
||||||
|
Rx=(k3-1)*NYB+j3
|
||||||
|
DO i0=1,n_face
|
||||||
|
orig_x(1,Rx)=coordinates_x(1)
|
||||||
|
orig_x(2,Rx)=coordinates_y(j3)
|
||||||
|
orig_x(3,Rx)=coordinates_z(k3)
|
||||||
|
tvec_x(1:3,Rx) = orig_x(1:3,Rx) - vert0(1:3,i0)
|
||||||
|
pvec_x(1,Rx) = dir_x(2)*edge2(3,i0) - dir_x(3)*edge2(2,i0)
|
||||||
|
pvec_x(2,Rx) = dir_x(3)*edge2(1,i0) - dir_x(1)*edge2(3,i0)
|
||||||
|
pvec_x(3,Rx) = dir_x(1)*edge2(2,i0) - dir_x(2)*edge2(1,i0)
|
||||||
|
det_x(Rx)=edge1(1,i0)*pvec_x(1,Rx)+edge1(2,i0)*pvec_x(2,Rx)+edge1(3,i0)*pvec_x(3,Rx)
|
||||||
|
IF (abs(det_x(Rx)) < eps105) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
u_x(Rx) = (tvec_x(1,Rx)*pvec_x(1,Rx)+tvec_x(2,Rx)*pvec_x(2,Rx)+tvec_x(3,Rx)*pvec_x(3,Rx))/det_x(Rx)
|
||||||
|
IF (u_x(Rx) < 0.0 .or. u_x(Rx) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
pvec_x(1,Rx) = tvec_x(2,Rx)*edge1(3,i0) - tvec_x(3,Rx)*edge1(2,i0)
|
||||||
|
pvec_x(2,Rx) = tvec_x(3,Rx)*edge1(1,i0) - tvec_x(1,Rx)*edge1(3,i0)
|
||||||
|
pvec_x(3,Rx) = tvec_x(1,Rx)*edge1(2,i0) - tvec_x(2,Rx)*edge1(1,i0)
|
||||||
|
v_x(Rx) = (dir_x(1)*pvec_x(1,Rx)+dir_x(2)*pvec_x(2,Rx)+dir_x(3)*pvec_x(3,Rx))/det_x(Rx)
|
||||||
|
IF (v_x(Rx) < 0.0 .or. u_x(Rx) + v_x(Rx) > 1.0) THEN
|
||||||
|
CYCLE
|
||||||
|
END IF
|
||||||
|
t_x(Rx)=(edge2(1,i0)*pvec_x(1,Rx)+edge2(2,i0)*pvec_x(2,Rx)+edge2(3,i0)*pvec_x(3,Rx))/det_x(Rx)
|
||||||
|
mmx_per(Rx) = mmx_per(Rx) + 1
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X= orig_x(1,Rx) + t_x(Rx) * dir_x(1)
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Y= orig_x(2,Rx) + t_x(Rx) * dir_x(2)
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Z= orig_x(3,Rx) + t_x(Rx) * dir_x(3)
|
||||||
|
LOGICAL_1=crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X<coordinates_x(1)
|
||||||
|
LOGICAL_2=crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X>coordinates_x(NXB)
|
||||||
|
LOGICAL_3=crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Y<coordinates_y(1)
|
||||||
|
LOGICAL_4=crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Y>coordinates_y(NYB)
|
||||||
|
LOGICAL_5=crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Z<coordinates_z(1)
|
||||||
|
LOGICAL_6=crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_Z>coordinates_z(NZB)
|
||||||
|
IF(LOGICAL_1 .OR. LOGICAL_2 .OR.LOGICAL_3 .OR.LOGICAL_4 .OR.LOGICAL_5 .OR.LOGICAL_6)THEN
|
||||||
|
mmx_per(Rx) = mmx_per(Rx) - 1
|
||||||
|
CYCLE
|
||||||
|
ENDIF
|
||||||
|
!*********************************Determine the intersection_X attribute*******************************
|
||||||
|
verts_Dotmultp = dir_x(1) * Face_Triangle_NormVect(1,i0) + dir_x(2) * Face_Triangle_NormVect(2,i0) + dir_x(3) * Face_Triangle_NormVect(3,i0)
|
||||||
|
if(verts_Dotmultp > 0.D0)THEN
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Log_In=.TRUE.
|
||||||
|
ELSE
|
||||||
|
crosspoint_XX(mmx_per(Rx),Rx)%Log_In=.FALSE.
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
IF(mmx_per(Rx)>1)THEN
|
||||||
|
DO ii=2,mmx_per(Rx)
|
||||||
|
DO iii=1,mmx_per(Rx)-1
|
||||||
|
IF(crosspoint_XX(ii,Rx)%Global_Coord%Coord_X<crosspoint_XX(iii,Rx)%Global_Coord%Coord_X)THEN
|
||||||
|
CALL SWAP(crosspoint_XX(ii,Rx), crosspoint_XX(iii,Rx))
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!$OMP END PARALLEL DO
|
||||||
|
PRINT*,'Ray tracing computation of terrain is complete!'
|
||||||
|
!=========================================================================================================
|
||||||
|
WRITE(5141,*)"========================== This is the SUBROUTINE CONFORMALGRID =========================="
|
||||||
|
!=========================================Terrain conformal in the x-direction==========================================
|
||||||
|
!>The x-conductivity is being treated
|
||||||
|
DO k=1, Z_min-1
|
||||||
|
DO j=1, NYB
|
||||||
|
DO i=1,NX
|
||||||
|
CCSIGX(I,J,K)=AIR_CONDUCTIVITY
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
DO k=Z_max+1, NZB
|
||||||
|
DO j=1, NYB
|
||||||
|
DO i=1,NX
|
||||||
|
CCSIGX(I,J,K)=TAR_CONDUCTIVITY(2)
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
DO k=Z_min, Z_max
|
||||||
|
DO j=1, NYB
|
||||||
|
Rx=(k-1)*NYB+j
|
||||||
|
IF(mmx_per(Rx)==1)THEN !The case with only one intersection point
|
||||||
|
IF (crosspoint_XX(1,Rx)%Log_In) THEN !The intersection point is the penetration point, that is, the air penetrates into the stratum
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=(crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=i
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
LenRatio_CCSIGX(KIdx_1,J,K) = ABS((crosspoint_XX(1,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_1)))/Cdelx(KIdx_1)
|
||||||
|
CCSIGX(1:(KIdx_1-1),J,K) = AIR_CONDUCTIVITY
|
||||||
|
CCSIGX(KIdx_1,J,K) = LenRatio_CCSIGX(KIdx_1,J,K)*AIR_CONDUCTIVITY+(1-LenRatio_CCSIGX(KIdx_1,J,K))*TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGX((KIdx_1+1):NX,J,K) = TAR_CONDUCTIVITY(2)
|
||||||
|
ELSE !The intersection point is the exit point, that is, it penetrates into the air from the stratum
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=(crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=i
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
LenRatio_CCSIGX(KIdx_1,J,K) = ABS((crosspoint_XX(1,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_1)))/Cdelx(KIdx_1)
|
||||||
|
CCSIGX(1:(KIdx_1-1),J,K) = TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGX(KIdx_1,J,K) = LenRatio_CCSIGX(KIdx_1,J,K)*TAR_CONDUCTIVITY(2)+(1-LenRatio_CCSIGX(KIdx_1,J,K))*AIR_CONDUCTIVITY
|
||||||
|
CCSIGX((KIdx_1+1):NX,J,K) = AIR_CONDUCTIVITY
|
||||||
|
ENDIF
|
||||||
|
ELSEIF(mmx_per(Rx)>1)THEN !There are intersection points and the number is greater than one
|
||||||
|
idx_start=0;idx_end=0
|
||||||
|
DO ii=1,mmx_per(Rx)
|
||||||
|
IF (ii==1)THEN !First, determine the first intersection point
|
||||||
|
IF(crosspoint_XX(ii,Rx)%Log_In)THEN
|
||||||
|
idx_start=ii
|
||||||
|
ELSEIF(.NOT.crosspoint_XX(ii,Rx)%Log_In)THEN
|
||||||
|
idx_end=ii
|
||||||
|
ENDIF
|
||||||
|
IF (crosspoint_XX(ii,Rx)%Log_In) THEN !The intersection point is the penetration point, that is, the air penetrates into the stratum
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=(crosspoint_XX(ii,Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(ii,Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=i
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGX(1:(KIdx_1-1),J,K) = AIR_CONDUCTIVITY
|
||||||
|
ELSE !The intersection point is the exit point, that is, it penetrates into the air from the stratum
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=(crosspoint_XX(ii,Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(ii,Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=i
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGX(1:(KIdx_1-1),J,K) = TAR_CONDUCTIVITY(2)
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
IF(crosspoint_XX(ii,Rx)%Log_In)THEN
|
||||||
|
idx_start=ii
|
||||||
|
ELSEIF(.NOT.crosspoint_XX(ii,Rx)%Log_In)THEN
|
||||||
|
idx_end=ii
|
||||||
|
ENDIF
|
||||||
|
IF((idx_start>0).AND.(idx_end>0))THEN
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=(crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
Logic_2=(crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
IF(Logic_1) KIdx_1=i
|
||||||
|
IF(Logic_2) KIdx_2=i
|
||||||
|
IF(Logic_1.and.Logic_2) EXIT
|
||||||
|
ENDDO
|
||||||
|
IF(idx_start<idx_end) THEN !First, break through the air and enter the stratum
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,J,K) = ABS((crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X-crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X))/Cdelx(KIdx_1)
|
||||||
|
CCSIGX(KIdx_1,J,K) =AIR_CONDUCTIVITY * (1-LenRatio_CCSIGX(KIdx_1,J,K)) + TAR_CONDUCTIVITY(2) * LenRatio_CCSIGX(KIdx_1,J,K)
|
||||||
|
ELSEIF(KIdx_2 > KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,J,K) = ABS((crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_1)))/Cdelx(KIdx_1)
|
||||||
|
LenRatio_CCSIGX(KIdx_2,J,K) = ABS((crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_2)))/Cdelx(KIdx_2)
|
||||||
|
CCSIGX(KIdx_1,J,K) = AIR_CONDUCTIVITY * LenRatio_CCSIGX(KIdx_1,J,K) + TAR_CONDUCTIVITY(2) * (1-LenRatio_CCSIGX(KIdx_1,J,K))
|
||||||
|
CCSIGX((KIdx_1+1):(KIdx_2-1),J,K) = TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGX(KIdx_2,J,K) = TAR_CONDUCTIVITY(2) * LenRatio_CCSIGX(KIdx_2,J,K) + AIR_CONDUCTIVITY * (1-LenRatio_CCSIGX(KIdx_2,J,K))
|
||||||
|
ENDIF
|
||||||
|
ELSE !First, break through the stratum and enter the air
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,J,K) = ABS((crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X-crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X))/Cdelx(KIdx_1)
|
||||||
|
CCSIGX(KIdx_1,J,K) = CCSIGX(KIdx_1,J,K)+TAR_CONDUCTIVITY(2) * LenRatio_CCSIGX(KIdx_1,J,K)
|
||||||
|
ELSEIF(KIdx_2 < KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGX(KIdx_1,J,K) = ABS((coordinates_x(KIdx_1+1)-crosspoint_XX(idx_start,Rx)%Global_Coord%Coord_X))/Cdelx(KIdx_1)
|
||||||
|
LenRatio_CCSIGX(KIdx_2,J,K) = ABS((crosspoint_XX(idx_end,Rx)%Global_Coord%Coord_X-coordinates_x(KIdx_2)))/Cdelx(KIdx_2)
|
||||||
|
CCSIGX(KIdx_2,J,K) = TAR_CONDUCTIVITY(2) * LenRatio_CCSIGX(KIdx_2,J,K) + AIR_CONDUCTIVITY * (1-LenRatio_CCSIGX(KIdx_2,J,K))
|
||||||
|
CCSIGX((KIdx_2+1):(KIdx_1-1),J,K) = AIR_CONDUCTIVITY
|
||||||
|
CCSIGX(KIdx_1,J,K) = AIR_CONDUCTIVITY * LenRatio_CCSIGX(KIdx_1,J,K) + TAR_CONDUCTIVITY(2) * (1-LenRatio_CCSIGX(KIdx_1,J,K))
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
IF(ii==mmx_per(Rx))THEN !The last intersection point
|
||||||
|
IF(crosspoint_XX(ii,Rx)%Log_In)THEN
|
||||||
|
idx_start=ii
|
||||||
|
ELSEIF(.NOT.crosspoint_XX(ii,Rx)%Log_In)THEN
|
||||||
|
idx_end=ii
|
||||||
|
ENDIF
|
||||||
|
IF (crosspoint_XX(ii,Rx)%Log_In) THEN !The intersection point is the penetration point, that is, the air penetrates into the stratum
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=(crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(mmx_per(Rx),Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=i
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGX((KIdx_1+1):NX,J,K) = TAR_CONDUCTIVITY(2)
|
||||||
|
ELSE !The intersection point is the exit point, that is, it penetrates into the air from the stratum
|
||||||
|
DO i=1,NX
|
||||||
|
Logic_1=(crosspoint_XX(ii,Rx)%Global_Coord%Coord_X > coordinates_x(i)).AND. &
|
||||||
|
& (crosspoint_XX(ii,Rx)%Global_Coord%Coord_X < coordinates_x(i+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=i
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGX((KIdx_1+1):NX,J,K) = AIR_CONDUCTIVITY
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ELSEIF(mmx_per(Rx)==0)THEN !In the absence of an intersection point, directly compare the Z-direction positional relationship between the ray and the z-intersection point on the plane
|
||||||
|
IF(coordinates_z(k)>crosspoint_ZZ(1,(j-1)*NXB+2)%Global_Coord%Coord_Z) THEN
|
||||||
|
CCSIGX(:,J,K) = TAR_CONDUCTIVITY(2)
|
||||||
|
ELSE
|
||||||
|
CCSIGX(:,J,K) = AIR_CONDUCTIVITY
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!=========================================Terrain conformal in the y-direction==========================================
|
||||||
|
!>The y-conductivity is being treated
|
||||||
|
DO k=1, Z_min-1
|
||||||
|
DO j=1, NY
|
||||||
|
DO i=1,NXB
|
||||||
|
CCSIGY(I,J,K)=AIR_CONDUCTIVITY
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
DO k=Z_max+1, NZB
|
||||||
|
DO j=1, NY
|
||||||
|
DO i=1,NXB
|
||||||
|
CCSIGY(I,J,K)=TAR_CONDUCTIVITY(2)
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
DO k=Z_min, Z_max
|
||||||
|
DO i=1, NXB
|
||||||
|
Ry=(k-1)*NXB+i
|
||||||
|
IF(mmy_per(Ry)==1)THEN !The case with only one intersection point
|
||||||
|
IF (crosspoint_YY(1,Ry)%Log_In) THEN !The intersection point is the penetration point, that is, the air penetrates into the stratum
|
||||||
|
DO j=1,NY
|
||||||
|
Logic_1=(crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=j
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = ABS((crosspoint_YY(1,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_1)))/Cdely(KIdx_1)
|
||||||
|
CCSIGY(i,1:(KIdx_1-1),k) = AIR_CONDUCTIVITY
|
||||||
|
CCSIGY(i,KIdx_1,k) = LenRatio_CCSIGY(i,KIdx_1,k)*AIR_CONDUCTIVITY+(1-LenRatio_CCSIGY(i,KIdx_1,k))*TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGY(i,(KIdx_1+1):NY,k) = TAR_CONDUCTIVITY(2)
|
||||||
|
ELSE !The intersection point is the exit point, that is, it penetrates into the air from the stratum
|
||||||
|
DO j=1,NY
|
||||||
|
Logic_1=(crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=j
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = ABS((crosspoint_YY(1,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_1)))/Cdely(KIdx_1)
|
||||||
|
CCSIGY(i,1:(KIdx_1-1),k) = TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGY(i,KIdx_1,K) = LenRatio_CCSIGY(i,KIdx_1,K)*TAR_CONDUCTIVITY(2)+(1-LenRatio_CCSIGY(i,KIdx_1,k))*AIR_CONDUCTIVITY
|
||||||
|
CCSIGY(i,(KIdx_1+1):NY,k) = AIR_CONDUCTIVITY
|
||||||
|
ENDIF
|
||||||
|
ELSEIF(mmy_per(Ry)>1)THEN !There are intersection points and the number is greater than one
|
||||||
|
idx_start=0;idx_end=0
|
||||||
|
DO ii=1,mmy_per(Ry)
|
||||||
|
IF (ii==1)THEN !First, determine the first intersection point
|
||||||
|
IF (crosspoint_YY(ii,Ry)%Log_In) THEN !The intersection point is the penetration point, that is, the air penetrates into the stratum
|
||||||
|
DO j=1,NY
|
||||||
|
Logic_1=(crosspoint_YY(ii,Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(ii,Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=j
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGY(i,1:(KIdx_1-1),k) = AIR_CONDUCTIVITY
|
||||||
|
ELSE !The intersection point is the exit point, that is, it penetrates into the air from the stratum
|
||||||
|
DO j=1,NY
|
||||||
|
Logic_1=(crosspoint_YY(ii,Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(ii,Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=j
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGY(i,1:(KIdx_1-1),k) = TAR_CONDUCTIVITY(2)
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
IF(crosspoint_YY(ii,Ry)%Log_In)THEN
|
||||||
|
idx_start=ii
|
||||||
|
ELSEIF(.NOT.crosspoint_YY(ii,Ry)%Log_In)THEN
|
||||||
|
idx_end=ii
|
||||||
|
ENDIF
|
||||||
|
IF((idx_start>0).AND.(idx_end>0))THEN
|
||||||
|
DO j=1,NY
|
||||||
|
Logic_1=(crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
Logic_2=(crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
IF(Logic_1) KIdx_1=j
|
||||||
|
IF(Logic_2) KIdx_2=j
|
||||||
|
IF(Logic_1.and.Logic_2) EXIT
|
||||||
|
ENDDO
|
||||||
|
IF(idx_start<idx_end) THEN !The ray first penetrate the air and enter the stratum
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = ABS((crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y-crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y))/Cdely(KIdx_1)
|
||||||
|
CCSIGY(i,KIdx_1,k) = AIR_CONDUCTIVITY * (1-LenRatio_CCSIGY(i,KIdx_1,K))+TAR_CONDUCTIVITY(2) * LenRatio_CCSIGY(i,KIdx_1,k)
|
||||||
|
ELSEIF(KIdx_2 > KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = ABS((crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_1)))/Cdely(KIdx_1)
|
||||||
|
LenRatio_CCSIGY(i,KIdx_2,k) = ABS((crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_2)))/Cdely(KIdx_2)
|
||||||
|
CCSIGY(i,KIdx_1,k) = AIR_CONDUCTIVITY * LenRatio_CCSIGY(i,KIdx_1,k) + TAR_CONDUCTIVITY(2) * (1-LenRatio_CCSIGY(i,KIdx_1,k))
|
||||||
|
CCSIGY(i,(KIdx_1+1):(KIdx_2-1),K) = TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGY(i,KIdx_2,k) = TAR_CONDUCTIVITY(2) * LenRatio_CCSIGY(i,KIdx_2,k) + AIR_CONDUCTIVITY * (1-LenRatio_CCSIGY(i,KIdx_2,k))
|
||||||
|
ENDIF
|
||||||
|
ELSE !The ray first penetrate the stratum and enter the air
|
||||||
|
IF(KIdx_1==KIdx_2) THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = ABS((crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y-crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y))/Cdely(KIdx_1)
|
||||||
|
CCSIGY(i,KIdx_1,k) = TAR_CONDUCTIVITY(2) * (1-LenRatio_CCSIGY(i,KIdx_1,K))+AIR_CONDUCTIVITY * LenRatio_CCSIGY(i,KIdx_1,k)
|
||||||
|
ELSEIF(KIdx_2 < KIdx_1)THEN
|
||||||
|
LenRatio_CCSIGY(i,KIdx_1,k) = ABS((coordinates_y(KIdx_1+1)-crosspoint_YY(idx_start,Ry)%Global_Coord%Coord_Y))/Cdely(KIdx_1)
|
||||||
|
LenRatio_CCSIGY(i,KIdx_2,k) = ABS((crosspoint_YY(idx_end,Ry)%Global_Coord%Coord_Y-coordinates_y(KIdx_2)))/Cdely(KIdx_2)
|
||||||
|
CCSIGY(i,KIdx_2,k) = TAR_CONDUCTIVITY(2) * LenRatio_CCSIGY(i,KIdx_2,K) + AIR_CONDUCTIVITY * (1-LenRatio_CCSIGY(i,KIdx_2,k))
|
||||||
|
CCSIGY(i,(KIdx_2+1):(KIdx_1-1),k) = AIR_CONDUCTIVITY
|
||||||
|
CCSIGY(i,KIdx_1,k) = AIR_CONDUCTIVITY * LenRatio_CCSIGX(i,KIdx_1,K)+TAR_CONDUCTIVITY(2)*(1-LenRatio_CCSIGY(i,KIdx_1,k))
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
IF(ii==mmy_per(Ry))THEN !The last intersection point
|
||||||
|
IF (crosspoint_YY(ii,Ry)%Log_In) THEN !The intersection point is the penetration point, that is, the air penetrates into the stratum
|
||||||
|
DO j=1,Ny
|
||||||
|
Logic_1=(crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=j
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGY(i,(KIdx_1+1):NY,k) = TAR_CONDUCTIVITY(2)
|
||||||
|
ELSE !The intersection point is the exit point, that is, it penetrates into the air from the stratum
|
||||||
|
DO j=1,Ny
|
||||||
|
Logic_1=(crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y > coordinates_y(j)).AND. &
|
||||||
|
& (crosspoint_YY(mmy_per(Ry),Ry)%Global_Coord%Coord_Y < coordinates_y(j+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=j
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
CCSIGY(i,(KIdx_1+1):NY,k) = AIR_CONDUCTIVITY
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ELSEIF(mmy_per(Ry)==0)THEN !In the absence of an intersection point, directly compare the Z-direction positional relationship between the ray and the z-intersection point on the plane
|
||||||
|
IF(coordinates_z(k)>crosspoint_ZZ(1,(i-1)*NXB+2)%Global_Coord%Coord_Z) THEN
|
||||||
|
CCSIGY(i,:,k) = TAR_CONDUCTIVITY(2)
|
||||||
|
ELSE
|
||||||
|
CCSIGY(i,:,k) = AIR_CONDUCTIVITY
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
!=========================================Terrain conformal in the z-direction==========================================
|
||||||
|
!>The z-conductivity is being treated
|
||||||
|
DO j=1, NYB
|
||||||
|
DO i=1, NXB
|
||||||
|
Rz=(j-1)*NXB+i
|
||||||
|
IF(mmz_per(Rz)>0)THEN
|
||||||
|
DO k=1,NZ
|
||||||
|
Logic_1=(crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Z > coordinates_z(k)).AND. &
|
||||||
|
& (crosspoint_ZZ(mmz_per(Rz),Rz)%Global_Coord%Coord_Z < coordinates_z(k+1))
|
||||||
|
IF(Logic_1) THEN
|
||||||
|
KIdx_1=k
|
||||||
|
EXIT
|
||||||
|
ENDIF
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
LenRatio_CCSIGZ(i,j,KIdx_1) = (crosspoint_ZZ(1,Rz)%Global_Coord%Coord_Z-coordinates_z(KIdx_1))/Cdelz(KIdx_1)
|
||||||
|
CCSIGZ(i,j,1:(KIdx_1-1)) = AIR_CONDUCTIVITY
|
||||||
|
CCSIGZ(i,j,KIdx_1) = LenRatio_CCSIGZ(i,j,KIdx_1)*AIR_CONDUCTIVITY+(1-LenRatio_CCSIGZ(i,j,KIdx_1))*TAR_CONDUCTIVITY(2)
|
||||||
|
CCSIGZ(i,j,(KIdx_1+1):NZ) = TAR_CONDUCTIVITY(2)
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
END SUBROUTINE terrain_conformal
|
||||||
@@ -13,15 +13,22 @@ SUBROUTINE ALLOCATEMEMORY
|
|||||||
USE ELECTROMAGNETIC_VARIABLES
|
USE ELECTROMAGNETIC_VARIABLES
|
||||||
USE RES_MODEL_PARAMETER
|
USE RES_MODEL_PARAMETER
|
||||||
USE TIME_PARAMETER
|
USE TIME_PARAMETER
|
||||||
|
USE PML_PARAMETER
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER ERR
|
INTEGER ERR
|
||||||
!分配ELECTROMAGNETIC_VARIABLES中的数组
|
|
||||||
WRITE(*,*)'Allocating memory... ...'
|
WRITE(*,*)'Allocating memory... ...'
|
||||||
|
!>Allocate the arrays in ELECTROMAGNETIC_VARIABLES
|
||||||
|
!! Allocate electric field components EX, EY, EZ
|
||||||
|
!! Allocate magnetic field components HX, HY, HZ
|
||||||
ALLOCATE(EX(NX,NYB,NZB), EY(NXB,NY,NZB), EZ(NXB,NYB,NZ), STAT=ERR)
|
ALLOCATE(EX(NX,NYB,NZB), EY(NXB,NY,NZB), EZ(NXB,NYB,NZ), STAT=ERR)
|
||||||
ALLOCATE(HX(NXB,NY,0:NZ), HY(NX,NYB,0:NZ), HZ(NX,NY,NZB), STAT=ERR)
|
ALLOCATE(HX(NXB,NY,0:NZ), HY(NX,NYB,0:NZ), HZ(NX,NY,NZB), STAT=ERR)
|
||||||
!分配RES_MODEL_PARAMETER中的数组
|
!>Allocate the array in RES_MODEL_PARAMETER
|
||||||
ALLOCATE(CCSIG(NX,NY,NZ), STAT=ERR)
|
!! Allocate conductivity arrays
|
||||||
!分配TIME_PARAMETER中的数组
|
ALLOCATE(CCSIG(NX,NY,NZ))
|
||||||
|
ALLOCATE(CCSIGX(NX,NYB,NZB), CCSIGY(NXB,NY,NZB), CCSIGZ(NXB,NYB,NZ))
|
||||||
|
ALLOCATE(LenRatio_CCSIGX(NX,NYB,NZB), LenRatio_CCSIGY(NXB,NY,NZB), LenRatio_CCSIGZ(NXB,NYB,NZ))
|
||||||
|
allocate(Coordix(NX),Coordiy(NY),Coordiz(NZ))
|
||||||
|
!>Allocate the array in TIME_PARAMETER
|
||||||
ALLOCATE(CTIME(NSTOP), STAT=ERR)
|
ALLOCATE(CTIME(NSTOP), STAT=ERR)
|
||||||
ALLOCATE(DELT(0:NSTOP), STAT=ERR)
|
ALLOCATE(DELT(0:NSTOP), STAT=ERR)
|
||||||
allocate(Eps_r(nstop),Cq(nstop))
|
allocate(Eps_r(nstop),Cq(nstop))
|
||||||
@@ -30,8 +37,55 @@ SUBROUTINE ALLOCATEMEMORY
|
|||||||
allocate(RecFile(NumRecHeights+1,NumRecLines),RecFilePid(NumRecHeights+1,NumRecLines))
|
allocate(RecFile(NumRecHeights+1,NumRecLines),RecFilePid(NumRecHeights+1,NumRecLines))
|
||||||
allocate(RecHzFilePid(NumRecHeights+1,NumRecLines),RecHEFilePid(NumRecHeights+1,NumRecLines))
|
allocate(RecHzFilePid(NumRecHeights+1,NumRecLines),RecHEFilePid(NumRecHeights+1,NumRecLines))
|
||||||
allocate(Height(NumRecHeights))
|
allocate(Height(NumRecHeights))
|
||||||
allocate(Coordix3(Nx),Coordiy3(Ny),Coordiz3(Nzb))
|
!>THIS IS THE ARRAY FOR NON-UNIFORM GRID
|
||||||
!THIS IS THE ARRAY FOR NON-UNIFORM GRID
|
|
||||||
ALLOCATE(CDELX(NX),CDELY(NY),CDELZ(NZ),STAT=ERR)
|
ALLOCATE(CDELX(NX),CDELY(NY),CDELZ(NZ),STAT=ERR)
|
||||||
|
!>Arrays of the CPML absorbing boundary
|
||||||
|
!! den_* = 1/kappa_* scaling arrays: always allocated; they are initialized to
|
||||||
|
!! 1.0 in ZERO, and overwritten by Get_pml_parameters only when Logic_PML=1.
|
||||||
|
!! So the iteration loop always multiplies the curl terms by den_*, and the
|
||||||
|
!! scheme degenerates exactly to the original Dirichlet-boundary version
|
||||||
|
!! (den=1, psi never updated) when the CPML boundary is disabled.
|
||||||
|
ALLOCATE(den_ex(NX),den_hx(NX),den_ey(NY),den_hy(NY),den_ez(NZ),den_hz(NZ))
|
||||||
|
ALLOCATE(c_h_zz(NZ))
|
||||||
|
ALLOCATE(inv_hz_den(NZ))
|
||||||
|
IF(Logic_PML==1)THEN
|
||||||
|
ALLOCATE(psi_Exy_1(NX,PML_Y1,NZB), psi_Exy_2(NX,PML_Y2,NZB), &
|
||||||
|
psi_Exz_1(NX,NYB,PML_Z1), psi_Exz_2(NX,NYB,PML_Z2), &
|
||||||
|
psi_Eyx_1(PML_X1,NY,NZB), psi_Eyx_2(PML_X2,NY,NZB), &
|
||||||
|
psi_Eyz_1(NXB,NY,PML_Z1), psi_Eyz_2(NXB,NY,PML_Z2), &
|
||||||
|
psi_Ezx_1(PML_X1,NYB,NZ), psi_Ezx_2(PML_X2,NYB,NZ), &
|
||||||
|
psi_Ezy_1(NXB,PML_Y1,NZ), psi_Ezy_2(NXB,PML_Y2,NZ), &
|
||||||
|
psi_Hxy_1(NXB,PML_Y1-1,NZ), psi_Hxy_2(NXB,PML_Y2-1,NZ),&
|
||||||
|
psi_Hxz_1(NXB,NY,PML_Z1-1), psi_Hxz_2(NXB,NY,PML_Z2-1),&
|
||||||
|
psi_Hyx_1(PML_X1-1,NYB,NZ), psi_Hyx_2(PML_X2-1,NYB,NZ),&
|
||||||
|
psi_Hyz_1(NX,NYB,PML_Z1-1), psi_Hyz_2(NX,NYB,PML_Z2-1),&
|
||||||
|
psi_Hzx_1(PML_X1-1,NY,NZB), psi_Hzx_2(PML_X2-1,NY,NZB),&
|
||||||
|
psi_Hzy_1(NX,PML_Y1-1,NZB), psi_Hzy_2(NX,PML_Y2-1,NZB),&
|
||||||
|
psi_Hzz_1(NX,NY,PML_Z1-1), psi_Hzz_2(NX,NY,PML_Z2-1),STAT=ERR)
|
||||||
|
ALLOCATE(b_e_x1(PML_X1),c_e_x1(PML_X1),&
|
||||||
|
alpha_PML_e_x1(PML_X1),sig_PML_e_x1(PML_X1),kappa_PML_e_x1(PML_X1))
|
||||||
|
ALLOCATE(b_h_x1(PML_X1-1),c_h_x1(PML_X1-1),&
|
||||||
|
alpha_PML_h_x1(PML_X1-1),sig_PML_h_x1(PML_X1-1),kappa_PML_h_x1(PML_X1-1))
|
||||||
|
ALLOCATE(b_e_x2(PML_X2),c_e_x2(PML_X2),&
|
||||||
|
alpha_PML_e_x2(PML_X2),sig_PML_e_x2(PML_X2),kappa_PML_e_x2(PML_X2))
|
||||||
|
ALLOCATE(b_h_x2(PML_X2-1),c_h_x2(PML_X2-1),&
|
||||||
|
alpha_PML_h_x2(PML_X2-1),sig_PML_h_x2(PML_X2-1),kappa_PML_h_x2(PML_X2-1))
|
||||||
|
ALLOCATE(b_e_y1(PML_Y1),c_e_y1(PML_Y1),&
|
||||||
|
alpha_PML_e_y1(PML_Y1),sig_PML_e_y1(PML_Y1),kappa_PML_e_y1(PML_Y1))
|
||||||
|
ALLOCATE(b_h_y1(PML_Y1-1),c_h_y1(PML_Y1-1),&
|
||||||
|
alpha_PML_h_y1(PML_Y1-1),sig_PML_h_y1(PML_Y1-1),kappa_PML_h_y1(PML_Y1-1))
|
||||||
|
ALLOCATE(b_e_y2(PML_Y2),c_e_y2(PML_Y2),&
|
||||||
|
alpha_PML_e_y2(PML_Y2),sig_PML_e_y2(PML_Y2),kappa_PML_e_y2(PML_Y2))
|
||||||
|
ALLOCATE(b_h_y2(PML_Y2-1),c_h_y2(PML_Y2-1),&
|
||||||
|
alpha_PML_h_y2(PML_Y2-1),sig_PML_h_y2(PML_Y2-1),kappa_PML_h_y2(PML_Y2-1))
|
||||||
|
ALLOCATE(b_e_z1(PML_Z1),c_e_z1(PML_Z1),&
|
||||||
|
alpha_PML_e_z1(PML_Z1),sig_PML_e_z1(PML_Z1),kappa_PML_e_z1(PML_Z1))
|
||||||
|
ALLOCATE(b_h_z1(PML_Z1-1),c_h_z1(PML_Z1-1),&
|
||||||
|
alpha_PML_h_z1(PML_Z1-1),sig_PML_h_z1(PML_Z1-1),kappa_PML_h_z1(PML_Z1-1))
|
||||||
|
ALLOCATE(b_e_z2(PML_Z2),c_e_z2(PML_Z2),&
|
||||||
|
alpha_PML_e_z2(PML_Z2),sig_PML_e_z2(PML_Z2),kappa_PML_e_z2(PML_Z2))
|
||||||
|
ALLOCATE(b_h_z2(PML_Z2-1),c_h_z2(PML_Z2-1),&
|
||||||
|
alpha_PML_h_z2(PML_Z2-1),sig_PML_h_z2(PML_Z2-1),kappa_PML_h_z2(PML_Z2-1))
|
||||||
|
ENDIF
|
||||||
RETURN
|
RETURN
|
||||||
ENDSUBROUTINE ALLOCATEMEMORY
|
ENDSUBROUTINE ALLOCATEMEMORY
|
||||||
|
|||||||
@@ -11,19 +11,26 @@ SUBROUTINE CHECKPARAMETERS
|
|||||||
USE CONSTANTPARAMETERS
|
USE CONSTANTPARAMETERS
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
integer i
|
integer i
|
||||||
WRITE(10005,*)'请检查计算参数: '
|
WRITE(10005,*)'Please check the calculation parameters: '
|
||||||
WRITE(10005,*)'矩形回线边长为：',SourceLength
|
WRITE(10005,*)'Side length of rectangular source loop:',SourceLength
|
||||||
WRITE(10005,*)'X,Y,Z方向的网格数分别为：',NX,NY,NZ
|
WRITE(10005,*)'Number of grid cells in X, Y, Z directions:',NX,NY,NZ
|
||||||
WRITE(10005,*)'线圈中心所处的网格为： ',NXS,NYS,NZS
|
WRITE(10005,*)'Grid indices of the coil center: ',NXS,NYS,NZS
|
||||||
WRITE(10005,*)'输入的最大迭代次数为： ',NSTOP
|
WRITE(10005,*)'Maximum number of iterations specified: ',NSTOP
|
||||||
WRITE(10005,*)
|
WRITE(10005,*)
|
||||||
WRITE(10005,*)'X,Y,Z方向最小晶格尺寸分别为：'
|
WRITE(10005,*)'Minimum grid spacing in X, Y, Z directions:'
|
||||||
WRITE(10005,*)'DELTA_X=',GridSize
|
WRITE(10005,*)'DELTA_X=',GridSize
|
||||||
WRITE(10005,*)'DELTA_Y=',GridSize
|
WRITE(10005,*)'DELTA_Y=',GridSize
|
||||||
WRITE(10005,*)'DELTA_Z=',GridSize
|
WRITE(10005,*)'DELTA_Z=',GridSize
|
||||||
WRITE(10005,*)'背景电导率',BACKGROUND_CONDUCTIVITY
|
WRITE(10005,*)'Background conductivity:',BACKGROUND_CONDUCTIVITY
|
||||||
WRITE(10005,*)
|
WRITE(10005,*)
|
||||||
WRITE(10005,*)'异常体参数'
|
IF(Logic_PML==1)THEN
|
||||||
|
WRITE(10005,*)'Boundary condition: CPML absorbing boundary'
|
||||||
|
WRITE(10005,*)'PML thickness in X, Y, Z directions:',PML_X1,PML_Y1,PML_Z1
|
||||||
|
ELSE
|
||||||
|
WRITE(10005,*)'Boundary condition: original Dirichlet (zero field) boundary'
|
||||||
|
ENDIF
|
||||||
|
WRITE(10005,*)
|
||||||
|
WRITE(10005,*)'Anomalous body parameters'
|
||||||
WRITE(10005,*)'NO X1 X2 Y1 Y2 Z1 Z2 CONDUCTIVITY'
|
WRITE(10005,*)'NO X1 X2 Y1 Y2 Z1 Z2 CONDUCTIVITY'
|
||||||
DO I=1,SIZE(TAR_X1)
|
DO I=1,SIZE(TAR_X1)
|
||||||
WRITE(10005,'(I3,6I5,ES15.6)')I,TAR_X1(I),TAR_X2(I),TAR_Y1(I),TAR_Y2(I),TAR_Z1(I),TAR_Z2(I),TAR_CONDUCTIVITY(I)
|
WRITE(10005,'(I3,6I5,ES15.6)')I,TAR_X1(I),TAR_X2(I),TAR_Y1(I),TAR_Y2(I),TAR_Z1(I),TAR_Z2(I),TAR_CONDUCTIVITY(I)
|
||||||
|
|||||||
@@ -7,6 +7,7 @@ SUBROUTINE FREE_MEMORY
|
|||||||
USE ELECTROMAGNETIC_VARIABLES
|
USE ELECTROMAGNETIC_VARIABLES
|
||||||
USE RES_MODEL_PARAMETER
|
USE RES_MODEL_PARAMETER
|
||||||
USE TIME_PARAMETER
|
USE TIME_PARAMETER
|
||||||
|
USE PML_PARAMETER
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER ERR
|
INTEGER ERR
|
||||||
DEALLOCATE(EX, EY, EZ, STAT=ERR)
|
DEALLOCATE(EX, EY, EZ, STAT=ERR)
|
||||||
@@ -15,5 +16,29 @@ SUBROUTINE FREE_MEMORY
|
|||||||
DEALLOCATE(CTIME, STAT=ERR)
|
DEALLOCATE(CTIME, STAT=ERR)
|
||||||
DEALLOCATE(DELT, STAT=ERR)
|
DEALLOCATE(DELT, STAT=ERR)
|
||||||
DEALLOCATE(CDELX,CDELY,CDELZ,STAT=ERR)
|
DEALLOCATE(CDELX,CDELY,CDELZ,STAT=ERR)
|
||||||
|
IF(Logic_PML==1)THEN
|
||||||
|
DEALLOCATE(psi_Exy_1, psi_Exy_2, psi_Exz_1, psi_Exz_2, &
|
||||||
|
psi_Eyx_1, psi_Eyx_2, psi_Eyz_1, psi_Eyz_2, &
|
||||||
|
psi_Ezx_1, psi_Ezx_2, psi_Ezy_1, psi_Ezy_2, &
|
||||||
|
psi_Hxy_1, psi_Hxy_2, psi_Hxz_1, psi_Hxz_2, &
|
||||||
|
psi_Hyx_1, psi_Hyx_2, psi_Hyz_1, psi_Hyz_2, &
|
||||||
|
psi_Hzx_1, psi_Hzx_2, psi_Hzy_1, psi_Hzy_2, &
|
||||||
|
psi_Hzz_1, psi_Hzz_2, STAT=ERR)
|
||||||
|
DEALLOCATE(b_e_x1,c_e_x1,alpha_PML_e_x1,sig_PML_e_x1,kappa_PML_e_x1)
|
||||||
|
DEALLOCATE(b_h_x1,c_h_x1,alpha_PML_h_x1,sig_PML_h_x1,kappa_PML_h_x1)
|
||||||
|
DEALLOCATE(b_e_x2,c_e_x2,alpha_PML_e_x2,sig_PML_e_x2,kappa_PML_e_x2)
|
||||||
|
DEALLOCATE(b_h_x2,c_h_x2,alpha_PML_h_x2,sig_PML_h_x2,kappa_PML_h_x2)
|
||||||
|
DEALLOCATE(b_e_y1,c_e_y1,alpha_PML_e_y1,sig_PML_e_y1,kappa_PML_e_y1)
|
||||||
|
DEALLOCATE(b_h_y1,c_h_y1,alpha_PML_h_y1,sig_PML_h_y1,kappa_PML_h_y1)
|
||||||
|
DEALLOCATE(b_e_y2,c_e_y2,alpha_PML_e_y2,sig_PML_e_y2,kappa_PML_e_y2)
|
||||||
|
DEALLOCATE(b_h_y2,c_h_y2,alpha_PML_h_y2,sig_PML_h_y2,kappa_PML_h_y2)
|
||||||
|
DEALLOCATE(b_e_z1,c_e_z1,alpha_PML_e_z1,sig_PML_e_z1,kappa_PML_e_z1)
|
||||||
|
DEALLOCATE(b_h_z1,c_h_z1,alpha_PML_h_z1,sig_PML_h_z1,kappa_PML_h_z1)
|
||||||
|
DEALLOCATE(b_e_z2,c_e_z2,alpha_PML_e_z2,sig_PML_e_z2,kappa_PML_e_z2)
|
||||||
|
DEALLOCATE(b_h_z2,c_h_z2,alpha_PML_h_z2,sig_PML_h_z2,kappa_PML_h_z2)
|
||||||
|
ENDIF
|
||||||
|
DEALLOCATE(den_ex,den_hx,den_ey,den_hy,den_ez,den_hz)
|
||||||
|
DEALLOCATE(c_h_zz)
|
||||||
|
DEALLOCATE(inv_hz_den)
|
||||||
RETURN
|
RETURN
|
||||||
ENDSUBROUTINE FREE_MEMORY
|
ENDSUBROUTINE FREE_MEMORY
|
||||||
|
|||||||
@@ -0,0 +1,148 @@
|
|||||||
|
!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 Get_pml_parameters
|
||||||
|
use constantparameters
|
||||||
|
USE PML_PARAMETER
|
||||||
|
implicit none
|
||||||
|
integer i,j,k,II,JJ,KK
|
||||||
|
DO i = 1,PML_X1
|
||||||
|
sig_PML_e_x1(i) = sig_x_max * ( (PML_X1 - i) / (PML_X1 - 1.0) )**ma
|
||||||
|
alpha_PML_e_x1(i) = alpha_x_max*((i-1.0)/(PML_X1-1.0))**mb
|
||||||
|
kappa_PML_e_x1(i) = 1.0+(kappa_x_max-1.0)*((PML_X1 - i) / (PML_X1 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO i = 1,PML_X1-1
|
||||||
|
sig_PML_h_x1(i) = sig_x_max * ( (PML_X1 - i - 0.5)/(PML_X1-1.0))**ma
|
||||||
|
alpha_PML_h_x1(i) = alpha_x_max*((i-0.5)/(PML_X1-1.0))**mb
|
||||||
|
kappa_PML_h_x1(i) = 1.0+(kappa_x_max-1.0)*((PML_X1 - i - 0.5) / (PML_X1 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO i = 1,PML_X2
|
||||||
|
sig_PML_e_x2(i) = sig_x_max * ( (PML_X2 - i) / (PML_X2 - 1.0) )**ma
|
||||||
|
alpha_PML_e_x2(i) = alpha_x_max*((i-1.0)/(PML_X2-1.0))**mb
|
||||||
|
kappa_PML_e_x2(i) = 1.0+(kappa_x_max-1.0)*((PML_X2 - i) / (PML_X2 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO i = 1,PML_X2-1
|
||||||
|
sig_PML_h_x2(i) = sig_x_max * ( (PML_X2 - i - 0.5)/(PML_X2-1.0))**ma
|
||||||
|
alpha_PML_h_x2(i) = alpha_x_max*((i-0.5)/(PML_X2-1.0))**mb
|
||||||
|
kappa_PML_h_x2(i) = 1.0+(kappa_x_max-1.0)*((PML_X2 - i - 0.5) / (PML_X2 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
!*************************************************************************************************
|
||||||
|
!y方向pml参数的求解
|
||||||
|
DO j = 1,PML_Y1
|
||||||
|
sig_PML_e_y1(j) = sig_y_max * ( (PML_Y1 - j ) / (PML_Y1 - 1.0) )**ma
|
||||||
|
alpha_PML_e_y1(j) = alpha_y_max*((j-1)/(PML_Y1-1.0))**mb
|
||||||
|
kappa_PML_e_y1(j) = 1.0+(kappa_y_max-1.0)*((PML_Y1 - j) / (PML_Y1 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO j = 1,PML_Y1-1
|
||||||
|
sig_PML_h_y1(j) = sig_y_max * ( (PML_Y1 - j - 0.5)/(PML_Y1-1.0))**ma
|
||||||
|
alpha_PML_h_y1(j) = alpha_y_max*((j-0.5)/(PML_Y1-1.0))**mb
|
||||||
|
kappa_PML_h_y1(j) = 1.0+(kappa_y_max-1.0)*((PML_Y1 - j - 0.5) / (PML_Y1 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO j = 1,PML_Y2
|
||||||
|
sig_PML_e_y2(j) = sig_y_max * ( (PML_Y2 - j ) / (PML_Y2 - 1.0) )**ma
|
||||||
|
alpha_PML_e_y2(j) = alpha_y_max*((j-1)/(PML_Y2-1.0))**mb
|
||||||
|
kappa_PML_e_y2(j) = 1.0+(kappa_y_max-1.0)*((PML_Y2 - j) / (PML_Y2 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO j = 1,PML_Y2-1
|
||||||
|
sig_PML_h_y2(j) = sig_y_max * ( (PML_Y2 - j - 0.5)/(PML_Y2-1.0))**ma
|
||||||
|
alpha_PML_h_y2(j) = alpha_y_max*((j-0.5)/(PML_Y2-1.0))**mb
|
||||||
|
kappa_PML_h_y2(j) = 1.0+(kappa_y_max-1.0)*((PML_Y2 - j - 0.5) / (PML_Y2 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
!*************************************************************************************************
|
||||||
|
!Z方向pml参数的求解
|
||||||
|
DO k = 1,PML_Z1
|
||||||
|
sig_PML_e_z1(k) = sig_z_max * ( (PML_Z1 - k ) / (PML_Z1 - 1.0) )**ma
|
||||||
|
alpha_PML_e_z1(k) = alpha_z_max*((k-1)/(PML_Z1-1.0))**mb
|
||||||
|
kappa_PML_e_z1(k) = 1.0+(kappa_z_max-1.0)*((PML_Z1 - k) / (PML_Z1 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO k = 1,PML_Z1-1
|
||||||
|
sig_PML_h_z1(k) = sig_z_max * ( (PML_Z1 - k - 0.5)/(PML_Z1-1.0))**ma
|
||||||
|
alpha_PML_h_z1(k) = alpha_z_max*((k-0.5)/(PML_Z1-1.0))**mb
|
||||||
|
kappa_PML_h_z1(k) = 1.0+(kappa_z_max-1.0)*((PML_Z1 - k - 0.5) / (PML_Z1 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO k = 1,PML_Z2
|
||||||
|
sig_PML_e_z2(k) = sig_z_max * ( (PML_Z2 - k ) / (PML_Z2 - 1.0) )**ma
|
||||||
|
alpha_PML_e_z2(k) = alpha_z_max*((k-1)/(PML_Z2-1.0))**mb
|
||||||
|
kappa_PML_e_z2(k) = 1.0+(kappa_z_max-1.0)*((PML_Z2 - k) / (PML_Z2 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
DO k = 1,PML_Z2-1
|
||||||
|
sig_PML_h_z2(k) = sig_z_max * ( (PML_Z2 - k - 0.5)/(PML_Z2-1.0))**ma
|
||||||
|
alpha_PML_h_z2(k) = alpha_z_max*((k-0.5)/(PML_Z2-1.0))**mb
|
||||||
|
kappa_PML_h_z2(k) = 1.0+(kappa_z_max-1.0)*((PML_Z2 - k - 0.5) / (PML_Z2 - 1.0))**ma
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
!求解den
|
||||||
|
!x方向
|
||||||
|
ii =PML_X2
|
||||||
|
DO i = 1,NX
|
||||||
|
if (i <= PML_X1) then
|
||||||
|
den_ex(i) = 1.0/kappa_PML_e_x1(i)
|
||||||
|
elseif (i >= NX+2-PML_X2) then
|
||||||
|
den_ex(i) = 1.0/kappa_PML_e_x2(ii)
|
||||||
|
ii = ii-1
|
||||||
|
else
|
||||||
|
den_ex(i) = 1.0
|
||||||
|
endif
|
||||||
|
ENDDO
|
||||||
|
ii =PML_X2-1
|
||||||
|
DO i = 1,NX
|
||||||
|
if (i <= PML_X1-1) then
|
||||||
|
den_hx(i) = 1.0/kappa_PML_h_x1(i)
|
||||||
|
elseif (i >= NX+2-PML_X2) then
|
||||||
|
den_hx(i) = 1.0/kappa_PML_h_x2(ii)
|
||||||
|
ii = ii-1
|
||||||
|
else
|
||||||
|
den_hx(i) = 1.0
|
||||||
|
endif
|
||||||
|
ENDDO
|
||||||
|
!y方向
|
||||||
|
jj = PML_Y2
|
||||||
|
DO j = 1,NY
|
||||||
|
if (j <= PML_Y1) then
|
||||||
|
den_ey(j) = 1.0/kappa_PML_e_y1(j)
|
||||||
|
elseif (j >= NY+2-PML_Y2) then
|
||||||
|
den_ey(j) = 1.0/kappa_PML_e_y2(jj)
|
||||||
|
jj = jj-1
|
||||||
|
else
|
||||||
|
den_ey(j) = 1.0
|
||||||
|
endif
|
||||||
|
ENDDO
|
||||||
|
jj =PML_Y2-1
|
||||||
|
DO j = 1,NY
|
||||||
|
if (j <= PML_Y1-1) then
|
||||||
|
den_hy(j) = 1.0/kappa_PML_h_y1(j)
|
||||||
|
elseif (j >= NY+2-PML_Y2) then
|
||||||
|
den_hy(j) = 1.0/kappa_PML_h_y2(jj)
|
||||||
|
jj = jj-1
|
||||||
|
else
|
||||||
|
den_hy(j) = 1.0
|
||||||
|
endif
|
||||||
|
ENDDO
|
||||||
|
!z方向
|
||||||
|
kk =PML_Z2
|
||||||
|
DO k = 1,NZ
|
||||||
|
if (k <= PML_Z1) then
|
||||||
|
den_ez(k) = 1.0/kappa_PML_e_z1(k)
|
||||||
|
elseif (k >= NZ+2-PML_Z2) then
|
||||||
|
den_ez(k) = 1.0/kappa_PML_e_z2(kk)
|
||||||
|
kk = kk - 1
|
||||||
|
else
|
||||||
|
den_ez(k) = 1.0
|
||||||
|
endif
|
||||||
|
ENDDO
|
||||||
|
kk =PML_Z2-1
|
||||||
|
DO k = 1,NZ
|
||||||
|
if (k <= PML_Z1-1) then
|
||||||
|
den_hz(k) = 1.0/kappa_PML_h_z1(k)
|
||||||
|
elseif (k >= NZ+2-PML_Z2) then
|
||||||
|
den_hz(k) = 1.0/kappa_PML_h_z2(kk)
|
||||||
|
kk = kk - 1
|
||||||
|
else
|
||||||
|
den_hz(k) = 1.0
|
||||||
|
endif
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
end subroutine Get_pml_parameters
|
||||||
@@ -2,34 +2,44 @@
|
|||||||
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
||||||
!Code distribution @ tdem.org or sunhuaifeng.com
|
!Code distribution @ tdem.org or sunhuaifeng.com
|
||||||
|
|
||||||
|
!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.
|
||||||
|
! IMPLICIT NONE
|
||||||
|
! CHARACTER*4 TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6
|
||||||
|
! CHARACTER*20 OUTPUT
|
||||||
|
! integer*4 FortranDate(3),FortranTime(3)
|
||||||
|
! INTEGER(4) TMPDAY, TMPMONTH, TMPYEAR
|
||||||
|
! INTEGER(4) TMPHOUR, TMPMINUTE, TMPSECOND
|
||||||
|
! CALL idate(FortranDate)
|
||||||
|
! CALL itime(FortranTime)
|
||||||
|
! tmpday=FortranDate(2); tmpmonth=FortranDate(1); tmpyear=FortranDate(3)
|
||||||
|
! tmphour=FortranTime(1); tmpminute=FortranTime(2); tmpsecond=FortranTime(3)
|
||||||
|
! WRITE(TEMP1,'(I4)')TMPYEAR
|
||||||
|
! WRITE(TEMP2,'(I2)')TMPMONTH
|
||||||
|
! WRITE(TEMP3,'(I2)')TMPDAY
|
||||||
|
! WRITE(TEMP4,'(I4)')TMPHOUR
|
||||||
|
! WRITE(TEMP5,'(I4)')TMPMINUTE
|
||||||
|
! WRITE(TEMP6,'(I4)')TMPSECOND
|
||||||
|
! OUTPUT=TRIM(ADJUSTL(TEMP1))//'-'//TRIM(ADJUSTL(TEMP2))//'-'//TRIM(ADJUSTL(TEMP3))//' '//TRIM(ADJUSTL(TEMP4))//':'//TRIM(ADJUSTL(TEMP5))//':'//TRIM(ADJUSTL(TEMP6))
|
||||||
|
! OUTPUT=TRIM(ADJUSTL(OUTPUT))
|
||||||
|
! RETURN
|
||||||
|
! ENDSUBROUTINE GET_SYS_TIMEDATA
|
||||||
|
|
||||||
SUBROUTINE GET_SYS_TIMEDATA(OUTPUT)
|
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.
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
CHARACTER*4 TEMP1,TEMP2,TEMP3,TEMP4,TEMP5,TEMP6
|
|
||||||
CHARACTER*20 OUTPUT
|
CHARACTER(LEN=20) :: OUTPUT
|
||||||
integer*4 FortranDate(3),FortranTime(3)
|
CHARACTER(LEN=8) :: DATE
|
||||||
INTEGER(4) TMPDAY, TMPMONTH, TMPYEAR
|
CHARACTER(LEN=10) :: TIME
|
||||||
INTEGER(4) TMPHOUR, TMPMINUTE, TMPSECOND
|
|
||||||
|
CALL DATE_AND_TIME(DATE,TIME)
|
||||||
!the following code is optimized by hfsun@2017-5-29 to modify an warning on the use of idate
|
|
||||||
!I also replace the function idate with idate4 to get a 4 digital year.
|
OUTPUT = DATE(1:4)//'-'// &
|
||||||
!But I received errors when use CALL idate4(FortranDate), so I use the temp solution idate4(tmpmonth,tmpday,tmpyear)
|
DATE(5:6)//'-'// &
|
||||||
|
DATE(7:8)//' '// &
|
||||||
!CALL idate4(FortranDate)
|
TIME(1:2)//':'// &
|
||||||
CALL itime(FortranTime)
|
TIME(3:4)//':'// &
|
||||||
!tmpday=FortranDate(2); tmpmonth=FortranDate(1); tmpyear=FortranDate(3)
|
TIME(5:6)
|
||||||
tmphour=FortranTime(1); tmpminute=FortranTime(2); tmpsecond=FortranTime(3)
|
|
||||||
CALL idate4(tmpmonth,tmpday,tmpyear)
|
END SUBROUTINE GET_SYS_TIMEDATA
|
||||||
!CALL itime(tmphour,tmpminute,tmpsecond)
|
|
||||||
!tmpday=FortranDate(2); tmpmonth=FortranDate(1); tmpyear=FortranDate(3)
|
|
||||||
!tmphour=FortranTime(1); tmpminute=FortranTime(2); tmpsecond=FortranTime(3)
|
|
||||||
WRITE(TEMP1,'(I4)')TMPYEAR
|
|
||||||
WRITE(TEMP2,'(I2)')TMPMONTH
|
|
||||||
WRITE(TEMP3,'(I2)')TMPDAY
|
|
||||||
WRITE(TEMP4,'(I4)')TMPHOUR
|
|
||||||
WRITE(TEMP5,'(I4)')TMPMINUTE
|
|
||||||
WRITE(TEMP6,'(I4)')TMPSECOND
|
|
||||||
OUTPUT=TRIM(ADJUSTL(TEMP1))//'-'//TRIM(ADJUSTL(TEMP2))//'-'//TRIM(ADJUSTL(TEMP3))//' '//TRIM(ADJUSTL(TEMP4))//':'//TRIM(ADJUSTL(TEMP5))//':'//TRIM(ADJUSTL(TEMP6))
|
|
||||||
OUTPUT=TRIM(ADJUSTL(OUTPUT))
|
|
||||||
RETURN
|
|
||||||
ENDSUBROUTINE GET_SYS_TIMEDATA
|
|
||||||
@@ -0,0 +1,92 @@
|
|||||||
|
!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 GET_COORDINATES
|
||||||
|
!> @brief This subroutine calculates the coordinates of each grid node in the 3D domain,
|
||||||
|
!>including the Yee grid nodes and the source-centered coordinate system.
|
||||||
|
USE CONSTANTPARAMETERS
|
||||||
|
IMPLICIT NONE
|
||||||
|
|
||||||
|
INTEGER(KIND=4) :: ii,jj,kk
|
||||||
|
!================================================
|
||||||
|
Coordiz(NZS) = -Cdelz(NZS)/2
|
||||||
|
!>In the Coordiz coordinate system, the coordinates are on the grid edge
|
||||||
|
!! Coordinates are defined at cell centers relative to source location
|
||||||
|
do kk=NZS-1,1,-1
|
||||||
|
Coordiz(kk)=Coordiz(kk+1)-(Cdelz(kk+1)+Cdelz(kk))/2
|
||||||
|
end do
|
||||||
|
do kk=NZS+1,NZ,1
|
||||||
|
Coordiz(kk)=Coordiz(kk-1)+(Cdelz(kk-1)+Cdelz(kk))/2
|
||||||
|
end do
|
||||||
|
!> Initialize X and Y coordinates based on source grid length being odd or even
|
||||||
|
IF(Logi_Sourcelenth) THEN
|
||||||
|
!> For odd source grid length, origin is at the grid center
|
||||||
|
Coordix(NXS)=0
|
||||||
|
do ii=NXS-1,1,-1
|
||||||
|
Coordix(ii)=Coordix(ii+1)-(Cdelx(ii)+Cdelx(ii+1))/2
|
||||||
|
end do
|
||||||
|
do ii=NXS+1,NX,1
|
||||||
|
Coordix(ii)=Coordix(ii-1)+(Cdelx(ii-1)+Cdelx(ii))/2
|
||||||
|
end do
|
||||||
|
|
||||||
|
Coordiy(NYS)=0
|
||||||
|
do jj=NYS-1,1,-1
|
||||||
|
Coordiy(jj)=Coordiy(jj+1)-(Cdely(jj)+Cdely(jj+1))/2
|
||||||
|
end do
|
||||||
|
do jj=NYS+1,NY,1
|
||||||
|
Coordiy(jj)=Coordiy(jj-1)+(Cdely(jj)+Cdely(jj-1))/2
|
||||||
|
end do
|
||||||
|
ELSE
|
||||||
|
!> For even source grid length, origin spans between two grid centers
|
||||||
|
Coordix(NXS)=-GridSize/2.0
|
||||||
|
Coordix(NXS+1)=GridSize/2.0
|
||||||
|
do ii=NXS-1,1,-1
|
||||||
|
Coordix(ii)=Coordix(ii+1)-(Cdelx(ii)+Cdelx(ii+1))/2
|
||||||
|
end do
|
||||||
|
do ii=NXS+2,nx,1
|
||||||
|
Coordix(ii)=Coordix(ii-1)+(Cdelx(ii-1)+Cdelx(ii))/2
|
||||||
|
end do
|
||||||
|
|
||||||
|
Coordiy(NYS)=-GridSize/2.0
|
||||||
|
Coordiy(NYS+1)=GridSize/2.0
|
||||||
|
do jj=NYS-1,1,-1
|
||||||
|
Coordiy(jj)=Coordiy(jj+1)-(Cdely(jj)+Cdely(jj+1))/2
|
||||||
|
end do
|
||||||
|
do jj=NYS+2,ny,1
|
||||||
|
Coordiy(jj)=Coordiy(jj-1)+(Cdely(jj)+Cdely(jj-1))/2
|
||||||
|
end do
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
!===============================Calculate the Yee node coordinates========================================
|
||||||
|
!> Allocate and calculate Yee grid node coordinates
|
||||||
|
ALLOCATE(coordinates_x(NXB),coordinates_y(NYB),coordinates_z(NZB))
|
||||||
|
|
||||||
|
DO ii=1,NX
|
||||||
|
coordinates_x(ii)=Coordix(ii)-Cdelx(ii)/2.0
|
||||||
|
ENDDO
|
||||||
|
coordinates_x(NXB)=Coordix(NX)+Cdelx(NX)/2.0
|
||||||
|
|
||||||
|
DO jj=1,NY
|
||||||
|
coordinates_y(jj)=Coordiy(jj)-Cdely(jj)/2.0
|
||||||
|
ENDDO
|
||||||
|
coordinates_y(NYB)=Coordiy(NY)+Cdely(NY)/2.0
|
||||||
|
|
||||||
|
DO kk=1,NZ
|
||||||
|
coordinates_z(kk)=Coordiz(kk)-Cdelz(kk)/2
|
||||||
|
ENDDO
|
||||||
|
coordinates_z(NZB)=coordinates_z(NZ)+Cdelz(NZ)
|
||||||
|
|
||||||
|
!---------------------Create a global coordinate system about HZ-----------------------!
|
||||||
|
! The HZ grid planes are located at the Yee nodes, whose source-centered
|
||||||
|
! coordinates are stored in coordinates_x/y/z (origin at the loop source /
|
||||||
|
! ground surface). The receiver coordinates read from input.dat are also
|
||||||
|
! source-centered, so Coord_HZ_* must use the SAME origin, otherwise the
|
||||||
|
! receiver-to-grid search in Get_Receiver_Gridlabel yields index 0 (or an
|
||||||
|
! uninitialized value) and the observer interpolation in Iteration.f90 reads
|
||||||
|
! out-of-bounds EX/EY/CDELX/CDELY entries -> NaN in the dBzdt output files.
|
||||||
|
ALLOCATE(Coord_HZ_X(Nx),Coord_HZ_Y(NY),Coord_HZ_Z(NZB))
|
||||||
|
Coord_HZ_X(1:NX) = coordinates_x(1:NX) !Record the HZ coordinate information in the x direction.
|
||||||
|
Coord_HZ_Y(1:NY) = coordinates_y(1:NY) !Record the HZ coordinate information in the y direction.
|
||||||
|
Coord_HZ_Z(1:NZB) = coordinates_z(1:NZB) !Record the HZ coordinate information in the z direction.
|
||||||
|
END SUBROUTINE
|
||||||
+164
-102
@@ -9,154 +9,216 @@ SUBROUTINE GET_NON_UNIFORMGRID
|
|||||||
INTEGER II
|
INTEGER II
|
||||||
INTEGER MID_P,LEFT_P,RIGHT_P,UP_P,DOWN_P
|
INTEGER MID_P,LEFT_P,RIGHT_P,UP_P,DOWN_P
|
||||||
REAL(KIND=8) CDELX_LENGTH,CDELY_LENGTH,CDELZ_LENGTH
|
REAL(KIND=8) CDELX_LENGTH,CDELY_LENGTH,CDELZ_LENGTH
|
||||||
|
WRITE(*,*)'Non-uniform grid meshing: core cells = ',GridSize,' m, expansion ratio SCALE_PAR = ',SCALE_PAR
|
||||||
! -------------------------mesh-z-------------------------------------------!
|
! -------------------------mesh-z-------------------------------------------!
|
||||||
Coordiz3(nzs)=-GridSize; Coordiz3(nzs+1)=0
|
GridSize_MAX=GridSize*MAX_RATIO
|
||||||
do ii=nzs-20,nzs+20,1
|
do ii=nzs-UniGridNumZ1,nzs+UniGridNumZ2,1
|
||||||
Cdelz(ii)=GridSize
|
Cdelz(ii)=GridSize
|
||||||
end do !Uniform mesh in an area equal to source length
|
end do !Uniform mesh in an area equal to source length
|
||||||
do ii=nzs-21,1,-1
|
do ii=nzs-UniGridNumZ1-1,1,-1
|
||||||
Cdelz(ii)=Cdelz(ii+1)*scale_par
|
Cdelz(ii)=Cdelz(ii+1)*scale_par
|
||||||
if(Cdelz(ii).gt.200)then
|
if(Cdelz(ii).gt.GridSize_MAX)then
|
||||||
Cdelz(ii)=200
|
Cdelz(ii)=GridSize_MAX
|
||||||
end if
|
end if
|
||||||
end do !Ununiform mesh in the air.
|
end do !Ununiform mesh in the air.
|
||||||
do ii=nzs+21,nz,1
|
do ii=nzs+UniGridNumZ2+1,nz,1
|
||||||
Cdelz(ii)=Cdelz(ii-1)*scale_par
|
Cdelz(ii)=Cdelz(ii-1)*scale_par
|
||||||
if(Cdelz(ii).gt.200)then
|
if(Cdelz(ii).gt.GridSize_MAX)then
|
||||||
Cdelz(ii)=200
|
Cdelz(ii)=GridSize_MAX
|
||||||
end if
|
end if
|
||||||
end do !Ununiform mesh underground
|
end do !Ununiform mesh underground
|
||||||
do ii=nzs-1,1,-1
|
|
||||||
Coordiz3(ii)=Coordiz3(ii+1)-Cdelz(ii)
|
|
||||||
end do
|
|
||||||
do ii=nzs+2,nz,1
|
|
||||||
Coordiz3(ii)=Coordiz3(ii-1)+Cdelz(ii)
|
|
||||||
end do !Record the coordination information of each grid.
|
|
||||||
! ----------------------------end of mesh------------------------------------!
|
! ----------------------------end of mesh------------------------------------!
|
||||||
! -------------------------------mesh x----------------------------------------!
|
! -------------------------------mesh x----------------------------------------!
|
||||||
if(SourceLength/GridSize.gt.51)then
|
IF(Logi_Sourcelenth) THEN !The number of grids occupied by the source is odd
|
||||||
|
if(SourceLength/GridSize.gt.51)then
|
||||||
do ii=nxs-(SourceLength/GridSize-1)/2,nxs+(SourceLength/GridSize-1)/2,1
|
do ii=nxs-(SourceLength/GridSize-1)/2,nxs+(SourceLength/GridSize-1)/2,1
|
||||||
Cdelx(ii)=GridSize
|
Cdelx(ii)=GridSize
|
||||||
end do
|
end do
|
||||||
do ii=nxs-(SourceLength/GridSize-1)/2-1,1,-1
|
do ii=nxs-(SourceLength/GridSize-1)/2-1,1,-1
|
||||||
Cdelx(ii)=Cdelx(ii+1)*scale_par
|
Cdelx(ii)=Cdelx(ii+1)*scale_par
|
||||||
if(Cdelx(ii).gt.200)then
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
Cdelx(ii)=200
|
Cdelx(ii)=GridSize_MAX
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
do ii=nxs+(SourceLength/GridSize-1)/2+1,nx,1
|
do ii=nxs+(SourceLength/GridSize-1)/2+1,nx,1
|
||||||
Cdelx(ii)=Cdelx(ii-1)*scale_par
|
Cdelx(ii)=Cdelx(ii-1)*scale_par
|
||||||
if(Cdelx(ii).gt.200)then
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
Cdelx(ii)=200
|
Cdelx(ii)=GridSize_MAX
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
else
|
else
|
||||||
do ii=nxs-50,nxs+50,1
|
do ii=nxs-UniGridNumX1,nxs+UniGridNumX2,1
|
||||||
Cdelx(ii)=GridSize
|
Cdelx(ii)=GridSize
|
||||||
end do
|
end do
|
||||||
do ii=nxs-51,1,-1
|
do ii=nxs-UniGridNumX1-1,1,-1
|
||||||
Cdelx(ii)=Cdelx(ii+1)*scale_par
|
Cdelx(ii)=Cdelx(ii+1)*scale_par
|
||||||
if(Cdelx(ii).gt.200)then
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
Cdelx(ii)=200
|
Cdelx(ii)=GridSize_MAX
|
||||||
end if
|
end if
|
||||||
end do
|
end do
|
||||||
do ii=nxs+51,nx,1
|
do ii=nxs+UniGridNumX2+1,nx,1
|
||||||
Cdelx(ii)=Cdelx(ii-1)*scale_par
|
Cdelx(ii)=Cdelx(ii-1)*scale_par
|
||||||
if(Cdelx(ii).gt.200)then
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
Cdelx(ii)=200
|
Cdelx(ii)=GridSize_MAX
|
||||||
endif
|
endif
|
||||||
end do
|
end do
|
||||||
end if
|
ENDIF
|
||||||
Coordix3(nxs)=0
|
ELSE !The number of grids occupied by the source is even
|
||||||
do ii=nxs-1,1,-1
|
if(SourceLength/GridSize.gt.51)then
|
||||||
Coordix3(ii)=Coordix3(ii+1)-(Cdelx(ii)+Cdelx(ii+1))/2
|
do ii=nxs-(SourceLength/GridSize-1)/2,nxs+1+(SourceLength/GridSize-1)/2,1
|
||||||
end do
|
Cdelx(ii)=GridSize
|
||||||
do ii=nxs+1,nx,1
|
end do
|
||||||
Coordix3(ii)=Coordix3(ii-1)+(Cdelx(ii-1)+Cdelx(ii))/2
|
do ii=nxs-(SourceLength/GridSize-1)/2-1,1,-1
|
||||||
end do
|
Cdelx(ii)=Cdelx(ii+1)*scale_par
|
||||||
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
|
Cdelx(ii)=GridSize_MAX
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
do ii=nxs+(SourceLength/GridSize-1)/2+2,nx,1
|
||||||
|
Cdelx(ii)=Cdelx(ii-1)*scale_par
|
||||||
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
|
Cdelx(ii)=GridSize_MAX
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
else
|
||||||
|
do ii=nxs-UniGridNumX1-1,nxs+UniGridNumX2,1
|
||||||
|
Cdelx(ii)=GridSize
|
||||||
|
end do
|
||||||
|
do ii=nxs-UniGridNumX1,1,-1
|
||||||
|
Cdelx(ii)=Cdelx(ii+1)*scale_par
|
||||||
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
|
Cdelx(ii)=GridSize_MAX
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
do ii=nxs+UniGridNumX2+1,nx,1
|
||||||
|
Cdelx(ii)=Cdelx(ii-1)*scale_par
|
||||||
|
if(Cdelx(ii).gt.GridSize_MAX)then
|
||||||
|
Cdelx(ii)=GridSize_MAX
|
||||||
|
endif
|
||||||
|
end do
|
||||||
|
ENDIF
|
||||||
|
ENDIF
|
||||||
! -----------------------------end of mesh------------------------------------!
|
! -----------------------------end of mesh------------------------------------!
|
||||||
! --------------------------------mesh y----------------------------------------!
|
! --------------------------------mesh y----------------------------------------!
|
||||||
if(SourceLength/GridSize.gt.51)then
|
IF(Logi_Sourcelenth) THEN !The number of grids occupied by the source is odd
|
||||||
do ii=nys-(SourceLength/GridSize-1)/2,nys+(SourceLength/GridSize-1)/2,1
|
IF(SourceLength/GridSize.gt.51)then
|
||||||
Cdely(ii)=GridSize
|
do ii=nys-(SourceLength/GridSize-1)/2,nys+(SourceLength/GridSize-1)/2,1
|
||||||
enddo
|
Cdely(ii)=GridSize
|
||||||
do ii=nys-(SourceLength/GridSize-1)/2-1,1,-1
|
enddo
|
||||||
Cdely(ii)=Cdely(ii+1)*scale_par
|
do ii=nys-(SourceLength/GridSize-1)/2-1,1,-1
|
||||||
if(Cdely(ii).gt.200)then
|
Cdely(ii)=Cdely(ii+1)*scale_par
|
||||||
Cdely(ii)=200
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
end if
|
Cdely(ii)=GridSize_MAX
|
||||||
end do
|
end if
|
||||||
do ii=nys+(SourceLength/GridSize-1)/2+1,ny,1
|
end do
|
||||||
Cdely(ii)=Cdely(ii-1)*scale_par
|
do ii=nys+(SourceLength/GridSize-1)/2+1,ny,1
|
||||||
if(Cdely(ii).gt.200)then
|
Cdely(ii)=Cdely(ii-1)*scale_par
|
||||||
Cdely(ii)=200
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
endif
|
Cdely(ii)=GridSize_MAX
|
||||||
end do
|
endif
|
||||||
else
|
end do
|
||||||
do ii=nys-25,nys+25,1
|
else
|
||||||
Cdely(ii)=GridSize
|
do ii=nys-UniGridNumY1,nys+UniGridNumY2,1
|
||||||
end do
|
Cdely(ii)=GridSize
|
||||||
do ii=nys-26,1,-1
|
end do
|
||||||
Cdely(ii)=Cdely(ii+1)*scale_par
|
do ii=nys-UniGridNumY1-1,1,-1
|
||||||
if(Cdely(ii).gt.200)then
|
Cdely(ii)=Cdely(ii+1)*scale_par
|
||||||
Cdely(ii)=200
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
end if
|
Cdely(ii)=GridSize_MAX
|
||||||
end do
|
end if
|
||||||
do ii=nys+26,ny,1
|
end do
|
||||||
Cdely(ii)=Cdely(ii-1)*scale_par
|
do ii=nys+UniGridNumY2+1,ny,1
|
||||||
if(Cdely(ii).gt.200)then
|
Cdely(ii)=Cdely(ii-1)*scale_par
|
||||||
Cdely(ii)=200
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
end if
|
Cdely(ii)=GridSize_MAX
|
||||||
end do
|
end if
|
||||||
end if
|
end do
|
||||||
Coordiy3(nys)=-(GridSize/2); Coordiy3(nys+1)=GridSize/2
|
end if
|
||||||
do ii=nys-1,1,-1
|
ELSE !The number of grids occupied by the source is even
|
||||||
Coordiy3(ii)=Coordiy3(ii+1)-(Cdely(ii)+Cdely(ii+1))/2
|
IF(SourceLength/GridSize.gt.51)then
|
||||||
end do
|
do ii=nys-(SourceLength/GridSize-1)/2,nys+1+(SourceLength/GridSize-1)/2,1
|
||||||
do ii=nys+1,ny,1
|
Cdely(ii)=GridSize
|
||||||
Coordiy3(ii)=Coordiy3(ii-1)+(Cdely(ii)+Cdely(ii-1))/2
|
enddo
|
||||||
end do
|
do ii=nys-(SourceLength/GridSize-1)/2-1,1,-1
|
||||||
|
Cdely(ii)=Cdely(ii+1)*scale_par
|
||||||
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
|
Cdely(ii)=GridSize_MAX
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
do ii=nys+(SourceLength/GridSize-1)/2+2,ny,1
|
||||||
|
Cdely(ii)=Cdely(ii-1)*scale_par
|
||||||
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
|
Cdely(ii)=GridSize_MAX
|
||||||
|
endif
|
||||||
|
end do
|
||||||
|
else
|
||||||
|
do ii=nys-UniGridNumY1-1,nys+UniGridNumY2,1
|
||||||
|
Cdely(ii)=GridSize
|
||||||
|
end do
|
||||||
|
do ii=nys-UniGridNumY1,1,-1
|
||||||
|
Cdely(ii)=Cdely(ii+1)*scale_par
|
||||||
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
|
Cdely(ii)=GridSize_MAX
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
do ii=nys+UniGridNumY2+1,ny,1
|
||||||
|
Cdely(ii)=Cdely(ii-1)*scale_par
|
||||||
|
if(Cdely(ii).gt.GridSize_MAX)then
|
||||||
|
Cdely(ii)=GridSize_MAX
|
||||||
|
end if
|
||||||
|
end do
|
||||||
|
end if
|
||||||
|
ENDIF
|
||||||
! ------------------------------end of mesh-----------------------------------!
|
! ------------------------------end of mesh-----------------------------------!
|
||||||
! ------------------------------record coordinate----------------------------!
|
|
||||||
open(10006,file='HzCoordinate.dat') !You can find the coordination information of each grid in this file.
|
|
||||||
write(10006,*)nx,ny,nz
|
|
||||||
write(10006,*)'!---------------------------------X part--------------------------------!'
|
|
||||||
do ii=1,nx,1
|
|
||||||
write(10006,*)ii,Coordix3(ii)
|
|
||||||
end do
|
|
||||||
write(10006,*)'!----------------------------end of X part----------------------------!'
|
|
||||||
write(10006,*)'!---------------------------------Y part---------------------------------!'
|
|
||||||
do ii=1,ny,1
|
|
||||||
write(10006,*)ii,Coordiy3(ii)
|
|
||||||
end do
|
|
||||||
write(10006,*)'!----------------------------end of Y part----------------------------!'
|
|
||||||
write(10006,*)'!---------------------------------Z part---------------------------------!'
|
|
||||||
do ii=1,nz,1
|
|
||||||
write(10006,*)ii,Coordiz3(ii)
|
|
||||||
end do
|
|
||||||
write(10006,*)'!----------------------------end of Z part----------------------------!'
|
|
||||||
close(10006)
|
|
||||||
!----------------------------end of recording-------------------------------!
|
|
||||||
|
|
||||||
CDELX_LENGTH=SUM(CDELX)
|
CDELX_LENGTH=SUM(CDELX)
|
||||||
CDELY_LENGTH=SUM(CDELY)
|
CDELY_LENGTH=SUM(CDELY)
|
||||||
CDELZ_LENGTH=SUM(CDELZ)
|
CDELZ_LENGTH=SUM(CDELZ)
|
||||||
WRITE(10005,*)'设置的模型尺寸为：'
|
WRITE(10005,*)'���õ�ģ�ͳߴ�Ϊ��'
|
||||||
WRITE(10005,*)'SUM_X=',CDELX_LENGTH
|
WRITE(10005,*)'SUM_X=',CDELX_LENGTH
|
||||||
WRITE(10005,*)'SUM_Y=',CDELY_LENGTH
|
WRITE(10005,*)'SUM_Y=',CDELY_LENGTH
|
||||||
WRITE(10005,*)'SUM_Z=',CDELZ_LENGTH
|
WRITE(10005,*)'SUM_Z=',CDELZ_LENGTH
|
||||||
|
|
||||||
WRITE(10005,*)'相邻网格放大系数=',SCALE_PAR
|
WRITE(10005,*)'��������Ŵ�ϵ��=',SCALE_PAR
|
||||||
WRITE(10005,*)'最大网格尺寸与最小网格尺寸之比<=',MAX_RATIO
|
WRITE(10005,*)'�������ߴ�����С����ߴ�֮��<=',MAX_RATIO
|
||||||
WRITE(10005,*)'X方向的非均匀网格尺寸为：'
|
WRITE(10005,*)'X����ķǾ�������ߴ�Ϊ��'
|
||||||
WRITE(10005,'(5F18.8)')CDELX
|
WRITE(10005,'(5F18.8)')CDELX
|
||||||
|
|
||||||
WRITE(10005,*)'Y方向的非均匀网格尺寸为：'
|
WRITE(10005,*)'Y����ķǾ�������ߴ�Ϊ��'
|
||||||
WRITE(10005,'(5F18.8)')CDELY
|
WRITE(10005,'(5F18.8)')CDELY
|
||||||
WRITE(10005,*)'Z方向的非均匀网格尺寸为：'
|
WRITE(10005,*)'Z����ķǾ�������ߴ�Ϊ��'
|
||||||
WRITE(10005,'(5F18.8)')CDELZ
|
WRITE(10005,'(5F18.8)')CDELZ
|
||||||
|
|
||||||
WRITE(*,*)'Model size:',CDELX_LENGTH,CDELY_LENGTH,CDELZ_LENGTH
|
WRITE(*,*)'Model size:',CDELX_LENGTH,CDELY_LENGTH,CDELZ_LENGTH
|
||||||
|
ENDSUBROUTINE GET_NON_UNIFORMGRID
|
||||||
|
|
||||||
|
!===============================================================================================!
|
||||||
|
! GET_UNIFORM_GRID: 均匀网格剖分，用于 CPML 吸收边界。
|
||||||
|
! 参考实现（tem3dfdtd_第二版）中 CPML 采用的是均匀网格（SCALE_PAR=1.0，
|
||||||
|
! 扩展循环全部注释），因此这里按 Logic_PML 分流：Logic_PML=1 时调用本子程序
|
||||||
|
! （均匀网格 + CPML），Logic_PML=0 时调用 GET_NON_UNIFORMGRID（非均匀网格 + Dirichlet）。
|
||||||
|
!===============================================================================================!
|
||||||
|
SUBROUTINE GET_UNIFORM_GRID
|
||||||
|
USE CONSTANTPARAMETERS
|
||||||
|
IMPLICIT NONE
|
||||||
|
INTEGER II
|
||||||
|
REAL(KIND=8) CDELX_LENGTH,CDELY_LENGTH,CDELZ_LENGTH
|
||||||
|
WRITE(*,*)'Uniform grid meshing: all cells = ',GridSize,' m (required by the CPML absorbing boundary)'
|
||||||
|
! 均匀网格：所有网格尺寸均等于 GridSize
|
||||||
|
Cdelx=GridSize
|
||||||
|
Cdely=GridSize
|
||||||
|
Cdelz=GridSize
|
||||||
|
|
||||||
|
CDELX_LENGTH=SUM(CDELX)
|
||||||
|
CDELY_LENGTH=SUM(CDELY)
|
||||||
|
CDELZ_LENGTH=SUM(CDELZ)
|
||||||
|
WRITE(10005,*)'采用均匀网格剖分（配合 CPML 吸收边界）:'
|
||||||
|
WRITE(10005,*)'SUM_X=',CDELX_LENGTH
|
||||||
|
WRITE(10005,*)'SUM_Y=',CDELY_LENGTH
|
||||||
|
WRITE(10005,*)'SUM_Z=',CDELZ_LENGTH
|
||||||
|
WRITE(10005,*)'均匀网格尺寸=',GridSize
|
||||||
|
|
||||||
|
WRITE(*,*)'Model size:',CDELX_LENGTH,CDELY_LENGTH,CDELZ_LENGTH
|
||||||
|
|
||||||
OPEN(400,FILE='CDELX.DAT',STATUS='UNKNOWN')
|
OPEN(400,FILE='CDELX.DAT',STATUS='UNKNOWN')
|
||||||
DO II=1,NX
|
DO II=1,NX
|
||||||
@@ -173,4 +235,4 @@ SUBROUTINE GET_NON_UNIFORMGRID
|
|||||||
WRITE(400,'(E13.6)')CDELZ(II)
|
WRITE(400,'(E13.6)')CDELZ(II)
|
||||||
ENDDO
|
ENDDO
|
||||||
CLOSE(400)
|
CLOSE(400)
|
||||||
ENDSUBROUTINE GET_NON_UNIFORMGRID
|
ENDSUBROUTINE GET_UNIFORM_GRID
|
||||||
|
|||||||
+135
-58
@@ -5,47 +5,57 @@
|
|||||||
SUBROUTINE GETDATA
|
SUBROUTINE GETDATA
|
||||||
USE CONSTANTPARAMETERS
|
USE CONSTANTPARAMETERS
|
||||||
!this line is added by Huaifeng Sun to get the dir 2016-10-30
|
!this line is added by Huaifeng Sun to get the dir 2016-10-30
|
||||||
USE IFPORT
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
LOGICAL ALIVE
|
LOGICAL ALIVE
|
||||||
INTEGER TEMP_II,III
|
INTEGER III,JJJ
|
||||||
!this following lines 10-21 are added by Huaifeng Sun to get the dir 2016-10-30
|
!this following lines 10-21 are added by Huaifeng Sun to get the dir 2016-10-30
|
||||||
CHARACTER(255) dir
|
|
||||||
CHARACTER(255) InputFileName
|
CHARACTER(255) InputFileName
|
||||||
INTEGER(4) length
|
|
||||||
length = GETDRIVEDIRQQ(dir)
|
InputFileName='input.dat'
|
||||||
IF (length .GT. 0) THEN
|
|
||||||
!WRITE (*,*) 'Current directory is: '
|
|
||||||
!WRITE (*,*) dir
|
|
||||||
InputFileName=trim(dir)//'//example//input.dat'
|
|
||||||
ELSE
|
|
||||||
WRITE (*,*) 'Failed to get current directory'
|
|
||||||
pause
|
|
||||||
END IF
|
|
||||||
!the following inputfilename type are modified by HFSun 2016-10-30
|
|
||||||
!INQUIRE(FILE='input.dat', EXIST=ALIVE)
|
|
||||||
INQUIRE(FILE=InputFileName, EXIST=ALIVE)
|
INQUIRE(FILE=InputFileName, EXIST=ALIVE)
|
||||||
IF(.NOT. ALIVE) THEN
|
IF(.NOT. ALIVE) THEN
|
||||||
WRITE(10005,*) "input.dat DOES NOT EXIST."
|
WRITE(10005,*) "input.dat DOES NOT EXIST."
|
||||||
STOP
|
STOP
|
||||||
ELSE
|
ELSE
|
||||||
!OPEN(234,FILE='example/input.dat',STATUS='OLD')
|
|
||||||
OPEN(234,FILE=InputFileName,STATUS='OLD')
|
OPEN(234,FILE=InputFileName,STATUS='OLD')
|
||||||
READ(234,'(a4)')CAL_TYPE !This is the calculation type, possible values are shown below.
|
READ(234,*)CAL_TYPE !This is the calculation type, possible values are shown below.
|
||||||
IF(CAL_TYPE=='TUNNEL' .OR. CAL_TYPE=='tunnel')THEN
|
! IF(CAL_TYPE=='TUNNEL' .OR. CAL_TYPE=='tunnel')THEN
|
||||||
WRITE(10005,*)'隧道模型计算开关设置正确！'
|
! WRITE(10005,*)'The tunnel model calculation switch is set correctly!'
|
||||||
ELSEIF(CAL_TYPE=='SEMI' .OR. CAL_TYPE=='semi')THEN
|
! ELSEIF(CAL_TYPE=='SEMI' .OR. CAL_TYPE=='semi')THEN
|
||||||
WRITE(10005,*)'SEMI-AIRBORNE计算开关设置正确！'
|
! WRITE(10005,*)'The SEMI-AIRBORNE compute switch is set correctly!'
|
||||||
ELSEIF(CAL_TYPE=='GROUND' .OR. CAL_TYPE=='ground')THEN
|
IF(CAL_TYPE==1)THEN
|
||||||
WRITE(10005,*)'地面模型计算开关设置正确！'
|
WRITE(10005,*)'The ground model calculation switch is set correctly!'
|
||||||
|
ELSEIF(CAL_TYPE==2)THEN
|
||||||
|
WRITE(10005,*)'The SEMI-AIRBORNE compute switch is set correctly!'
|
||||||
|
! ELSEIF(CAL_TYPE==3)THEN
|
||||||
|
! WRITE(10005,*)'The tunnel model calculation switch is set correctly!'
|
||||||
ELSE
|
ELSE
|
||||||
WRITE(10005,*)'模型计算开关设置不正确，请确定采用地面模型还是隧道模型！'
|
WRITE(10005,*)'The model calculation switch is not set correctly. Please determine whether to use the ground model or the tunnel model!'
|
||||||
STOP
|
STOP
|
||||||
ENDIF
|
ENDIF
|
||||||
READ(234,*)SourceLength
|
READ(234,*)SourceLength
|
||||||
!The length of source, unit of which is meter, and you are supposed to set SourceLengh/GridSize as an odd number for the consideration of there will exist a central point within the source loop.
|
!The length of source, unit of which is meter, and you are supposed to set SourceLengh/GridSize as an odd number for the consideration of there will exist a central point within the source loop.
|
||||||
READ(234,*)NX,NY,NZ !The value of Nx, Ny and Nz varies from model to model.
|
READ(234,*)NX,NY,NZ !The value of Nx, Ny and Nz varies from model to model.
|
||||||
READ(234,*)GridSize !Most commonly used value is 10m
|
READ(234,*)Logic_PML !Boundary condition switch: 1=CPML absorbing boundary, 0=original Dirichlet (zero field) boundary on the non-uniform grid
|
||||||
|
READ(234,*)PML_X,PML_Y,PML_Z !PML thickness in x, y and z directions, only valid when Logic_PML=1
|
||||||
|
IF(Logic_PML==1)THEN
|
||||||
|
IF(PML_X<1 .OR. PML_Y<1 .OR. PML_Z<1)THEN
|
||||||
|
WRITE(10005,*)'Error: PML thickness must be at least 1 when the CPML boundary is enabled!'
|
||||||
|
WRITE(*,*)'Error: PML thickness must be at least 1 when the CPML boundary is enabled!'
|
||||||
|
STOP
|
||||||
|
ENDIF
|
||||||
|
PML_X1=PML_X; PML_X2=PML_X
|
||||||
|
PML_Y1=PML_Y; PML_Y2=PML_Y
|
||||||
|
PML_Z1=PML_Z; PML_Z2=PML_Z
|
||||||
|
ELSE
|
||||||
|
PML_X1=0; PML_X2=0
|
||||||
|
PML_Y1=0; PML_Y2=0
|
||||||
|
PML_Z1=0; PML_Z2=0
|
||||||
|
ENDIF
|
||||||
|
READ(234,*)UniGridNumX1,UniGridNumX2
|
||||||
|
READ(234,*)UniGridNumY1,UniGridNumY2
|
||||||
|
READ(234,*)UniGridNumZ1,UniGridNumZ2
|
||||||
|
READ(234,*)GridSize !Most commonly used value is 10m
|
||||||
READ(234,*)BACKGROUND_CONDUCTIVITY !Most commonly used value is 1e-2
|
READ(234,*)BACKGROUND_CONDUCTIVITY !Most commonly used value is 1e-2
|
||||||
READ(234,*)TEMP_II !It depends on your model, and it should be set to 0 if you are doing homogeneous model calculation.
|
READ(234,*)TEMP_II !It depends on your model, and it should be set to 0 if you are doing homogeneous model calculation.
|
||||||
ALLOCATE(TAR_X1(TEMP_II))
|
ALLOCATE(TAR_X1(TEMP_II))
|
||||||
@@ -68,44 +78,111 @@ SUBROUTINE GETDATA
|
|||||||
READ(234,*)RAMP,RAMPSTEP !Most commonly used value is: Ramp=1e-6, Rampstep=1e-9
|
READ(234,*)RAMP,RAMPSTEP !Most commonly used value is: Ramp=1e-6, Rampstep=1e-9
|
||||||
READ(234,*)TIMESTEP !Most commonly used value is 1e-7
|
READ(234,*)TIMESTEP !Most commonly used value is 1e-7
|
||||||
READ(234,*)AMP !It denotes the value of amplitude of transmitting source.
|
READ(234,*)AMP !It denotes the value of amplitude of transmitting source.
|
||||||
read(234,*)NumRecHeights !It is determined by your recording configuration
|
READ(234,*)tao_abnormal !The electrical conductivity of the abnormal body
|
||||||
allocate(FlightHeight(NumRecHeights),GridNumHeight(NumRecHeights),Nzs_Air(NumRecHeights))
|
!read(234,*)NumRecHeights !It is determined by your recording configuration
|
||||||
READ(234,*)(FlightHeight(iii),iii=1,NumRecHeights)
|
!allocate(FlightHeight(NumRecHeights),GridNumHeight(NumRecHeights),Nzs_Air(NumRecHeights))
|
||||||
|
!READ(234,*)(FlightHeight(iii),iii=1,NumRecHeights)
|
||||||
READ(234,'(a12)')SOURCE_TYPE !Currently the only possible value of Source_type is 'TIXING_UPCOS'
|
READ(234,'(a12)')SOURCE_TYPE !Currently the only possible value of Source_type is 'TIXING_UPCOS'
|
||||||
read(234,'(a2)')RecFlag !Possible values are 'HE' and 'Hz'
|
READ(234,*)Point_Num !It depends on your problem, Number of measured points
|
||||||
READ(234,*)NumRecLines
|
IF(Point_Num>0) THEN
|
||||||
read(234,*)RecPointMin,RecPointMax
|
ALLOCATE(Points_Observer(Point_Num))
|
||||||
NumRecPoints=RecPointMax-RecPointMin+1
|
DO JJJ=1,Point_Num
|
||||||
IF(NumRecLines .EQ. 0)THEN
|
READ(234,*)Points_Observer(JJJ)%Idx_Num
|
||||||
WRITE(10005,*)'没有设置额外的接收点，程序继续运行！'
|
READ(234,*)Points_Observer(JJJ)%Local_Coord_To_Source%Coord_X,Points_Observer(JJJ)%Local_Coord_To_Source%Coord_Y,&
|
||||||
ELSEIF(NumRecLines .GT. 0)THEN
|
Points_Observer(JJJ)%Local_Coord_To_Source%Coord_Z !What is read here is the coordinates of the observation point with respect to the center of the source, and the positive and negative values are related to the positive direction of the axis
|
||||||
ALLOCATE(RecLine(NumRecLines),RecPoint(NumRecPoints))
|
ENDDO
|
||||||
ELSE
|
ENDIF
|
||||||
WRITE(10005,*)'额外接收点设置错误，请参阅输入数据文件格式说明，程序异常终止！'
|
!read(234,'(a2)')RecFlag !Possible values are 'HE' and 'Hz'
|
||||||
STOP
|
!READ(234,*)NumRecLines
|
||||||
ENDIF
|
!read(234,*)RecPointMin,RecPointMax
|
||||||
|
!NumRecPoints=RecPointMax-RecPointMin+1
|
||||||
|
! IF(NumRecLines .EQ. 0)THEN
|
||||||
|
! WRITE(10005,*)'No additional receiving points were set, and the program continued to run！'
|
||||||
|
! ELSEIF(NumRecLines .GT. 0)THEN
|
||||||
|
! ALLOCATE(RecLine(NumRecLines),RecPoint(NumRecPoints))
|
||||||
|
! ELSE
|
||||||
|
! WRITE(10005,*)'Extra reception point settings are incorrect. Please refer to the input data file format description. Program terminated abnormally！'
|
||||||
|
! STOP
|
||||||
|
! ENDIF
|
||||||
CLOSE(234)
|
CLOSE(234)
|
||||||
ENDIF
|
ENDIF
|
||||||
do iii=1,NumRecHeights
|
!>Detect the anomalous body surface mesh file. Two input formats are supported:
|
||||||
GridNumHeight(iii)=FlightHeight(iii)/GridSize
|
!! 1. Complex_anomalous.dat - the original text format used by this program;
|
||||||
end do
|
!! 2. Complex_anomalous.stl - the ASCII STL format (e.g. exported from GiD).
|
||||||
do iii=1,NumRecPoints,1
|
!! Only one of the two files should exist in the working folder, and the reading
|
||||||
RecPoint(iii)=iii+RecPointMin-1
|
!! mode is chosen here. The variables filled later (Vert, Triangular_face_element,
|
||||||
end do
|
!! n_point, n_face) keep the same names in both formats.
|
||||||
!计算CONSTANTPARAMETERS中的其他常数
|
INQUIRE(FILE='Complex_anomalous.dat', EXIST=Logic_AnomalousDat)
|
||||||
|
INQUIRE(FILE='Complex_anomalous.stl', EXIST=Logic_AnomalousStl)
|
||||||
|
IF(Logic_AnomalousDat .AND. Logic_AnomalousStl)THEN
|
||||||
|
WRITE(10005,*)'Both Complex_anomalous.dat and Complex_anomalous.stl exist! The .dat format takes precedence, the .stl file is ignored.'
|
||||||
|
WRITE(*,*)'Both Complex_anomalous.dat and Complex_anomalous.stl exist! The .dat format takes precedence, the .stl file is ignored.'
|
||||||
|
ELSEIF(Logic_AnomalousStl)THEN
|
||||||
|
WRITE(10005,*)'Complex_anomalous.stl found, the anomalous body will be read in STL format.'
|
||||||
|
WRITE(*,*)'Complex_anomalous.stl found, the anomalous body will be read in STL format.'
|
||||||
|
ELSEIF(Logic_AnomalousDat)THEN
|
||||||
|
WRITE(10005,*)'Complex_anomalous.dat found, the anomalous body will be read in the original format.'
|
||||||
|
WRITE(*,*)'Complex_anomalous.dat found, the anomalous body will be read in the original format.'
|
||||||
|
ELSE
|
||||||
|
WRITE(10005,*)'Warning: no anomalous body mesh file (Complex_anomalous.dat / Complex_anomalous.stl) is found! The model is treated as homogeneous.'
|
||||||
|
WRITE(*,*)'Warning: no anomalous body mesh file (Complex_anomalous.dat / Complex_anomalous.stl) is found! The model is treated as homogeneous.'
|
||||||
|
ENDIF
|
||||||
|
!>Detect the terrain surface mesh file. Two input formats are supported:
|
||||||
|
!! 1. Complex_Terrain.dat - the original text format used by this program;
|
||||||
|
!! 2. Complex_Terrain.stl - the ASCII STL format (e.g. exported from GiD).
|
||||||
|
!! Only one of the two files should exist in the working folder, and the reading
|
||||||
|
!! mode is chosen here. The variables filled later (Node_Label, CoordinatesX/Y/Z,
|
||||||
|
!! Element_Label, Element_Node1/2/3, n_point, n_face) keep the same names in both formats.
|
||||||
|
INQUIRE(FILE='Complex_Terrain.dat', EXIST=Logic_TerrainDat)
|
||||||
|
INQUIRE(FILE='Complex_Terrain.stl', EXIST=Logic_TerrainStl)
|
||||||
|
IF(Logic_TerrainDat .AND. Logic_TerrainStl)THEN
|
||||||
|
WRITE(10005,*)'Both Complex_Terrain.dat and Complex_Terrain.stl exist! The .dat format takes precedence, the .stl file is ignored.'
|
||||||
|
WRITE(*,*)'Both Complex_Terrain.dat and Complex_Terrain.stl exist! The .dat format takes precedence, the .stl file is ignored.'
|
||||||
|
ELSEIF(Logic_TerrainStl)THEN
|
||||||
|
WRITE(10005,*)'Complex_Terrain.stl found, the terrain will be read in STL format.'
|
||||||
|
WRITE(*,*)'Complex_Terrain.stl found, the terrain will be read in STL format.'
|
||||||
|
ELSEIF(Logic_TerrainDat)THEN
|
||||||
|
WRITE(10005,*)'Complex_Terrain.dat found, the terrain will be read in the original format.'
|
||||||
|
WRITE(*,*)'Complex_Terrain.dat found, the terrain will be read in the original format.'
|
||||||
|
ELSE
|
||||||
|
WRITE(10005,*)'Warning: no terrain mesh file (Complex_Terrain.dat / Complex_Terrain.stl) is found! The model is treated as without terrain.'
|
||||||
|
WRITE(*,*)'Warning: no terrain mesh file (Complex_Terrain.dat / Complex_Terrain.stl) is found! The model is treated as without terrain.'
|
||||||
|
ENDIF
|
||||||
|
! do iii=1,NumRecHeights
|
||||||
|
! GridNumHeight(iii)=FlightHeight(iii)/GridSize
|
||||||
|
! end do
|
||||||
|
! do iii=1,NumRecPoints,1
|
||||||
|
! RecPoint(iii)=iii+RecPointMin-1
|
||||||
|
! end do
|
||||||
|
!Calculate other constants in CONSTANTPARAMETERS.
|
||||||
NXB=NX+1
|
NXB=NX+1
|
||||||
NYB=NY+1
|
NYB=NY+1
|
||||||
NZB=NZ+1
|
NZB=NZ+1
|
||||||
NXS=NX/2+1
|
|
||||||
NYS=NY/2+1
|
SourceGridNum=NINT(SourceLength/GridSize)
|
||||||
NZS=NZ/2
|
IF(ABS(MOD(SourceGridNum,2))==1) THEN
|
||||||
do iii=1,NumRecHeights
|
Logi_Sourcelenth=.TRUE. !The number of grids occupied by the source is odd
|
||||||
NZS_AIR(iii)=NZS-GridNumHeight(iii)
|
print*,'The number of grids in the core area is odd'
|
||||||
end do
|
ELSE
|
||||||
do iii=1,NumRecLines,1
|
Logi_Sourcelenth=.FALSE. !The number of grids occupied by the source is even
|
||||||
RecLine(iii)=nxs-(NumRecLines-1)/2+iii-1
|
print*,'The number of grids in the core area is even'
|
||||||
end do
|
ENDIF
|
||||||
!将电流转换成电流密度
|
IF(Logi_Sourcelenth) THEN
|
||||||
|
NXS=(NX+1)/2
|
||||||
|
NYS=(NY+1)/2
|
||||||
|
NZS=NZ/2
|
||||||
|
ELSE
|
||||||
|
NXS=NX/2
|
||||||
|
NYS=NY/2
|
||||||
|
NZS=NZ/2
|
||||||
|
ENDIF
|
||||||
|
! do iii=1,NumRecHeights
|
||||||
|
! NZS_AIR(iii)=NZS-GridNumHeight(iii)
|
||||||
|
! end do
|
||||||
|
! do iii=1,NumRecLines,1
|
||||||
|
! RecLine(iii)=nxs-(NumRecLines-1)/2+iii-1
|
||||||
|
! end do
|
||||||
|
!Convert current into current density
|
||||||
AMP=AMP/(GridSize*GridSize)
|
AMP=AMP/(GridSize*GridSize)
|
||||||
SourceGridNum=int(SourceLength/GridSize)
|
SourceGridNum=int(SourceLength/GridSize)
|
||||||
ALLOCATE(SOURCE(NSTOP))
|
ALLOCATE(SOURCE(NSTOP))
|
||||||
|
|||||||
@@ -1,34 +1,210 @@
|
|||||||
!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
|
!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
|
||||||
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
!written by Xinyu Li(202335098@mail.sdu.edu.cn) and Qi Zhao(zhaoqi_326326@163.com)
|
||||||
!Code distribution @ tdem.org or sunhuaifeng.com
|
|
||||||
|
|
||||||
SUBROUTINE RES_CONFIGURE
|
SUBROUTINE RES_CONFIGURE
|
||||||
!本子程序用于设置模型的电阻率参数
|
!This subroutine is used to set the resistivity parameters of the model
|
||||||
USE CONSTANTPARAMETERS
|
USE CONSTANTPARAMETERS
|
||||||
USE ELECTROMAGNETIC_VARIABLES
|
USE ELECTROMAGNETIC_VARIABLES
|
||||||
USE RES_MODEL_PARAMETER
|
USE RES_MODEL_PARAMETER
|
||||||
USE TIME_PARAMETER
|
USE TIME_PARAMETER
|
||||||
USE OMP_LIB
|
USE OMP_LIB
|
||||||
IMPLICIT NONE
|
USE VTK_Fortran, ONLY: Struct_grid
|
||||||
INTEGER II,III,i,j,k
|
USE Precision, ONLY : i4k, r8k
|
||||||
DO K=1,NZ
|
IMPLICIT NONE
|
||||||
DO J=1,NY
|
|
||||||
DO I=1,NX
|
INTEGER :: i,ii,j,jj,k,kk,III
|
||||||
CCSIG(I,J,K)=BACKGROUND_CONDUCTIVITY !Set the background value of conductivity.
|
REAL(KIND=8) :: TEMP_SIG,DELX1,DELY1,DELZ1
|
||||||
ENDDO
|
|
||||||
ENDDO
|
REAL*8 :: D
|
||||||
ENDDO
|
INTEGER :: IRR_Terrain,IRR_Anomalous
|
||||||
II=SIZE(TAR_X1)
|
INTEGER(i4k), DIMENSION(3) :: dims
|
||||||
DO III=1,II
|
INTEGER :: RANGEX,RANGEXB,RANGEY,RANGEYB,RANGEZ,RANGEZB,RangeStartX,RangeStartY,RangeStartZ
|
||||||
DO K=TAR_Z1(III),TAR_Z2(III)
|
REAL(r8k), DIMENSION(:), ALLOCATABLE :: temp_Coordix, temp_Coordiy, temp_Coordiz
|
||||||
DO J=TAR_Y1(III),TAR_Y2(III)
|
REAL(r8k), DIMENSION(:,:,:), ALLOCATABLE :: CCSIG_temp
|
||||||
DO I=TAR_X1(III),TAR_X2(III)
|
REAL*8 :: V0_1,V0_2,V0_3,V1_1,V1_2,V1_3,V2_1,V2_2,V2_3
|
||||||
CCSIG(I,J,K)=TAR_CONDUCTIVITY(III) !Set the value of anomalous conductivity.
|
REAL*8 :: u,w,E
|
||||||
ENDDO
|
REAL*8 :: dot00, dot01, dot02, dot11, dot12, divisor
|
||||||
ENDDO
|
TYPE (Struct_grid) :: hexahedron !It is used to write a .vtk file
|
||||||
ENDDO
|
|
||||||
ENDDO
|
!>The terrain mesh file can be Complex_Terrain.dat or Complex_Terrain.stl.
|
||||||
SIGMA_MIN=MINVAL(CCSIG)
|
!!Which file is used was decided in GETDATA, here only the existence flag is checked.
|
||||||
RETURN
|
IF(Logic_TerrainDat .OR. Logic_TerrainStl)THEN
|
||||||
ENDSUBROUTINE RES_CONFIGURE
|
IRR_Terrain=1
|
||||||
!------------------------
|
ELSE
|
||||||
|
IRR_Terrain=0
|
||||||
|
ENDIF
|
||||||
|
!>The anomalous body mesh file can be Complex_anomalous.dat or Complex_anomalous.stl.
|
||||||
|
!!Which file is used was decided in GETDATA, here only the existence flag is checked.
|
||||||
|
IF(Logic_AnomalousDat .OR. Logic_AnomalousStl)THEN
|
||||||
|
IRR_Anomalous=1
|
||||||
|
ELSE
|
||||||
|
IRR_Anomalous=0
|
||||||
|
ENDIF
|
||||||
|
!======================================Get the coordinates of all terrain elements=============================================
|
||||||
|
|
||||||
|
IF (IRR_Terrain /= 0) then
|
||||||
|
PRINT*,'Conformal mesh of terrain is complete!'
|
||||||
|
CALL terrain_conformal
|
||||||
|
print*,'Conformal mesh of terrain is finished'
|
||||||
|
DEALLOCATE(orig_z,orig_y,orig_x)
|
||||||
|
DEALLOCATE(vert0,vert1,vert2,edge1,edge2)
|
||||||
|
DEALLOCATE(det_z,det_x,det_y)
|
||||||
|
DEALLOCATE(u_z,u_x,u_y)
|
||||||
|
DEALLOCATE(v_z,v_x,v_y)
|
||||||
|
DEALLOCATE(t_z,t_x,t_y)
|
||||||
|
DEALLOCATE(pvec_z,pvec_y,pvec_x)
|
||||||
|
DEALLOCATE(tvec_z,tvec_y,tvec_x)
|
||||||
|
DEALLOCATE(crosspoint_ZZ,crosspoint_XX,crosspoint_YY)
|
||||||
|
DEALLOCATE(mmz_per,mmx_per,mmy_per)
|
||||||
|
DEALLOCATE(Face_Triangle_NormVect)
|
||||||
|
SIGMA_MIN = MIN(MINVAL(CCSIGX),MINVAL(CCSIGY),MINVAL(CCSIGZ))
|
||||||
|
!=========================================================================================================
|
||||||
|
ELSE
|
||||||
|
print*,"*************This calculation does not consider undulating terrain.************"
|
||||||
|
!> No terrain file found, assign uniform background conductivity and anomalies
|
||||||
|
DO K=1,NZ
|
||||||
|
DO J=1,NY
|
||||||
|
DO I=1,NX
|
||||||
|
CCSIG(I,J,K)=BACKGROUND_CONDUCTIVITY !Set the background value of conductivity.
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
DO III=1,TEMP_II
|
||||||
|
DO K=TAR_Z1(III),TAR_Z2(III)
|
||||||
|
DO J=TAR_Y1(III),TAR_Y2(III)
|
||||||
|
DO I=TAR_X1(III),TAR_X2(III)
|
||||||
|
CCSIG(I,J,K)=TAR_CONDUCTIVITY(III) !Set the value of anomalous conductivity.
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
write(*,*)"*********************************"
|
||||||
|
write(*,*)"The Non-undulating terrain is used"
|
||||||
|
write(*,*)"*********************************"
|
||||||
|
SIGMA_MIN=MINVAL(CCSIG)
|
||||||
|
!print*,'SIGMA_MIN',SIGMA_MIN
|
||||||
|
!======================================Transfer the conductivity into all edges=============================================
|
||||||
|
!>assign conductivity values to all edges
|
||||||
|
DO I=1,NX
|
||||||
|
DO J=2,NYB-1
|
||||||
|
DO K=2,NZB-1
|
||||||
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
|
|
||||||
|
TEMP_SIG=CCSIG(I,J-1,K-1)*CDELY(J-1)*CDELZ(K-1)&
|
||||||
|
&+CCSIG(I,J-1,K)*CDELY(J-1)*CDELZ(K)&
|
||||||
|
&+CCSIG(I,J,K-1)*CDELY(J)*CDELZ(K-1)&
|
||||||
|
&+CCSIG(I,J,K)*CDELY(J)*CDELZ(K)
|
||||||
|
|
||||||
|
CCSIGX( I,J,K )=TEMP_SIG/(4.0D0*DELY1*DELZ1)
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
DO I=2,NXB-1
|
||||||
|
DO J=1,NY
|
||||||
|
DO K=2,NZB-1
|
||||||
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
||||||
|
DELZ1=(CDELZ(K-1)+CDELZ(K))/2.0D0
|
||||||
|
|
||||||
|
TEMP_SIG=CCSIG(I-1,J,K-1)*CDELX(I-1)*CDELZ(K-1)&
|
||||||
|
&+CCSIG(I-1,J,K)*CDELX(I-1)*CDELZ(K)&
|
||||||
|
&+CCSIG(I,J,K-1)*CDELX(I)*CDELZ(K-1)&
|
||||||
|
&+CCSIG(I,J,K)*CDELX(I)*CDELZ(K)
|
||||||
|
|
||||||
|
CCSIGY( I,J,K )=TEMP_SIG/(4.0D0*DELX1*DELZ1)
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
DO J=2,NYB-1
|
||||||
|
DO I=2,NXB-1
|
||||||
|
DO K=1,NZ
|
||||||
|
DELX1=(CDELX(I-1)+CDELX(I))/2.0D0
|
||||||
|
DELY1=(CDELY(J-1)+CDELY(J))/2.0D0
|
||||||
|
|
||||||
|
TEMP_SIG=CCSIG(I-1,J-1,K)*CDELX(I-1)*CDELY(J-1)&
|
||||||
|
&+CCSIG(I-1,J,K)*CDELX(I-1)*CDELY(J)&
|
||||||
|
&+CCSIG(I,J-1,K)*CDELX(I)*CDELY(J-1)&
|
||||||
|
&+CCSIG(I,J,K)*CDELX(I)*CDELY(J)
|
||||||
|
|
||||||
|
CCSIGZ( I,J,K )=TEMP_SIG/(4.0D0*DELX1*DELY1)
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
IF (IRR_Anomalous /= 0) then
|
||||||
|
PRINT*,'Conformal mesh of anomalous body is complete!'
|
||||||
|
CALL anomalous_conformal
|
||||||
|
print*,'Conformal mesh of anomalous body is finished'
|
||||||
|
ENDIF
|
||||||
|
!===============================Write a .vtk file with the model conductivity==============================
|
||||||
|
!===============================print conductivity_Z=======================================================
|
||||||
|
RANGEX=X_max-X_min+5-1
|
||||||
|
RANGEXB=RANGEX+1
|
||||||
|
RANGEY=Y_max-Y_min+5
|
||||||
|
RANGEYB=RANGEY+1
|
||||||
|
RANGEZ=Z_max-Z_min+10
|
||||||
|
RANGEZB=RANGEZ+1
|
||||||
|
ALLOCATE(temp_Coordix(RANGEXB),temp_Coordiy(RANGEYB),temp_Coordiz(RANGEZB))
|
||||||
|
ALLOCATE(CCSIG_temp(RANGEX, RANGEY, RANGEZ))
|
||||||
|
dims = [ RANGEX, RANGEY, RANGEZ ]
|
||||||
|
ii=0
|
||||||
|
jj=0
|
||||||
|
kk=0
|
||||||
|
RangeStartX=NXS-INT(RANGEX/2)
|
||||||
|
RangeStartY=NYS-INT(RANGEY/2)
|
||||||
|
RangeStartZ=NZS-2
|
||||||
|
DO ii=1,RANGEX
|
||||||
|
DO jj=1,RANGEY
|
||||||
|
DO kk=1,RANGEZ
|
||||||
|
CCSIG_temp(ii,jj,kk)=CCSIGX(ii+RangeStartX,jj+RangeStartY,kk+RangeStartZ)
|
||||||
|
! Choose edge conductivity for output:
|
||||||
|
! CCSIGZ: z-direction edge conductivity
|
||||||
|
! CCSIGY: y-direction edge conductivity
|
||||||
|
! CCSIGX: x-direction edge conductivity
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
ENDDO
|
||||||
|
DO ii=1,RANGEXB
|
||||||
|
temp_Coordix(ii) = ii
|
||||||
|
ENDDO
|
||||||
|
DO jj=1,RANGEYB
|
||||||
|
temp_Coordiy(jj) = jj
|
||||||
|
ENDDO
|
||||||
|
DO kk=1,RANGEZB
|
||||||
|
temp_Coordiz(kk) = kk
|
||||||
|
ENDDO
|
||||||
|
|
||||||
|
CALL hexahedron%init( filename = "conductivity.vtk", dims = dims, Coord_x = temp_Coordix, Coord_y = temp_Coordiy, Coord_z = temp_Coordiz )
|
||||||
|
CALL hexahedron%write
|
||||||
|
CALL hexahedron%add( names = "conductivity",values=CCSIG_temp )
|
||||||
|
CALL hexahedron%close
|
||||||
|
DEALLOCATE(temp_Coordix,temp_Coordiy,temp_Coordiz,CCSIG_temp)
|
||||||
|
!=========================================================================================
|
||||||
|
RETURN
|
||||||
|
ENDSUBROUTINE Res_Configure
|
||||||
|
!-------------------------------------------------------------------------------
|
||||||
|
! @brief Swap two crosspoint properties
|
||||||
|
! @param[in,out] crosspoint_A first crosspoint
|
||||||
|
! @param[in,out] crosspoint_B second crosspoint
|
||||||
|
!-------------------------------------------------------------------------------
|
||||||
|
SUBROUTINE SWAP(crosspoint_A,crosspoint_B)
|
||||||
|
USE CONSTANTPARAMETERS
|
||||||
|
TYPE(CrossPoint_Property),intent(inout) :: crosspoint_A, crosspoint_B
|
||||||
|
TYPE(CrossPoint_Property) :: TEMP
|
||||||
|
TEMP%Global_Coord%Coord_X=crosspoint_A%Global_Coord%Coord_X
|
||||||
|
TEMP%Global_Coord%Coord_Y=crosspoint_A%Global_Coord%Coord_Y
|
||||||
|
TEMP%Global_Coord%Coord_Z=crosspoint_A%Global_Coord%Coord_Z
|
||||||
|
TEMP%Log_In=crosspoint_A%Log_In
|
||||||
|
crosspoint_A%Global_Coord%Coord_X=crosspoint_B%Global_Coord%Coord_X
|
||||||
|
crosspoint_A%Global_Coord%Coord_Y=crosspoint_B%Global_Coord%Coord_Y
|
||||||
|
crosspoint_A%Global_Coord%Coord_Z=crosspoint_B%Global_Coord%Coord_Z
|
||||||
|
crosspoint_A%Log_In=crosspoint_B%Log_In
|
||||||
|
crosspoint_B%Global_Coord%Coord_X=TEMP%Global_Coord%Coord_X
|
||||||
|
crosspoint_B%Global_Coord%Coord_Y=TEMP%Global_Coord%Coord_Y
|
||||||
|
crosspoint_B%Global_Coord%Coord_Z=TEMP%Global_Coord%Coord_Z
|
||||||
|
crosspoint_B%Log_In=TEMP%Log_In
|
||||||
|
END SUBROUTINE
|
||||||
@@ -20,16 +20,16 @@ SUBROUTINE TIXING_SOURCE_UPCOS
|
|||||||
SOURCE(1)=AMP*0.5*(1-COS(PI*CTIME(1)/RAISETIME)) !AMP*CTIME(1)/RAISETIME
|
SOURCE(1)=AMP*0.5*(1-COS(PI*CTIME(1)/RAISETIME)) !AMP*CTIME(1)/RAISETIME
|
||||||
DO I=2,NSTOP
|
DO I=2,NSTOP
|
||||||
CTIME(I)=CTIME(I-1)+DELT(I-1)
|
CTIME(I)=CTIME(I-1)+DELT(I-1)
|
||||||
IF(CTIME(I) .LT. RAISETIME)THEN
|
IF(CTIME(I) .LT. RAISETIME)THEN !小于raistime
|
||||||
DELT(I)=RAISESTEP
|
DELT(I)=RAISESTEP
|
||||||
SOURCE(I)=AMP*0.5*(1-COS(PI*CTIME(I)/RAISETIME)) !AMP*CTIME(I)/RAISETIME
|
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
|
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
|
DELT(I)=DELT(I-1)*1.0005
|
||||||
IF(DELT(I) .GE. WAVESTEP)THEN
|
IF(DELT(I) .GE. WAVESTEP)THEN
|
||||||
DELT(I)=WAVESTEP
|
DELT(I)=WAVESTEP
|
||||||
ENDIF
|
ENDIF
|
||||||
SOURCE(I)=AMP !1.0D0
|
SOURCE(I)=AMP !1.0D0
|
||||||
ELSEIF(CTIME(I) .GE. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM .AND. CTIME(I) .LT. RAISETIME+WAVE)THEN
|
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
|
DELT(I)=DELT(I-1)*0.9995
|
||||||
IF(DELT(I) .LE. RAMPSTEP)THEN
|
IF(DELT(I) .LE. RAMPSTEP)THEN
|
||||||
DELT(I)=RAMPSTEP
|
DELT(I)=RAMPSTEP
|
||||||
|
|||||||
+48
-5
@@ -7,15 +7,58 @@ SUBROUTINE ZERO
|
|||||||
USE ELECTROMAGNETIC_VARIABLES
|
USE ELECTROMAGNETIC_VARIABLES
|
||||||
USE RES_MODEL_PARAMETER
|
USE RES_MODEL_PARAMETER
|
||||||
USE TIME_PARAMETER
|
USE TIME_PARAMETER
|
||||||
|
USE PML_PARAMETER
|
||||||
USE OMP_LIB
|
USE OMP_LIB
|
||||||
!本子程序将计算中的数组赋0值进行初始化
|
!>This subroutine will initialize the array in the calculation by setting all its elements to zero.
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
CCSIG=0.0D0
|
CCSIG=0.0D0
|
||||||
|
CCSIGX=0.0D0
|
||||||
|
CCSIGY=0.0D0
|
||||||
|
CCSIGZ=0.0D0
|
||||||
EX=0.0D0
|
EX=0.0D0
|
||||||
EY=0.0D0
|
EY=0.0D0
|
||||||
EZ=0.0D0
|
EZ=0.0D0
|
||||||
HX=0.0D0
|
HX=0.0D0
|
||||||
HY=0.0D0
|
HY=0.0D0
|
||||||
HZ=0.0D0
|
HZ=0.0D0
|
||||||
|
!>CPML arrays: den_* is always initialized to 1.0 (neutral value), so the
|
||||||
|
!! iteration loop can always multiply the curl terms by den_*; the scheme
|
||||||
|
!! degenerates exactly to the original version when Logic_PML=0.
|
||||||
|
den_ex=1.0D0
|
||||||
|
den_ey=1.0D0
|
||||||
|
den_ez=1.0D0
|
||||||
|
den_hx=1.0D0
|
||||||
|
den_hy=1.0D0
|
||||||
|
den_hz=1.0D0
|
||||||
|
c_h_zz=0.0D0
|
||||||
|
inv_hz_den=1.0D0
|
||||||
|
IF(Logic_PML==1)THEN
|
||||||
|
psi_Eyx_1=0.0D0
|
||||||
|
psi_Eyx_2=0.0D0
|
||||||
|
psi_Ezx_1=0.0D0
|
||||||
|
psi_Ezx_2=0.0D0
|
||||||
|
psi_Ezy_1=0.0D0
|
||||||
|
psi_Ezy_2=0.0D0
|
||||||
|
psi_Exy_1=0.0D0
|
||||||
|
psi_Exy_2=0.0D0
|
||||||
|
psi_Exz_1=0.0D0
|
||||||
|
psi_Exz_2=0.0D0
|
||||||
|
psi_Eyz_1=0.0D0
|
||||||
|
psi_Eyz_2=0.0D0
|
||||||
|
psi_Hyx_1=0.0D0
|
||||||
|
psi_Hyx_2=0.0D0
|
||||||
|
psi_Hzx_1=0.0D0
|
||||||
|
psi_Hzx_2=0.0D0
|
||||||
|
psi_Hxy_1=0.0D0
|
||||||
|
psi_Hxy_2=0.0D0
|
||||||
|
psi_Hzy_1=0.0D0
|
||||||
|
psi_Hzy_2=0.0D0
|
||||||
|
psi_Hxz_1=0.0D0
|
||||||
|
psi_Hxz_2=0.0D0
|
||||||
|
psi_Hyz_1=0.0D0
|
||||||
|
psi_Hyz_2=0.0D0
|
||||||
|
psi_Hzz_1=0.0D0
|
||||||
|
psi_Hzz_2=0.0D0
|
||||||
|
ENDIF
|
||||||
RETURN
|
RETURN
|
||||||
ENDSUBROUTINE ZERO
|
ENDSUBROUTINE ZERO
|
||||||
+26
-11
@@ -4,7 +4,7 @@
|
|||||||
|
|
||||||
! This is a finite difference time domain (FDTD) code for the simulation of transient electromagnetic (TEM);
|
! 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 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);
|
! 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);
|
||||||
! OpenACC API is used in this code for the acceleration with GPU device; therefore, you are recommended to compile this code with --
|
! 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.
|
! --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 TDEM.org group without the permission from Prof. Xiu Li (lixiu@chd.edu.cn)--
|
||||||
@@ -14,7 +14,7 @@
|
|||||||
!------------------------------------------------Instruction part--------------------------------------------------!
|
!------------------------------------------------Instruction part--------------------------------------------------!
|
||||||
! This module is used to declare most of the parameters which are used in the entire code.
|
! This module is used to declare most of the parameters which are used in the entire code.
|
||||||
!-----------------------------------------------------------------------------------------------------------------------!
|
!-----------------------------------------------------------------------------------------------------------------------!
|
||||||
!==========================Ö÷³ÌÐò¿ªÊ¼==============================
|
!==========================The main program begins==============================
|
||||||
PROGRAM MAIN
|
PROGRAM MAIN
|
||||||
USE OMP_LIB
|
USE OMP_LIB
|
||||||
USE CONSTANTPARAMETERS
|
USE CONSTANTPARAMETERS
|
||||||
@@ -25,7 +25,7 @@ PROGRAM MAIN
|
|||||||
CHARACTER*20, XSTRING
|
CHARACTER*20, XSTRING
|
||||||
CHARACTER*20, SYS_TIME
|
CHARACTER*20, SYS_TIME
|
||||||
OPEN(10005,FILE='logfile.log',STATUS='UNKNOWN')
|
OPEN(10005,FILE='logfile.log',STATUS='UNKNOWN')
|
||||||
CALL GET_SYS_TIMEDATA(SYS_TIME)
|
!CALL GET_SYS_TIMEDATA(SYS_TIME)
|
||||||
WRITE(10005,*)'----------------------',SYS_TIME,'----------------------'
|
WRITE(10005,*)'----------------------',SYS_TIME,'----------------------'
|
||||||
CALL GETDATA !This subroutine is used to input all the needed parameter of each calculation from 'input.dat' file.
|
CALL GETDATA !This subroutine is used to input all the needed parameter of each calculation from 'input.dat' file.
|
||||||
CALL CHECKPARAMETERS !This subroutine is used to chech the correctness of input
|
CALL CHECKPARAMETERS !This subroutine is used to chech the correctness of input
|
||||||
@@ -34,28 +34,43 @@ PROGRAM MAIN
|
|||||||
XSTRING = TRIM(ADJUSTL(XSTRING))
|
XSTRING = TRIM(ADJUSTL(XSTRING))
|
||||||
CALL MEMORY_USE_ESTIMATION !This subroutine is used to estimate the total memory usage according to the input,
|
CALL MEMORY_USE_ESTIMATION !This subroutine is used to estimate the total memory usage according to the input,
|
||||||
CALL ALLOCATEMEMORY !This subroutine is used to allocate the memory in Host.
|
CALL ALLOCATEMEMORY !This subroutine is used to allocate the memory in Host.
|
||||||
WRITE(*,*)'Preparing the non-uniform grid.. .. .. ..'
|
WRITE(*,*)'Preparing the grid.. .. .. ..'
|
||||||
CALL GET_NON_UNIFORMGRID !This subroutine is used to mesh the non-uniform grid model.
|
IF(Logic_PML==1)THEN
|
||||||
|
WRITE(*,*)'Boundary condition: CPML absorbing boundary -> uniform grid meshing'
|
||||||
|
CALL GET_UNIFORM_GRID !CPML 吸收边界：采用均匀网格剖分（与参考实现 tem3dfdtd_第二版 的组合一致）
|
||||||
|
ELSE
|
||||||
|
WRITE(*,*)'Boundary condition: Dirichlet (zero-field) boundary -> non-uniform grid meshing'
|
||||||
|
CALL GET_NON_UNIFORMGRID !Dirichlet 边界：采用非均匀网格剖分（原版方式）
|
||||||
|
ENDIF
|
||||||
WRITE(*,*)'Initializing the parameters.. .. ..'
|
WRITE(*,*)'Initializing the parameters.. .. ..'
|
||||||
CALL ZERO !This subroutine is used to initialize the value of array.
|
CALL ZERO !This subroutine is used to initialize the value of array.
|
||||||
WRITE(*,*)'Creating resistivity model.. .. ..'
|
WRITE(*,*)'Creating resistivity model.. .. ..'
|
||||||
|
CALL GET_COORDINATES
|
||||||
|
CALL Get_Receiver_Gridlabel !This subroutine is used to calculate the global coordinates and grid dispersion at the receiving point
|
||||||
CALL RES_CONFIGURE !This subroutine is used to distribute the resistivity (or conductivity) of the geology model to each grid
|
CALL RES_CONFIGURE !This subroutine is used to distribute the resistivity (or conductivity) of the geology model to each grid
|
||||||
WRITE(*,*)'Creating computing time series.. .. ..'
|
WRITE(*,*)'Creating computing time series.. .. ..'
|
||||||
CALL TIME_SERIOUS !This subroutine is used to creat the time series of the entire computation
|
CALL TIME_SERIOUS !This subroutine is used to creat the time series of the entire computation
|
||||||
WRITE(*,*)'Preparing array receiver points.. .. ..'
|
WRITE(*,*)'Preparing array receiver points.. .. ..'
|
||||||
WRITE(*,*)'Starting computing.. .. ..'
|
WRITE(*,*)'Starting computing.. .. ..'
|
||||||
CALL GET_SYS_TIMEDATA(SYS_TIME)
|
!CALL GET_SYS_TIMEDATA(SYS_TIME)
|
||||||
WRITE(10005,*)'----------------------',SYS_TIME,'----------------------'
|
WRITE(10005,*)'----------------------',SYS_TIME,'----------------------'
|
||||||
call Get_eps_r !This subroutine is used to get the fictitious dielectric constant
|
call Get_eps_r !This subroutine is used to get the fictitious dielectric constant
|
||||||
|
IF(Logic_PML==1)THEN
|
||||||
|
call Get_pml_parameters !This subroutine is used to get the CPML sigma/alpha/kappa profiles and the den_* scaling arrays
|
||||||
|
ENDIF
|
||||||
call Get_mstop !This subroutine is used to cut the entire computation process into computation fractions
|
call Get_mstop !This subroutine is used to cut the entire computation process into computation fractions
|
||||||
call GetSourcePosition !This subroutine is used to get the source position in the model.
|
call GetSourcePosition !This subroutine is used to get the source position in the model.
|
||||||
call OpenRecFiles !This subroutine is used to open all the files for the record of simulation data.
|
IF(Logic_PML==1)THEN
|
||||||
call Iteration !This subroutine is the iteration subroutine of EM filed
|
WRITE(*,*)'Starting CPML iteration (Iteration_cpml) .. .. .. ..'
|
||||||
call CloseRecFiles !This subroutine is used to close all the opened recording files
|
call Iteration_cpml !CPML 吸收边界迭代子程序
|
||||||
|
ELSE
|
||||||
|
WRITE(*,*)'Starting Dirichlet iteration (Iteration) .. .. .. ..'
|
||||||
|
call Iteration !Dirichlet 边界迭代子程序（原版）
|
||||||
|
ENDIF
|
||||||
CALL FREE_MEMORY !This subroutine is used to deallocate all the memory allocated before iteration
|
CALL FREE_MEMORY !This subroutine is used to deallocate all the memory allocated before iteration
|
||||||
CALL GET_SYS_TIMEDATA(SYS_TIME)
|
!CALL GET_SYS_TIMEDATA(SYS_TIME)
|
||||||
WRITE(10005,*)'----------------------',SYS_TIME,'----------------------'
|
WRITE(10005,*)'----------------------',SYS_TIME,'----------------------'
|
||||||
WRITE(10005,*)'Computation finished£¡'
|
WRITE(10005,*)'Computation finished！'
|
||||||
CLOSE(10005)
|
CLOSE(10005)
|
||||||
END PROGRAM MAIN
|
END PROGRAM MAIN
|
||||||
|
|
||||||
|
|||||||
@@ -0,0 +1,15 @@
|
|||||||
|
!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
|
||||||
|
!written by Qi Zhao(zhaoqi_326326@163.com)
|
||||||
|
MODULE Precision
|
||||||
|
USE ISO_FORTRAN_ENV, ONLY : i1k => INT8, i2k => INT16, i4k => INT32, i8k => INT64, &
|
||||||
|
& r4k => REAL32, r8k => REAL64, r16k => REAL128
|
||||||
|
IMPLICIT NONE
|
||||||
|
!! Author: Qi Zhao
|
||||||
|
!! Date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This module contains the Precision used for specifying the precision of variables
|
||||||
|
!!
|
||||||
|
PRIVATE
|
||||||
|
PUBLIC :: i1k, i2k, i4k, i8k, r4k, r8k, r16k
|
||||||
|
|
||||||
|
END MODULE Precision
|
||||||
@@ -0,0 +1,21 @@
|
|||||||
|
!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
|
||||||
|
!written by Qi Zhao(zhaoqi_326326@163.com)
|
||||||
|
MODULE vtk_fix_header
|
||||||
|
USE Precision, ONLY : i4k
|
||||||
|
IMPLICIT NONE
|
||||||
|
!! Author: Qi Zhao
|
||||||
|
!! Date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This module contains fix header information for the vtk file
|
||||||
|
!!
|
||||||
|
PRIVATE
|
||||||
|
PUBLIC :: version, default_title, vtkfilename, vtktitle,default_filename,vtk_form !! Selected file type
|
||||||
|
|
||||||
|
CHARACTER(LEN=*), PARAMETER :: version = '# vtk DataFile Version 3.0' !! VTK datafile version
|
||||||
|
CHARACTER(LEN=*), PARAMETER :: default_title = 'Version 3.0 VTK file' !! Title card
|
||||||
|
CHARACTER(LEN=*), PARAMETER :: default_filename = 'zhaoqi.vtk' !! Default filename
|
||||||
|
CHARACTER(LEN=*), PARAMETER :: vtk_form = 'ASCII' !! Default filename
|
||||||
|
CHARACTER(LEN=:), ALLOCATABLE :: vtkfilename !! Supplied filename
|
||||||
|
CHARACTER(LEN=:), ALLOCATABLE :: vtktitle !! Supplied title
|
||||||
|
|
||||||
|
END MODULE vtk_fix_header
|
||||||
@@ -0,0 +1,323 @@
|
|||||||
|
!Copyright (c) 2022 by LEEE under guide of Huaifeng Sun(sunhuaifeng@gmail.com)
|
||||||
|
!written by Qi Zhao(zhaoqi_326326@163.com)
|
||||||
|
|
||||||
|
! --------------------------------Subroutine part---------------------------------------------!
|
||||||
|
Module VTK_Fortran
|
||||||
|
USE Precision, ONLY : i4k, r8k
|
||||||
|
USE vtk_fix_header
|
||||||
|
IMPLICIT NONE
|
||||||
|
!! Author: Qi Zhao
|
||||||
|
!! Date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This module contains the dataset formats for vtk format, referencing https://blog.sina.com.cn/s/blog_6d5f47470102yi7g.html
|
||||||
|
!!
|
||||||
|
!! There are availble dataset formats as follow:
|
||||||
|
!! 1) Structured grids
|
||||||
|
!!
|
||||||
|
private
|
||||||
|
public :: Struct_grid
|
||||||
|
|
||||||
|
TYPE :: struct_grid
|
||||||
|
!! Structured grids
|
||||||
|
PRIVATE
|
||||||
|
INTEGER(i4k), PUBLIC :: error
|
||||||
|
CHARACTER(25) :: dataset_structure = 'DATASET UNSTRUCTURED_GRID'
|
||||||
|
INTEGER(i4k) :: num_of_point_each_element = 8
|
||||||
|
|
||||||
|
INTEGER(i4k) :: unit
|
||||||
|
|
||||||
|
INTEGER(i4k), DIMENSION(3) :: dims
|
||||||
|
REAL(r8k), DIMENSION(:), ALLOCATABLE :: Coord_x,Coord_y,Coord_z
|
||||||
|
|
||||||
|
CONTAINS
|
||||||
|
PROCEDURE, PUBLIC :: init
|
||||||
|
PROCEDURE, PUBLIC :: write => struct_grid_write
|
||||||
|
PROCEDURE, PUBLIC :: add => struct_grid_add
|
||||||
|
PROCEDURE, PUBLIC :: close => struct_grid_close
|
||||||
|
|
||||||
|
END TYPE struct_grid
|
||||||
|
|
||||||
|
CONTAINS
|
||||||
|
|
||||||
|
SUBROUTINE init (self, title, filename, dims, Coord_x, Coord_y, Coord_z)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This subtoutine is used to initialize the basic parameters
|
||||||
|
!!
|
||||||
|
IMPLICIT NONE
|
||||||
|
|
||||||
|
CLASS (struct_grid), INTENT(OUT) :: self
|
||||||
|
CHARACTER(*), INTENT(IN), OPTIONAL :: title
|
||||||
|
CHARACTER(*), INTENT(IN), OPTIONAL :: filename
|
||||||
|
INTEGER(i4k), DIMENSION(3), INTENT(IN) :: dims
|
||||||
|
REAL(r8k), DIMENSION(:), INTENT(IN) :: Coord_x, Coord_y, Coord_z
|
||||||
|
|
||||||
|
|
||||||
|
self%dims = dims
|
||||||
|
|
||||||
|
ALLOCATE(self%Coord_x(SIZE(Coord_x)))
|
||||||
|
ALLOCATE(self%Coord_y(SIZE(Coord_y)))
|
||||||
|
ALLOCATE(self%Coord_z(SIZE(Coord_z)))
|
||||||
|
|
||||||
|
self%Coord_x = Coord_x
|
||||||
|
self%Coord_y = Coord_y
|
||||||
|
self%Coord_z = Coord_z
|
||||||
|
|
||||||
|
IF (PRESENT(title)) THEN
|
||||||
|
ALLOCATE( vtktitle, source=title) !! Calling program provided a title
|
||||||
|
ELSE
|
||||||
|
ALLOCATE(vtktitle, source=default_title) !! Calling program did not provide a title. Use default
|
||||||
|
END IF
|
||||||
|
|
||||||
|
IF (PRESENT(filename)) THEN
|
||||||
|
ALLOCATE( vtkfilename, source=filename) !! Calling program provided a filename
|
||||||
|
ELSE
|
||||||
|
ALLOCATE(vtkfilename, source=default_filename) !! Calling program did not provide a filename. Use default
|
||||||
|
END IF
|
||||||
|
|
||||||
|
END SUBROUTINE init
|
||||||
|
|
||||||
|
SUBROUTINE struct_grid_write (self)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This subtoutine is used to write the data to the .vtk file
|
||||||
|
!!
|
||||||
|
!! The following programs will be executed
|
||||||
|
!! 1) Write the header key
|
||||||
|
!! 2) Write the points key and data
|
||||||
|
!! 3) Write the cells key and data
|
||||||
|
!!
|
||||||
|
IMPLICIT NONE
|
||||||
|
|
||||||
|
CLASS (struct_grid) :: self
|
||||||
|
INTEGER(i4k) ::unit
|
||||||
|
INTEGER(i4k):: error
|
||||||
|
|
||||||
|
unit = open_file( vtkfilename )
|
||||||
|
|
||||||
|
self%unit = unit
|
||||||
|
|
||||||
|
error = write_header_to_file( unit,version )
|
||||||
|
error = write_header_to_file( unit,vtktitle )
|
||||||
|
error = write_header_to_file( unit,vtk_form )
|
||||||
|
error = write_header_to_file( unit,self%dataset_structure )
|
||||||
|
|
||||||
|
error = write_point_to_file( unit, self%Coord_x, self%Coord_y, self%Coord_z, self%dims )
|
||||||
|
error = write_cell_to_file ( unit, self%num_of_point_each_element, self%dims )
|
||||||
|
|
||||||
|
END SUBROUTINE struct_grid_write
|
||||||
|
|
||||||
|
SUBROUTINE struct_grid_add(self, names,values)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This subroutine is used to write the data value with name to the .vtk file
|
||||||
|
!!
|
||||||
|
IMPLICIT NONE
|
||||||
|
CLASS (struct_grid), INTENT(IN) :: self
|
||||||
|
CHARACTER(*), INTENT(IN) :: names
|
||||||
|
REAL(r8k), DIMENSION(:,:,:), INTENT(IN) :: values
|
||||||
|
INTEGER(i4k):: error
|
||||||
|
|
||||||
|
error = write_value_to_file ( self%unit, names, values, self%dims )
|
||||||
|
|
||||||
|
END SUBROUTINE struct_grid_add
|
||||||
|
|
||||||
|
SUBROUTINE struct_grid_close(self)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! --------------------------------------------------------------------------------------------------------
|
||||||
|
!!
|
||||||
|
!! This subroutine is used to write the data value with name to the .vtk file
|
||||||
|
!!
|
||||||
|
IMPLICIT NONE
|
||||||
|
CLASS (struct_grid), INTENT(IN) :: self
|
||||||
|
|
||||||
|
close(self%unit)
|
||||||
|
|
||||||
|
END SUBROUTINE struct_grid_close
|
||||||
|
|
||||||
|
FUNCTION open_file( filename ) result(unit)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This function is used to open the .vtk file
|
||||||
|
!!
|
||||||
|
character(*), intent(in):: filename
|
||||||
|
integer(i4k):: error
|
||||||
|
integer(i4k):: unit
|
||||||
|
|
||||||
|
open(newunit=unit, &
|
||||||
|
file=trim(adjustl(filename)), &
|
||||||
|
!form='UNFORMATTED', &
|
||||||
|
!access='STREAM', &
|
||||||
|
action='WRITE', &
|
||||||
|
status='REPLACE', &
|
||||||
|
iostat=error)
|
||||||
|
|
||||||
|
END FUNCTION open_file
|
||||||
|
|
||||||
|
FUNCTION write_header_to_file( unit, header ) result(error)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This function is used to write the key to the .vtk file
|
||||||
|
!!
|
||||||
|
character(*), intent(in):: header
|
||||||
|
integer(i4k) :: error
|
||||||
|
integer(i4k):: unit
|
||||||
|
|
||||||
|
write(unit=unit,fmt='(a)', iostat=error) header
|
||||||
|
|
||||||
|
|
||||||
|
END FUNCTION write_header_to_file
|
||||||
|
|
||||||
|
FUNCTION write_point_to_file( unit, Coord_x, Coord_y, Coord_z, dims ) result(error)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This function is used to write the point key and data to the .vtk file
|
||||||
|
!!
|
||||||
|
INTEGER(i4k), DIMENSION(3), INTENT(IN) :: dims
|
||||||
|
REAL(r8k), INTENT(IN) :: Coord_x( dims(1)+1 ), Coord_y( dims(2)+1 ), Coord_z( dims(3)+1 )
|
||||||
|
|
||||||
|
INTEGER(i4k) :: error
|
||||||
|
INTEGER(i4k) :: unit
|
||||||
|
INTEGER(i4k) :: points
|
||||||
|
INTEGER(i4k) :: temp,I,J,K
|
||||||
|
INTEGER(i4k)::NXB,NYB,NZB
|
||||||
|
|
||||||
|
NXB=dims(1)+1
|
||||||
|
NYB=dims(2)+1
|
||||||
|
NZB=dims(3)+1
|
||||||
|
|
||||||
|
points =NXB * NYB * NZB
|
||||||
|
temp = 0
|
||||||
|
|
||||||
|
write(unit=unit,fmt='(A,I0,A)', iostat=error) "POINTS ", points, " double"
|
||||||
|
|
||||||
|
do k=1,NZB
|
||||||
|
do j=1,NYB
|
||||||
|
do i=1,NXB
|
||||||
|
|
||||||
|
temp = temp + 1
|
||||||
|
write(unit, fmt='(3f)', iostat=error) Coord_x(i), Coord_y(j), Coord_z(k)
|
||||||
|
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
|
||||||
|
END FUNCTION write_point_to_file
|
||||||
|
|
||||||
|
FUNCTION write_cell_to_file( unit, nums, dims ) result(error)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This function is used to write the cell key and data to the .vtk file
|
||||||
|
!!
|
||||||
|
CHARACTER(9) :: Value_site_cell="CELL_DATA"
|
||||||
|
INTEGER(i4k), DIMENSION(3), INTENT(IN) :: dims
|
||||||
|
INTEGER(i4k), INTENT(IN) :: nums
|
||||||
|
INTEGER(i4k), PARAMETER :: num_cell_types = 11
|
||||||
|
|
||||||
|
INTEGER(i4k) :: error
|
||||||
|
INTEGER(i4k) :: unit
|
||||||
|
INTEGER(i4k) :: cells
|
||||||
|
INTEGER(i4k) :: total_cells
|
||||||
|
|
||||||
|
INTEGER(i4k) :: temp,I,J,K
|
||||||
|
INTEGER(i4k)::NX,NY,NZ,NXB,NYB,NZB
|
||||||
|
|
||||||
|
NX = dims(1)
|
||||||
|
NY = dims(2)
|
||||||
|
NZ = dims(3)
|
||||||
|
|
||||||
|
NXB = NX+1
|
||||||
|
NYB = NY+1
|
||||||
|
NZB = NZ+1
|
||||||
|
|
||||||
|
cells = NX*NY*NZ
|
||||||
|
total_cells = (nums+1)*cells
|
||||||
|
|
||||||
|
temp = 0
|
||||||
|
|
||||||
|
write(unit=unit,fmt='(A,I0,A,I0)', iostat=error) "CELLS ", cells," ",total_cells
|
||||||
|
|
||||||
|
do k=1, NZ
|
||||||
|
do j=1, NY
|
||||||
|
do i=1,NX
|
||||||
|
temp = temp + 1
|
||||||
|
write(unit, fmt='(9i)', iostat=error)nums,&
|
||||||
|
((i ) + (j-1)*NXB + (k-1)*NXB*NYB) -1, &
|
||||||
|
((i+1) + (j-1)*NXB + (k-1)*NXB*NYB) -1, &
|
||||||
|
((i ) + (j )*NXB + (k-1)*NXB*NYB) -1, &
|
||||||
|
((i+1) + (j )*NXB + (k-1)*NXB*NYB) -1, &
|
||||||
|
((i ) + (j-1)*NXB + (k )*NXB*NYB) -1, &
|
||||||
|
((i+1) + (j-1)*NXB + (k )*NXB*NYB) -1, &
|
||||||
|
((i ) + (j )*NXB + (k )*NXB*NYB) -1, &
|
||||||
|
((i+1) + (j )*NXB + (k )*NXB*NYB) -1
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
|
||||||
|
write(unit=unit,fmt='(A,I0,A,I0)', iostat=error) "CELL_TYPES ", cells
|
||||||
|
|
||||||
|
do i=1, temp
|
||||||
|
write(unit, fmt='(i)', iostat=error)num_cell_types
|
||||||
|
end do
|
||||||
|
write(unit=unit,fmt='(2A,I0)', iostat=error) Value_site_cell," ", cells
|
||||||
|
|
||||||
|
END FUNCTION write_cell_to_file
|
||||||
|
|
||||||
|
FUNCTION write_value_to_file( unit, data_name,values, dims ) result(error)
|
||||||
|
!! author: Qi Zhao
|
||||||
|
!! date: 03/11/2024
|
||||||
|
!!
|
||||||
|
!! This function is used to write the cell key and data to the .vtk file
|
||||||
|
!!
|
||||||
|
INTEGER(i4k), DIMENSION(3), INTENT(IN) :: dims
|
||||||
|
REAL(r8k), INTENT(IN) :: values( dims(1), dims(2), dims(3))
|
||||||
|
|
||||||
|
|
||||||
|
CHARACTER(10) :: Value_site_point="POINT_DATA"
|
||||||
|
CHARACTER(7) :: Value_type_scalars = "SCALARS"
|
||||||
|
CHARACTER(6) :: Value_type_vector = "VECTOR"
|
||||||
|
CHARACTER(6) :: Value_type_tensor = "TENSOR"
|
||||||
|
CHARACTER(5) :: table_name = "Table"
|
||||||
|
CHARACTER(6) :: data_type_double = "double"
|
||||||
|
INTEGER(i4k) :: numComp
|
||||||
|
CHARACTER(12) :: table_name_dict = "LOOKUP_TABLE"
|
||||||
|
|
||||||
|
CHARACTER(*), INTENT(IN) :: data_name
|
||||||
|
|
||||||
|
INTEGER(i4k) :: error
|
||||||
|
INTEGER(i4k) :: unit
|
||||||
|
|
||||||
|
INTEGER(i4k) :: temp,I,J,K
|
||||||
|
INTEGER(i4k)::NX,NY,NZ,NXB,NYB,NZB
|
||||||
|
|
||||||
|
NX = dims(1)
|
||||||
|
NY = dims(2)
|
||||||
|
NZ = dims(3)
|
||||||
|
numComp = 1
|
||||||
|
|
||||||
|
write(unit=unit,fmt='(6A,I0)', iostat=error) Value_type_scalars, " ", data_name, " ", data_type_double, " ", numComp
|
||||||
|
write(unit=unit,fmt='(3A)', iostat=error) table_name_dict," ",table_name
|
||||||
|
|
||||||
|
do k=1, NZ
|
||||||
|
do j=1, NY
|
||||||
|
do i=1,NX
|
||||||
|
temp = temp + 1
|
||||||
|
write(unit, fmt='(f)', iostat=error)values(i,j,k)
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
end do
|
||||||
|
|
||||||
|
|
||||||
|
END FUNCTION write_value_to_file
|
||||||
|
|
||||||
|
|
||||||
|
end Module VTK_Fortran
|
||||||
@@ -2,26 +2,27 @@
|
|||||||
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
||||||
!Code distribution @ tdem.org or sunhuaifeng.com
|
!Code distribution @ tdem.org or sunhuaifeng.com
|
||||||
|
|
||||||
MODULE CONSTANTPARAMETERS
|
MODULE CONSTANTPARAMETERS
|
||||||
INTEGER NX,NY,NZ
|
INTEGER NX,NY,NZ
|
||||||
! Nx,Ny,Nz is the number of grid in x, y and z directions respectively;
|
! Nx,Ny,Nz is the number of grid in x, y and z directions respectively;
|
||||||
REAL*8 SourceLength ! The length of source
|
REAL*8 SourceLength ! The length of source
|
||||||
INTEGER SourceGridNum ! The number of grids in source area (x direction)
|
INTEGER SourceGridNum ! The number of grids in source area (x direction)
|
||||||
INTEGER NXB,NYB,NZB !Nxb=Nx+1, Nyb=Ny+1, Nzb=Nz+1
|
INTEGER NXB,NYB,NZB !Nxb=Nx+1, Nyb=Ny+1, Nzb=Nz+1
|
||||||
INTEGER NXS,NYS,NZS !This parameter mostly represents the middle grid's number, Nxs=Nx/2 or Nxs=Nxb/2, Nys=Ny/2 or Nys=Nyb/2, Nzs=Nz/2
|
INTEGER NXS,NYS,NZS !This parameter mostly represents the middle grid's number, Nxs=Nx/2 or Nxs=Nxb/2, Nys=Ny/2 or Nys=Nyb/2, Nzs=Nz/2
|
||||||
REAL*8 BACKGROUND_CONDUCTIVITY,TUNNEL_LENGTH !The conductivity of background; the length of tunnel
|
REAL*8 BACKGROUND_CONDUCTIVITY,TUNNEL_LENGTH !The conductivity���絼�ʣ� of background; the length of tunnel
|
||||||
CHARACTER*8 CAL_TYPE !The type of Calculation, in this case, it is semi which represents semi_airborne
|
INTEGER CAL_TYPE !The type of Calculation�����㣩, in this case, it is semi which represents semi_airborne
|
||||||
REAL*8 SIGMA_MIN !The minimum value of sigma
|
REAL*8 SIGMA_MIN !The minimum value of sigma
|
||||||
REAL(KIND=8) TIME_MAX !The maximum value of iteration time step
|
REAL(KIND=8) TIME_MAX !The maximum value of iteration�������� time step
|
||||||
INTEGER NSTOP !The number of total iteration steps
|
INTEGER NSTOP !The number of total iteration steps
|
||||||
REAL*8 MAX_OFF_TIME !The maximum calculation time, in ms
|
REAL*8 MAX_OFF_TIME !The maximum calculation time, in ms
|
||||||
INTEGER LOOP !Iteration step
|
INTEGER LOOP !Iteration step
|
||||||
REAL*8, PARAMETER:: CC=2.99792458D8 !The velocity of light
|
INTEGER TEMP_II
|
||||||
|
REAL*8, PARAMETER:: CC=2.99792458D8 !The velocity of light�����٣�
|
||||||
REAL*8, PARAMETER:: PI=3.141592653589793238462643383276D0 !PI
|
REAL*8, PARAMETER:: PI=3.141592653589793238462643383276D0 !PI
|
||||||
REAL*8, PARAMETER:: SCALE_PAR=1.05d0 !The ratio of adjacent grid's length
|
REAL*8, PARAMETER:: SCALE_PAR=1.3d0 !The ratio of adjacent grid's length �������ȱ���
|
||||||
REAL*8, PARAMETER:: MAX_RATIO=50.0D0 !The maximum value of scale_par
|
REAL*8, PARAMETER:: MAX_RATIO=50.0D0 !The maximum value of scale_par���߶Ȳ�����
|
||||||
REAL*8 GridSize !The size of a single grid, it represents the size of uniform grid.
|
REAL*8 GridSize, GridSize_MAX !The size of a single grid, it represents the size of uniform grid.
|
||||||
REAL(KIND=8), DIMENSION(:),ALLOCATABLE:: CDELX !The array of all grid size in x direction, designed for the recording of ununiform meshing.
|
REAL(KIND=8), DIMENSION(:),ALLOCATABLE:: CDELX !The array�����飩 of all grid size in x direction, designed for the recording of ununiform meshing.
|
||||||
REAL(KIND=8), DIMENSION(:),ALLOCATABLE:: CDELY !The array of all grid size in y direction, designed for the recording of ununiform meshing.
|
REAL(KIND=8), DIMENSION(:),ALLOCATABLE:: CDELY !The array of all grid size in y direction, designed for the recording of ununiform meshing.
|
||||||
REAL(KIND=8), DIMENSION(:),ALLOCATABLE:: CDELZ !The array of all grid size in z direction, designed for the recording of ununiform meshing.
|
REAL(KIND=8), DIMENSION(:),ALLOCATABLE:: CDELZ !The array of all grid size in z direction, designed for the recording of ununiform meshing.
|
||||||
integer::mstop(100000),mstart(100000),num_fra_com !
|
integer::mstop(100000),mstart(100000),num_fra_com !
|
||||||
@@ -33,8 +34,9 @@
|
|||||||
! --fractions in some certain computing task.
|
! --fractions in some certain computing task.
|
||||||
! mstart is used to store the value of the beginning iteration step number of the entire iteration process. It has the same length with mstop.
|
! mstart is used to store the value of the beginning iteration step number of the entire iteration process. It has the same length with mstop.
|
||||||
! num_fra_com is the number of computation fractions of the entire computation process.
|
! num_fra_com is the number of computation fractions of the entire computation process.
|
||||||
REAL*8, PARAMETER:: MU0=4.0*PI*1.0D-7 !The permeability of vaccum.
|
REAL*8, PARAMETER:: MU0=4.0*PI*1.0D-7 !The permeability of vaccum.����մŵ�ϵ����
|
||||||
REAL*8, PARAMETER:: EPS0=1.0/(CC*CC*MU0) !The dielectric constant of vaccum.
|
REAL*8, PARAMETER:: EPS0=1.0/(CC*CC*MU0) !The dielectric constant of vaccum.����ս�糣����
|
||||||
|
REAL*8, PARAMETER:: AIR_CONDUCTIVITY=1.0D-6
|
||||||
CHARACTER(LEN=20) SOURCE_TYPE !The type of source, most commonly used one is tixing_upcos.
|
CHARACTER(LEN=20) SOURCE_TYPE !The type of source, most commonly used one is tixing_upcos.
|
||||||
character*30,allocatable::RecHzFile(:,:),RecHEFile(:,:),RecFile(:,:) !The filename of Recording file, RecHzFile for the Hz mode which only record the value of Hz--
|
character*30,allocatable::RecHzFile(:,:),RecHEFile(:,:),RecFile(:,:) !The filename of Recording file, RecHzFile for the Hz mode which only record the value of Hz--
|
||||||
! --RecHEFile for HE mode which record every component of electromagnetic filed, RecFile is used in the filename distribution process.
|
! --RecHEFile for HE mode which record every component of electromagnetic filed, RecFile is used in the filename distribution process.
|
||||||
@@ -46,6 +48,10 @@
|
|||||||
!An array used in GetSourcePosition subroutine, the dimension of it is (Nx,Ny), in the source area, the value of this array is 1, else it is 0.
|
!An array used in GetSourcePosition subroutine, the dimension of it is (Nx,Ny), in the source area, the value of this array is 1, else it is 0.
|
||||||
integer,allocatable::is_ey_in_source(:,:)
|
integer,allocatable::is_ey_in_source(:,:)
|
||||||
!The same as above.
|
!The same as above.
|
||||||
|
integer UniGridNumZ1,UniGridNumZ2,UniGridNumX1,UniGridNumX2,UniGridNumY1,UniGridNumY2
|
||||||
|
INTEGER Logic_PML !Boundary condition switch read from input.dat: 1=CPML absorbing boundary, 0=original Dirichlet (zero field) boundary on the non-uniform grid
|
||||||
|
INTEGER PML_X,PML_Y,PML_Z !PML thickness read from input.dat (only valid when Logic_PML=1)
|
||||||
|
INTEGER PML_X1,PML_X2,PML_Y1,PML_Y2,PML_Z1,PML_Z2 !PML thickness of the two sides of each direction, set as PML_X1=PML_X, PML_X2=PML_X, etc.
|
||||||
integer RecPointMin,RecPointMax
|
integer RecPointMin,RecPointMax
|
||||||
integer,allocatable::RecLine(:),RecPoint(:)
|
integer,allocatable::RecLine(:),RecPoint(:)
|
||||||
!Two dimensional array which stores the value of grid number as (x,y) at which the value of EM filed need to be recorded.
|
!Two dimensional array which stores the value of grid number as (x,y) at which the value of EM filed need to be recorded.
|
||||||
@@ -66,5 +72,83 @@
|
|||||||
REAL*8 RAISETIME,RAMP,WAVE,AMP !The time of raising edge, ramp edge and duration in trapezoidal waveform, amp is the amplitude of source
|
REAL*8 RAISETIME,RAMP,WAVE,AMP !The time of raising edge, ramp edge and duration in trapezoidal waveform, amp is the amplitude of source
|
||||||
REAL*8 RAISESTEP,WAVESTEP,RAMPSTEP,TIMESTEP
|
REAL*8 RAISESTEP,WAVESTEP,RAMPSTEP,TIMESTEP
|
||||||
! The iteration time step in raise, duration, ramp and cutoff period.
|
! The iteration time step in raise, duration, ramp and cutoff period.
|
||||||
real*8,allocatable::Coordix3(:),Coordiy3(:),Coordiz3(:) !This is used to store the coordination of each grid in x,y and z direction.
|
|
||||||
|
real*8,allocatable::Coordix(:),Coordiy(:),Coordiz(:)
|
||||||
|
!===================================================================================================
|
||||||
|
REAL*8, DIMENSION( : ), ALLOCATABLE :: CoordinatesX, CoordinatesY, CoordinatesZ
|
||||||
|
INTEGER, DIMENSION( : ), ALLOCATABLE :: Element_Node1, Element_Node2, Element_Node3
|
||||||
|
|
||||||
|
REAL*8, DIMENSION( : ), ALLOCATABLE :: Element_Label1_Coordx, Element_Label1_Coordy, Element_Label1_Coordz
|
||||||
|
REAL*8, DIMENSION( : ), ALLOCATABLE :: Element_Label2_Coordx, Element_Label2_Coordy, Element_Label2_Coordz
|
||||||
|
REAL*8, DIMENSION( : ), ALLOCATABLE :: Element_Label3_Coordx, Element_Label3_Coordy, Element_Label3_Coordz
|
||||||
|
REAL*8, DIMENSION(:,:), ALLOCATABLE :: Normal !Save the normal of Triangle
|
||||||
|
|
||||||
|
REAL*8, DIMENSION( : ), ALLOCATABLE :: V1X, V1Y, V1Z !Save the vertor of Edge1 from Triangle
|
||||||
|
REAL*8, DIMENSION( : ), ALLOCATABLE :: V2X, V2Y, V2Z !Save the vertor of Edge2 from Triangle
|
||||||
|
|
||||||
|
REAL(KIND=8):: eps105 = 1.0e-5
|
||||||
|
INTEGER, ALLOCATABLE :: Node_Label( : )
|
||||||
|
INTEGER, ALLOCATABLE :: Element_Label( : )
|
||||||
|
|
||||||
|
INTEGER :: n_face,n_point
|
||||||
|
|
||||||
|
REAL*8, DIMENSION( : ), ALLOCATABLE :: Node_Coordx, Node_Coordy, Node_Coordz
|
||||||
|
INTEGER(KIND=4) :: mm,mmx,mmy,mmz,mmmz,mmmx,mmmy
|
||||||
|
INTEGER(KIND=4) :: X_max,X_min,Y_max,Y_min,Z_max,Z_min
|
||||||
|
INTEGER(KIND=4) :: KIdx_1,KIdx_2
|
||||||
|
INTEGER(KIND=4) :: Rx,Ry,Rz
|
||||||
|
INTEGER(KIND=4) :: idx_start,idx_end
|
||||||
|
INTEGER(KIND=4), DIMENSION(:), ALLOCATABLE :: mmz_per,mmy_per,mmx_per
|
||||||
|
REAL(KIND=8) :: tao_abnormal
|
||||||
|
REAL(KIND=8) :: max_coord_x,min_coord_x
|
||||||
|
REAL(KIND=8) :: max_coord_y,min_coord_y
|
||||||
|
REAL(KIND=8) :: max_coord_z,min_coord_z
|
||||||
|
REAL(KIND=8) :: verts_Dotmultp
|
||||||
|
REAL(KIND=8) :: dir_z(3),dir_x(3),dir_y(3) !direction vector
|
||||||
|
REAL(KIND=8), DIMENSION(:), ALLOCATABLE :: coordinates_x,coordinates_y,coordinates_z !Yee grid node coordinates
|
||||||
|
REAL(KIND=8), DIMENSION(:), ALLOCATABLE :: Coord_HZ_X,Coord_HZ_Y,Coord_HZ_Z
|
||||||
|
REAL(KIND=8), DIMENSION(:), ALLOCATABLE :: det_x,det_y,det_z
|
||||||
|
REAL(KIND=8), DIMENSION(:), ALLOCATABLE :: u_x,u_z,u_y,v_z,v_x,v_y,t_z,t_x,t_y
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: vert0,vert1,vert2 !Vertex coordinates of triangular elements
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: edge1,edge2 !Triangular element vector
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: Face_Triangle_NormVect
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: orig_z,orig_x,orig_y !Ray origin coordinate
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: pvec_z,pvec_x,pvec_y
|
||||||
|
REAL(KIND=8), DIMENSION(:,:), ALLOCATABLE :: tvec_x,tvec_y,tvec_z
|
||||||
|
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE :: LenRatio_CCSIGX, LenRatio_CCSIGY, LenRatio_CCSIGZ
|
||||||
|
LOGICAL :: Logic_1,Logic_2,Logi_Sourcelenth
|
||||||
|
LOGICAL :: Logic_AnomalousDat,Logic_AnomalousStl
|
||||||
|
!Logic_AnomalousDat is .TRUE. when Complex_anomalous.dat (the original text format) exists;
|
||||||
|
!Logic_AnomalousStl is .TRUE. when Complex_anomalous.stl (the ASCII STL format) exists.
|
||||||
|
!They are detected in GETDATA, and used by RES_CONFIGURE and anomalous_conformal to choose
|
||||||
|
!the proper reader. Only one of the two files should exist in the working folder.
|
||||||
|
LOGICAL :: Logic_TerrainDat,Logic_TerrainStl
|
||||||
|
!Logic_TerrainDat is .TRUE. when Complex_Terrain.dat (the original text format) exists;
|
||||||
|
!Logic_TerrainStl is .TRUE. when Complex_Terrain.stl (the ASCII STL format) exists.
|
||||||
|
!They are detected in GETDATA, and used by RES_CONFIGURE and terrain_conformal to choose
|
||||||
|
!the proper reader. Only one of the two files should exist in the working folder.
|
||||||
|
TYPE Coordinates !coordinates represents the coordinate
|
||||||
|
REAL(KIND=8):: Coord_X,Coord_Y,Coord_Z
|
||||||
|
END TYPE Coordinates
|
||||||
|
TYPE CrossPoint_Property
|
||||||
|
TYPE(coordinates):: Global_Coord
|
||||||
|
LOGICAL:: Log_In
|
||||||
|
END TYPE CrossPoint_Property
|
||||||
|
TYPE(CrossPoint_Property), DIMENSION(:,:), ALLOCATABLE :: crosspoint_XX,crosspoint_YY,crosspoint_ZZ
|
||||||
|
TYPE(CrossPoint_Property), DIMENSION(:,:,:), ALLOCATABLE :: coor_z,coor_x,coor_y
|
||||||
|
|
||||||
|
INTEGER(KIND=4):: Point_Num
|
||||||
|
TYPE Coordmesh !coordmesh represents coordinates in terms of grids
|
||||||
|
INTEGER(KIND=4):: Coordmesh_X,Coordmesh_Y,Coordmesh_Z
|
||||||
|
END TYPE Coordmesh
|
||||||
|
|
||||||
|
TYPE Observers
|
||||||
|
TYPE(Coordinates):: Local_Coord_To_Source !This array is used to record the position of the inversion point relative to the source.
|
||||||
|
TYPE(Coordmesh):: Global_Coordmesh(8)
|
||||||
|
TYPE(coordinates):: Global_Coord !coordinates represents the coordinate
|
||||||
|
REAL(KIND=8):: Coeff(8)
|
||||||
|
INTEGER(KIND=4):: Idx_Num
|
||||||
|
END TYPE Observers
|
||||||
|
TYPE(observers), DIMENSION(:), ALLOCATABLE:: Points_Observer
|
||||||
|
|
||||||
ENDMODULE CONSTANTPARAMETERS
|
ENDMODULE CONSTANTPARAMETERS
|
||||||
@@ -3,6 +3,17 @@
|
|||||||
!Code distribution @ tdem.org or sunhuaifeng.com
|
!Code distribution @ tdem.org or sunhuaifeng.com
|
||||||
|
|
||||||
MODULE ELECTROMAGNETIC_VARIABLES
|
MODULE ELECTROMAGNETIC_VARIABLES
|
||||||
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: EX,EY,EZ !The x,y and z component of electric field in 3 dimensions
|
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: EX,EY,EZ !The x,y and z component of electric field in 3 dimensions
|
||||||
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: HX,HY,HZ !The x,y and z component of magnetic field in 3 dimensions
|
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: HX,HY,HZ !The x,y and z component of magnetic field in 3 dimensions
|
||||||
|
!>Memory variables of the CPML absorbing boundary (Roden & Gedney 2000).
|
||||||
|
!! psi_Eab_m: memory variable of the electric field Ea associated with the
|
||||||
|
!! curl term in direction b; psi_Hab_m: the same for the magnetic field.
|
||||||
|
!! _1 / _2 denote the lower/upper (or left/right) boundary of that direction.
|
||||||
|
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: psi_Exy_1, psi_Exy_2, psi_Exz_1, psi_Exz_2, &
|
||||||
|
psi_Eyx_1, psi_Eyx_2, psi_Eyz_1, psi_Eyz_2, &
|
||||||
|
psi_Ezx_1, psi_Ezx_2, psi_Ezy_1, psi_Ezy_2, &
|
||||||
|
psi_Hxy_1, psi_Hxy_2, psi_Hxz_1, psi_Hxz_2, &
|
||||||
|
psi_Hyx_1, psi_Hyx_2, psi_Hyz_1, psi_Hyz_2, &
|
||||||
|
psi_Hzx_1, psi_Hzx_2, psi_Hzy_1, psi_Hzy_2, &
|
||||||
|
psi_Hzz_1, psi_Hzz_2
|
||||||
ENDMODULE ELECTROMAGNETIC_VARIABLES
|
ENDMODULE ELECTROMAGNETIC_VARIABLES
|
||||||
@@ -0,0 +1,33 @@
|
|||||||
|
!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
|
||||||
|
!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
|
||||||
|
!values of the reference tem3dfdtd_第二版 which stays stable in the off phase;
|
||||||
|
!alpha=1e-1 absorbs low-frequency diffusion fields much better than 1e-2 and
|
||||||
|
!prevented the reflection feedback that made the CPML diverge)
|
||||||
|
|
||||||
|
MODULE PML_PARAMETER
|
||||||
|
INTEGER, PARAMETER :: ma = 3, mb = 1
|
||||||
|
REAL*8, PARAMETER ::sig_x_max = 1.0D2,sig_y_max =sig_x_max,sig_z_max = sig_x_max, &
|
||||||
|
alpha_x_max = 1.0D-1,alpha_y_max = alpha_x_max, alpha_z_max = alpha_x_max, &
|
||||||
|
kappa_x_max = 1.0,kappa_y_max = kappa_x_max, kappa_z_max = kappa_x_max
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_e_x1,c_e_x1,alpha_PML_e_x1,sig_PML_e_x1,kappa_PML_e_x1
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_h_x1,c_h_x1,alpha_PML_h_x1,sig_PML_h_x1,kappa_PML_h_x1
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_e_x2,c_e_x2,alpha_PML_e_x2,sig_PML_e_x2,kappa_PML_e_x2
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_h_x2,c_h_x2,alpha_PML_h_x2,sig_PML_h_x2,kappa_PML_h_x2
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_e_y1,c_e_y1,alpha_PML_e_y1,sig_PML_e_y1,kappa_PML_e_y1
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_h_y1,c_h_y1,alpha_PML_h_y1,sig_PML_h_y1,kappa_PML_h_y1
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_e_y2,c_e_y2,alpha_PML_e_y2,sig_PML_e_y2,kappa_PML_e_y2
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_h_y2,c_h_y2,alpha_PML_h_y2,sig_PML_h_y2,kappa_PML_h_y2
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_e_z1,c_e_z1,alpha_PML_e_z1,sig_PML_e_z1,kappa_PML_e_z1
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_h_z1,c_h_z1,alpha_PML_h_z1,sig_PML_h_z1,kappa_PML_h_z1
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_e_z2,c_e_z2,alpha_PML_e_z2,sig_PML_e_z2,kappa_PML_e_z2
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: b_h_z2,c_h_z2,c_h_zz,alpha_PML_h_z2,sig_PML_h_z2,kappa_PML_h_z2
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: inv_hz_den !1/(den_hz+c_h_zz), precomputed per step for the Hz recursion
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: den_ex,den_hx
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: den_ey,den_hy
|
||||||
|
REAL*8 ,DIMENSION(:),ALLOCATABLE :: den_ez,den_hz
|
||||||
|
|
||||||
|
ENDMODULE PML_PARAMETER
|
||||||
@@ -3,5 +3,5 @@
|
|||||||
!Code distribution @ tdem.org or sunhuaifeng.com
|
!Code distribution @ tdem.org or sunhuaifeng.com
|
||||||
|
|
||||||
MODULE RES_MODEL_PARAMETER
|
MODULE RES_MODEL_PARAMETER
|
||||||
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: CCSIG !The conductivity in each grid
|
REAL(KIND=8), DIMENSION(:,:,:), ALLOCATABLE:: CCSIG,CCSIGX,CCSIGY,CCSIGZ !The conductivity in each grid
|
||||||
ENDMODULE RES_MODEL_PARAMETER
|
ENDMODULE RES_MODEL_PARAMETER
|
||||||
+89
-87
@@ -1,95 +1,97 @@
|
|||||||
<?xml version="1.0" encoding="UTF-8"?>
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<VisualStudioProject ProjectCreator="Intel Fortran" Keyword="Console Application" Version="11.0" ProjectIdGuid="{94A7F592-24DB-4139-B709-699C1B4A8B1A}">
|
<VisualStudioProject ProjectCreator="Intel Fortran" Keyword="Console Application" Version="11.0" ProjectIdGuid="{3DBB6368-535A-40E7-9413-DBCE77919799}">
|
||||||
<Platforms>
|
<Platforms>
|
||||||
<Platform Name="Win32"/>
|
<Platform Name="Win32"/>
|
||||||
<Platform Name="x64"/></Platforms>
|
<Platform Name="x64"/>
|
||||||
|
</Platforms>
|
||||||
<Configurations>
|
<Configurations>
|
||||||
<Configuration Name="Debug|Win32">
|
<Configuration Name="Debug|Win32" UseCompiler="ifortCompiler">
|
||||||
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" WarnInterfaces="true" Traceback="true" BoundsCheck="true" StackFrameCheck="true" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" WarnInterfaces="true" Traceback="true" BoundsCheck="true" StackFrameCheck="true" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
|
||||||
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" GenerateDebugInformation="true" SubSystem="subSystemConsole"/>
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" GenerateDebugInformation="true" SubSystem="subSystemConsole"/>
|
||||||
<Tool Name="VFResourceCompilerTool"/>
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
||||||
<Tool Name="VFCustomBuildTool"/>
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
<Tool Name="VFPreLinkEventTool"/>
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
<Tool Name="VFPreBuildEventTool"/>
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
<Tool Name="VFPostBuildEventTool"/>
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/>
|
||||||
<Configuration Name="Release|Win32">
|
</Configuration>
|
||||||
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" RuntimeLibrary="rtMultiThreadedDLL"/>
|
<Configuration Name="Debug|x64" UseCompiler="ifxCompiler">
|
||||||
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" SubSystem="subSystemConsole"/>
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" WarnInterfaces="true" Traceback="true" BoundsCheck="true" StackFrameCheck="true" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
|
||||||
<Tool Name="VFResourceCompilerTool"/>
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" GenerateDebugInformation="true" SubSystem="subSystemConsole"/>
|
||||||
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
<Tool Name="VFCustomBuildTool"/>
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true" TargetEnvironment="midlTargetAMD64"/>
|
||||||
<Tool Name="VFPreLinkEventTool"/>
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
<Tool Name="VFPreBuildEventTool"/>
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
<Tool Name="VFPostBuildEventTool"/>
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
<Configuration Name="Debug|x64">
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/>
|
||||||
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" WarnInterfaces="true" Traceback="true" BoundsCheck="true" StackFrameCheck="true" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
|
</Configuration>
|
||||||
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" GenerateDebugInformation="true" SubSystem="subSystemConsole"/>
|
<Configuration Name="Release|Win32" UseCompiler="ifortCompiler">
|
||||||
<Tool Name="VFResourceCompilerTool"/>
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" RuntimeLibrary="rtMultiThreadedDLL"/>
|
||||||
<Tool Name="VFMidlTool" SuppressStartupBanner="true" TargetEnvironment="midlTargetAMD64"/>
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" SubSystem="subSystemConsole"/>
|
||||||
<Tool Name="VFCustomBuildTool"/>
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
<Tool Name="VFPreLinkEventTool"/>
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
||||||
<Tool Name="VFPreBuildEventTool"/>
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
<Tool Name="VFPostBuildEventTool"/>
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
<Configuration Name="Release|x64">
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" RuntimeLibrary="rtMultiThreadedDLL"/>
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/>
|
||||||
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" SubSystem="subSystemConsole"/>
|
</Configuration>
|
||||||
<Tool Name="VFResourceCompilerTool"/>
|
<Configuration Name="Release|x64" UseCompiler="ifxCompiler">
|
||||||
<Tool Name="VFMidlTool" SuppressStartupBanner="true" TargetEnvironment="midlTargetAMD64"/>
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" RuntimeLibrary="rtMultiThreadedDLL"/>
|
||||||
<Tool Name="VFCustomBuildTool"/>
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" SubSystem="subSystemConsole"/>
|
||||||
<Tool Name="VFPreLinkEventTool"/>
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
<Tool Name="VFPreBuildEventTool"/>
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true" TargetEnvironment="midlTargetAMD64"/>
|
||||||
<Tool Name="VFPostBuildEventTool"/>
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration></Configurations>
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/>
|
||||||
|
</Configuration>
|
||||||
|
</Configurations>
|
||||||
<Files>
|
<Files>
|
||||||
<Filter Name="Header Files" Filter="fi;fd;h;inc"/>
|
<Filter Name="Header Files" Filter="fi;fd;h;inc"/>
|
||||||
<Filter Name="Resource Files" Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"/>
|
<Filter Name="Resource Files" Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"/>
|
||||||
<Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl">
|
<Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl">
|
||||||
<Filter Name="doc">
|
<Filter Name="lib">
|
||||||
<File RelativePath=".\doc\README.md"/>
|
<File RelativePath=".\lib\allocatememory.f90"/>
|
||||||
<File RelativePath=".\doc\说明书-Chinese.docx"/></Filter>
|
<File RelativePath=".\lib\Anomalous_conformal.f90"/>
|
||||||
<Filter Name="example">
|
<File RelativePath=".\lib\checkparameters.f90"/>
|
||||||
<File RelativePath=".\example\input-new.dat"/>
|
<File RelativePath=".\lib\free-memory.f90"/>
|
||||||
<File RelativePath=".\example\input.dat"/>
|
<File RelativePath=".\lib\get-eps-r.f90"/>
|
||||||
<File RelativePath=".\example\input.xml"/>
|
<File RelativePath=".\lib\get-mstop.f90"/>
|
||||||
<File RelativePath=".\example\README.md"/></Filter>
|
<File RelativePath=".\lib\get-pml-paramters.f90"/>
|
||||||
<Filter Name="lib">
|
<File RelativePath=".\lib\get-system-timedata.f90"/>
|
||||||
<File RelativePath=".\lib\allocatememory.f90"/>
|
<File RelativePath=".\lib\get_coordinates.f90"/>
|
||||||
<File RelativePath=".\lib\checkparameters.f90"/>
|
<File RelativePath=".\lib\get_non_uniformgrid.f90"/>
|
||||||
<File RelativePath=".\lib\close-additional-survey-points-files.f90"/>
|
<File RelativePath=".\lib\Get_Receiver_Gridlabel.f90"/>
|
||||||
<File RelativePath=".\lib\CloseRecFiles.f90"/>
|
<File RelativePath=".\lib\getdata.f90"/>
|
||||||
<File RelativePath=".\lib\free-memory.f90"/>
|
<File RelativePath=".\lib\GetSourcePosition.f90"/>
|
||||||
<File RelativePath=".\lib\get-eps-r.f90"/>
|
<File RelativePath=".\lib\Iteration.f90"/>
|
||||||
<File RelativePath=".\lib\get-mstop.f90"/>
|
<File RelativePath=".\lib\memory-use-estimation.f90"/>
|
||||||
<File RelativePath=".\lib\get-system-timedata.f90"/>
|
<File RelativePath=".\lib\resistivity-configuration.f90"/>
|
||||||
<File RelativePath=".\lib\get_non_uniformgrid.f90"/>
|
<File RelativePath=".\lib\sin-source.f90"/>
|
||||||
<File RelativePath=".\lib\getdata.f90"/>
|
<File RelativePath=".\lib\Terrain_conformal.f90"/>
|
||||||
<File RelativePath=".\lib\GetSourcePosition.f90"/>
|
<File RelativePath=".\lib\time-serious.f90"/>
|
||||||
<File RelativePath=".\lib\getxmldata.f90"/>
|
<File RelativePath=".\lib\tixing-source-upcos.f90"/>
|
||||||
<File RelativePath=".\lib\Iteration.f90"/>
|
<File RelativePath=".\lib\tixing-source.f90"/>
|
||||||
<File RelativePath=".\lib\memory-use-estimation.f90"/>
|
<File RelativePath=".\lib\triangle-source.f90"/>
|
||||||
<File RelativePath=".\lib\OpenRecFiles.f90"/>
|
<File RelativePath=".\lib\zero.f90"/>
|
||||||
<File RelativePath=".\lib\resistivity-configuration.f90"/>
|
</Filter>
|
||||||
<File RelativePath=".\lib\sin-source.f90"/>
|
<Filter Name="module">
|
||||||
<File RelativePath=".\lib\SubCloseRecFiles.f90"/>
|
<File RelativePath=".\module\constant-parameters.f90"/>
|
||||||
<File RelativePath=".\lib\SubOpenRecFiles.f90"/>
|
<File RelativePath=".\module\electromagnetic-variables.f90"/>
|
||||||
<File RelativePath=".\lib\SubWriteRecFiles.f90"/>
|
<File RelativePath=".\module\pml-parameters.f90"/>
|
||||||
<File RelativePath=".\lib\time-serious.f90"/>
|
<File RelativePath=".\module\Precision.f90"/>
|
||||||
<File RelativePath=".\lib\tixing-source-upcos.f90"/>
|
<File RelativePath=".\module\resistivity-model-parameters.f90"/>
|
||||||
<File RelativePath=".\lib\tixing-source.f90"/>
|
<File RelativePath=".\module\time-parameters.f90"/>
|
||||||
<File RelativePath=".\lib\triangle-source.f90"/>
|
<File RelativePath=".\module\VTK_fix_header.f90"/>
|
||||||
<File RelativePath=".\lib\write-rec-files.f90"/>
|
<File RelativePath=".\module\VTK_fortran.f90"/>
|
||||||
<File RelativePath=".\lib\zero.f90"/></Filter>
|
</Filter>
|
||||||
<Filter Name="module">
|
<File RelativePath=".\main.f90">
|
||||||
<File RelativePath=".\module\constant-parameters.f90"/>
|
</File>
|
||||||
<File RelativePath=".\module\electromagnetic-variables.f90"/>
|
</Filter>
|
||||||
<File RelativePath=".\module\resistivity-model-parameters.f90"/>
|
</Files>
|
||||||
<File RelativePath=".\module\time-parameters.f90"/></Filter>
|
<Globals/>
|
||||||
<Filter Name="result">
|
</VisualStudioProject>
|
||||||
<File RelativePath=".\result\README.md"/></Filter>
|
|
||||||
<File RelativePath=".\main.f90"/>
|
|
||||||
<File RelativePath=".\README.md"/></Filter></Files>
|
|
||||||
<Globals/></VisualStudioProject>
|
|
||||||
|
|||||||
在新工单中引用
屏蔽一个用户