你已经派生过 tem3dfdtd-open
镜像自地址
https://gitee.com/sunhf/tem3dfdtd-open.git
已同步 2025-08-03 03:16:53 +08:00
33 行
1.2 KiB
Fortran
33 行
1.2 KiB
Fortran
!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
|
||
|
||
!function description
|
||
!this suboutine is used to write out the readed calculation parameters for
|
||
!errors or mistakes check.
|
||
!2016-10-30
|
||
|
||
SUBROUTINE CHECKPARAMETERS
|
||
USE CONSTANTPARAMETERS
|
||
IMPLICIT NONE
|
||
integer i
|
||
WRITE(10005,*)'请检查计算参数: '
|
||
WRITE(10005,*)'矩形回线边长为：',SourceLength
|
||
WRITE(10005,*)'X,Y,Z方向的网格数分别为：',NX,NY,NZ
|
||
WRITE(10005,*)'线圈中心所处的网格为： ',NXS,NYS,NZS
|
||
WRITE(10005,*)'输入的最大迭代次数为： ',NSTOP
|
||
WRITE(10005,*)
|
||
WRITE(10005,*)'X,Y,Z方向最小晶格尺寸分别为：'
|
||
WRITE(10005,*)'DELTA_X=',GridSize
|
||
WRITE(10005,*)'DELTA_Y=',GridSize
|
||
WRITE(10005,*)'DELTA_Z=',GridSize
|
||
WRITE(10005,*)'背景电导率',BACKGROUND_CONDUCTIVITY
|
||
WRITE(10005,*)
|
||
WRITE(10005,*)'异常体参数'
|
||
WRITE(10005,*)'NO X1 X2 Y1 Y2 Z1 Z2 CONDUCTIVITY'
|
||
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)
|
||
ENDDO
|
||
RETURN
|
||
ENDSUBROUTINE CHECKPARAMETERS
|