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/parkind1.F90

    r1990 r5159  
    11MODULE PARKIND1
    2 !
     2
    33!     *** Define usual kinds for strong typing ***
    4 !
     4
    55IMPLICIT NONE
    66SAVE
    7 !
     7
    88!     Integer Kinds
    99!     -------------
    10 !
     10
    1111INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
    1212INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
    … …  
    2222#endif
    2323
    24 !
     24
    2525!     Real Kinds
    2626!     ----------
    27 !
     27
    2828INTEGER, PARAMETER :: JPRT = SELECTED_REAL_KIND(2,1)
    2929INTEGER, PARAMETER :: JPRS = SELECTED_REAL_KIND(4,2)
    3030INTEGER, PARAMETER :: JPRM = SELECTED_REAL_KIND(6,37)
    3131INTEGER, PARAMETER :: JPRB = SELECTED_REAL_KIND(13,300)
    32 !
     32
    3333END MODULE PARKIND1
Note: See TracChangeset for help on using the changeset viewer.