MODULE par_kind !!====================================================================== !! *** MODULE par_kind *** !! Ocean : define the kind of real for the whole model !!====================================================================== !! History : 1.0 ! 2002-06 (G. Madec) Original code !! 3.3 ! 2010-12 (G. Madec) add a standard length of character strings !!---------------------------------------------------------------------- IMPLICIT NONE PRIVATE INTEGER, PUBLIC, PARAMETER :: jpbyt = 8 !: real size for mpp communications INTEGER, PUBLIC, PARAMETER :: jpbytda = 4 !: real size in input data files 4 or 8 ! Number model from which the SELECTED_*_KIND are requested: ! 4 byte REAL 8 byte REAL ! CRAY: - precision = 13 ! exponent = 2465 ! IEEE: precision = 6 precision = 15 ! exponent = 37 exponent = 307 ! !!** Floating point ** INTEGER, PUBLIC, PARAMETER :: sp = SELECTED_REAL_KIND( 6, 37) !: single precision (real 4) INTEGER, PUBLIC, PARAMETER :: dp = SELECTED_REAL_KIND(12,307) !: double precision (real 8) INTEGER, PUBLIC, PARAMETER :: wp = dp !: working precision ! !!** Integer ** INTEGER, PUBLIC, PARAMETER :: i4 = SELECTED_INT_KIND( 9) !: single precision (integer 4) INTEGER, PUBLIC, PARAMETER :: i8 = SELECTED_INT_KIND(14) !: double precision (integer 8) ! !!** Integer ** INTEGER, PUBLIC, PARAMETER :: lc = 256 !: Lenght of Character strings !!---------------------------------------------------------------------- !! NEMO 3.3 , NEMO Consortium (2010) !! $Id$ !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- END MODULE par_kind