40 行
1.6 KiB
Fortran
40 行
1.6 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,*)'Please check the calculation parameters: '
|
|
WRITE(10005,*)'Side length of rectangular source loop:',SourceLength
|
|
WRITE(10005,*)'Number of grid cells in X, Y, Z directions:',NX,NY,NZ
|
|
WRITE(10005,*)'Grid indices of the coil center: ',NXS,NYS,NZS
|
|
WRITE(10005,*)'Maximum number of iterations specified: ',NSTOP
|
|
WRITE(10005,*)
|
|
WRITE(10005,*)'Minimum grid spacing in X, Y, Z directions:'
|
|
WRITE(10005,*)'DELTA_X=',GridSize
|
|
WRITE(10005,*)'DELTA_Y=',GridSize
|
|
WRITE(10005,*)'DELTA_Z=',GridSize
|
|
WRITE(10005,*)'Background conductivity:',BACKGROUND_CONDUCTIVITY
|
|
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'
|
|
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
|