initial

2023-12-19 10:49:54 +08:00
@@ -0,0 +1,34 @@
+!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
+!------------------------