你已经派生过 tem3dfdtd-open
镜像自地址
https://gitee.com/sunhf/tem3dfdtd-open.git
已同步 2025-08-03 03:16:53 +08:00
35 行
968 B
Fortran
35 行
968 B
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
|
|
|
|
SUBROUTINE RES_CONFIGURE
|
|
!本子程序用于设置模型的电阻率参数
|
|
USE CONSTANTPARAMETERS
|
|
USE ELECTROMAGNETIC_VARIABLES
|
|
USE RES_MODEL_PARAMETER
|
|
USE TIME_PARAMETER
|
|
USE OMP_LIB
|
|
IMPLICIT NONE
|
|
INTEGER II,III,i,j,k
|
|
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
|
|
II=SIZE(TAR_X1)
|
|
DO III=1,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
|
|
SIGMA_MIN=MINVAL(CCSIG)
|
|
RETURN
|
|
ENDSUBROUTINE RES_CONFIGURE
|
|
!------------------------
|