Ignore:
Timestamp:
Mar 17, 2014 1:35:16 PM (8 years ago)
Author:
raasch
Message:

former files/routines cpu_log and cpu_statistics combined to one module,
which also includes the former data module cpulog from the modules-file,
module interfaces removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/mod_kinds.f90

    r1310 r1318  
    4949!-- Integer kinds
    5050    INTEGER, PARAMETER ::  isp = SELECTED_INT_KIND(  9 )   ! single precision (32 bit)
    51     INTEGER, PARAMETER ::  idp = SELECTED_INT_KIND( 14 )   ! double precision (32 bit)
     51    INTEGER, PARAMETER ::  idp = SELECTED_INT_KIND( 14 )   ! double precision (64 bit)
    5252
    5353!
    5454!-- Set kinds to be used as defaults
    5555    INTEGER, PARAMETER ::   wp =  dp          ! default real kind
    56     INTEGER, PARAMETER ::  iwp = idp          ! default integer kind
     56    INTEGER, PARAMETER ::  iwp = isp          ! default integer kind
    5757
    5858    SAVE
Note: See TracChangeset for help on using the changeset viewer.