source: LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/parkind2.F90

Last change on this file was 5159, checked in by abarral, 3 months ago

Put dimensions.h and paramet.h into modules
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 378 bytes
RevLine 
[1989]1MODULE PARKIND2
[5159]2
[1989]3!     *** Define huge kinds for strong typing ***
[5159]4
[1989]5IMPLICIT NONE
6SAVE
[5159]7
[1989]8!     Integer Kinds
9!     -------------
[5159]10
[1989]11INTEGER, PARAMETER :: JPIH = SELECTED_INT_KIND(18)
[5159]12
[1989]13!     Real Kinds
14!     ----------
[5159]15
[1989]16#ifdef REALHUGE
17INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(31,291)
18#else
19INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(13,300)
20#endif
[5159]21
[1989]22END MODULE PARKIND2
Note: See TracBrowser for help on using the repository browser.