101 lines
3.6 KiB
Fortran
101 lines
3.6 KiB
Fortran
!
|
|
!=======================================================================
|
|
!
|
|
MODULE PRINT_MAT_LENGTHS
|
|
!
|
|
! This module prints the scale parameters in the log file
|
|
!
|
|
!
|
|
CONTAINS
|
|
!
|
|
!=======================================================================
|
|
!
|
|
SUBROUTINE CALC_CHAR_LENGTHS
|
|
!
|
|
! This subroutine computes the material's characteristic lengths
|
|
!
|
|
USE REAL_NUMBERS, ONLY : ZERO
|
|
USE MATERIAL_PROP, ONLY : RS,DMN
|
|
USE EXT_FIELDS, ONLY : T,H
|
|
USE MATERIAL_PROPERTIES
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
REAL (WP) :: DC,TP
|
|
!
|
|
! Temporary !!!!
|
|
!
|
|
DC=ZERO !
|
|
TP=ZERO !
|
|
!
|
|
CALL CHARACTERISTIC_LENGTHS(DMN,RS,T,H,DC,TP) !
|
|
!
|
|
END SUBROUTINE CALC_CHAR_LENGTHS
|
|
!
|
|
!=======================================================================
|
|
!
|
|
SUBROUTINE PRINT_CHAR_LENGTHS
|
|
!
|
|
! This subroutine prints the material's characteristic lengths
|
|
! into the log file
|
|
!
|
|
!
|
|
!
|
|
! Author : D. Sébilleau
|
|
!
|
|
! Last modified : 27 Jul 2020
|
|
!
|
|
!
|
|
USE MATERIAL_CL
|
|
USE MATERIAL_PROP, ONLY : RS
|
|
USE CONSTANTS_P1, ONLY : BOHR
|
|
USE ENE_CHANGE, ONLY : ANG
|
|
!
|
|
IMPLICIT NONE
|
|
!
|
|
INTEGER :: LOGF
|
|
!
|
|
LOGF=6 ! log file unit
|
|
!
|
|
CALL CALC_CHAR_LENGTHS !
|
|
!
|
|
! Writing the results in Angstroems
|
|
!
|
|
!
|
|
WRITE(LOGF,15) !
|
|
WRITE(LOGF,5) !
|
|
WRITE(LOGF,25) !
|
|
!
|
|
WRITE(LOGF,10) RS*BOHR/ANG !
|
|
WRITE(LOGF,20) EMFP/ANG !
|
|
WRITE(LOGF,30) FWL/ANG !
|
|
WRITE(LOGF,40) PCL/ANG !
|
|
WRITE(LOGF,50) THL/ANG !
|
|
WRITE(LOGF,60) ML/ANG !
|
|
WRITE(LOGF,70) CR/ANG !
|
|
WRITE(LOGF,80) DL/ANG !
|
|
WRITE(LOGF,90) TFL/ANG !
|
|
!
|
|
WRITE(LOGF,75) !
|
|
!
|
|
! Formats
|
|
!
|
|
10 FORMAT(5X,'|',5X,'average e-e distance : ',F8.3,' Å',10X,'|')
|
|
20 FORMAT(5X,'|',5X,'elastic mean free path : ',F8.3,' Å',10X,'|')
|
|
30 FORMAT(5X,'|',5X,'Fermi wavelength : ',F8.3,' Å',10X,'|')
|
|
40 FORMAT(5X,'|',5X,'phase coherence length : ',F8.3,' Å',10X,'|')
|
|
50 FORMAT(5X,'|',5X,'thermal length : ',F8.3,' Å',10X,'|')
|
|
60 FORMAT(5X,'|',5X,'magnetic length : ',F8.3,' Å',10X,'|')
|
|
70 FORMAT(5X,'|',5X,'cyclotron radius : ',F8.3,' Å',10X,'|')
|
|
80 FORMAT(5X,'|',5X,'Debye length : ',F8.3,' Å',10X,'|')
|
|
90 FORMAT(5X,'|',5X,'Thomas-Fermi length : ',F8.3,' Å',10X,'|')
|
|
!
|
|
5 FORMAT(5X,'|',10X,'Characteristic lengths : ',19X,'|')
|
|
15 FORMAT(6X,'_________________________________________________________')
|
|
25 FORMAT(5X,'| |')
|
|
75 FORMAT(5X,'|_________________________________________________________|',/)
|
|
!
|
|
END SUBROUTINE PRINT_CHAR_LENGTHS
|
|
!
|
|
END MODULE PRINT_MAT_LENGTHS
|