108 lines
3.4 KiB
Fortran
108 lines
3.4 KiB
Fortran
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
MODULE SCALE_P
|
||
|
|
!
|
||
|
|
! This module defines the scale parameters
|
||
|
|
!
|
||
|
|
USE ACCURACY_REAL
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
REAL (WP) :: G_Q,G_C,R_W
|
||
|
|
!
|
||
|
|
END MODULE SCALE_P
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
MODULE PRINT_SCALE_PARAM
|
||
|
|
!
|
||
|
|
! This module prints the scale parameters in the log file
|
||
|
|
!
|
||
|
|
!
|
||
|
|
CONTAINS
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
SUBROUTINE CALC_SCALE_PARAM
|
||
|
|
!
|
||
|
|
USE MATERIAL_PROP, ONLY : RS
|
||
|
|
USE EXT_FIELDS, ONLY : T
|
||
|
|
USE PLASMA_SCALE
|
||
|
|
USE SCALE_PARAMETERS
|
||
|
|
!
|
||
|
|
USE SCALE_P
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
CALL SCALE_PARAM(RS,T,G_Q,G_C,R_W) !
|
||
|
|
!
|
||
|
|
END SUBROUTINE CALC_SCALE_PARAM
|
||
|
|
!
|
||
|
|
!=======================================================================
|
||
|
|
!
|
||
|
|
SUBROUTINE PRINT_SCALE_PARAMETERS
|
||
|
|
!
|
||
|
|
! This subroutine prints the scale parameters in the log file
|
||
|
|
!
|
||
|
|
!
|
||
|
|
!
|
||
|
|
! Author : D. Sébilleau
|
||
|
|
!
|
||
|
|
! Last modified : 28 Jul 2020
|
||
|
|
!
|
||
|
|
USE SCALE_P
|
||
|
|
!
|
||
|
|
IMPLICIT NONE
|
||
|
|
!
|
||
|
|
REAL (WP) :: TEST
|
||
|
|
!
|
||
|
|
INTEGER :: LOGF
|
||
|
|
!
|
||
|
|
LOGF=6 ! log file unit
|
||
|
|
!
|
||
|
|
TEST=90000.0E0_WP !
|
||
|
|
!
|
||
|
|
CALL CALC_SCALE_PARAM !
|
||
|
|
!
|
||
|
|
WRITE(LOGF,17) !
|
||
|
|
WRITE(LOGF,7) !
|
||
|
|
WRITE(LOGF,27) !
|
||
|
|
!
|
||
|
|
IF(G_Q <= TEST) THEN !
|
||
|
|
WRITE(LOGF,10) G_Q !
|
||
|
|
ELSE
|
||
|
|
WRITE(LOGF,15) G_Q !
|
||
|
|
END IF !
|
||
|
|
IF(G_C <= TEST) THEN !
|
||
|
|
WRITE(LOGF,20) G_C !
|
||
|
|
ELSE
|
||
|
|
WRITE(LOGF,25) G_C !
|
||
|
|
END IF !
|
||
|
|
IF(R_W <= TEST) THEN !
|
||
|
|
WRITE(LOGF,30) R_W !
|
||
|
|
ELSE
|
||
|
|
WRITE(LOGF,35) R_W !
|
||
|
|
END IF !
|
||
|
|
!
|
||
|
|
WRITE(LOGF,70) !
|
||
|
|
!
|
||
|
|
! Formats:
|
||
|
|
!
|
||
|
|
10 FORMAT(5X,'|',5X,'quantum scale parameter : ',F10.3,10X,' |')
|
||
|
|
20 FORMAT(5X,'|',5X,'classical scale parameter : ',F10.3,10X,' |')
|
||
|
|
30 FORMAT(5X,'|',5X,'Wilson ratio : ',F10.3,10X,' |')
|
||
|
|
!
|
||
|
|
15 FORMAT(5X,'|',5X,'quantum scale parameter : ',E12.6,8X,' |')
|
||
|
|
25 FORMAT(5X,'|',5X,'classical scale parameter : ',E12.6,8X,' |')
|
||
|
|
35 FORMAT(5X,'|',5X,'Wilson ratio : ',E12.6,8X,' |')
|
||
|
|
!
|
||
|
|
7 FORMAT(5X,'|',10X,'Scale parameters : ',25X,'|')
|
||
|
|
17 FORMAT(6X,'_________________________________________________________')
|
||
|
|
27 FORMAT(5X,'| |')
|
||
|
|
70 FORMAT(5X,'|_________________________________________________________|',/)
|
||
|
|
!
|
||
|
|
END SUBROUTINE PRINT_SCALE_PARAMETERS
|
||
|
|
!
|
||
|
|
END MODULE PRINT_SCALE_PARAM
|