Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (3 months ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/parkind2.F90

    r1990 r5159  
    11MODULE PARKIND2
    2 !
     2
    33!     *** Define huge kinds for strong typing ***
    4 !
     4
    55IMPLICIT NONE
    66SAVE
    7 !
     7
    88!     Integer Kinds
    99!     -------------
    10 !
     10
    1111INTEGER, PARAMETER :: JPIH = SELECTED_INT_KIND(18)
    12 !
     12
    1313!     Real Kinds
    1414!     ----------
    15 !
     15
    1616#ifdef REALHUGE
    1717INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(31,291)
    … …  
    1919INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(13,300)
    2020#endif
    21 !
     21
    2222END MODULE PARKIND2
Note: See TracChangeset for help on using the changeset viewer.