lfi_precision.F90

Go to the documentation of this file.

MODULE lfi_precision

USE parkind1, ONLY : jprb, jpib, jpim, jprd, jprm
IMPLICIT NONE

!
!----- DESCRIPTION DES "PARAMETER" DU LOGICIEL DE FICHIERS INDEXES -----
!
!     JPDBLE= PRECISION UTILISE POUR LES ENTIERS:
!     * SI JPDBLE=8 les INTEGER (KIND=JPDBLE) seront a priori en 64 BITS
!     * SI JPDBLE=4 les INTEGER (KIND=JPDBLE) seront a priori en 32 BITS
!
!     JPDBLR= PRECISION UTILISE POUR LES FLOTTANTS (REELS):
!     * SI JPDBLR=8 les REAL (KIND=JPDBLR) seront a priori en 64 BITS
!     * SI JPDBLR=4 les REAL (KIND=JPDBLR) seront a priori en 32 BITS
!
!     (les conventions peuvent dependre de la plate-forme consideree)
!
!     JP_SIMPLE_ENTIER= sous-type entier permettant de representer
!                       l'intervalle +/-(10**9 - 1)
!

INTEGER, PARAMETER :: jpdble = jprb, jpdblr = jprb, jpdbld = jprd, jpdblm = jprm
INTEGER, PARAMETER :: jp_simple_entier = selected_int_kind(9)
INTEGER, PARAMETER :: jplikb = jpib, jplikm = jpim


END MODULE lfi_precision