18 lines
429 B
Fortran
18 lines
429 B
Fortran
|
|
MODULE gckpp_adj_Precision
|
|
|
|
!
|
|
! Definition of different levels of accuracy
|
|
! for REAL variables using KIND parameterization
|
|
!
|
|
! KPP SP - Single precision kind
|
|
INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30)
|
|
! KPP DP - Double precision kind
|
|
INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300)
|
|
! KPP QP - Quadruple precision kind
|
|
INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400)
|
|
|
|
END MODULE gckpp_adj_Precision
|
|
|
|
|