Changeset 4000 for palm


Ignore:
Timestamp:
May 24, 2019 7:20:44 AM (2 years ago)
Author:
raasch
Message:

preprocessor switch added for choosing the real precision

File:
1 edited

Legend:

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

    r3655 r4000  
    2525! -----------------
    2626! $Id$
     27! preprocessor switch added for choosing the real precision
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! Corrected "Former revisions" section
    2831!
     
    6770!
    6871!-- Set kinds to be used as defaults
     72#if defined( __single_precision )
     73    INTEGER, PARAMETER ::   wp =  sp          !< default real kind
     74#else
    6975    INTEGER, PARAMETER ::   wp =  dp          !< default real kind
     76#endif
    7077    INTEGER, PARAMETER ::  iwp = isp          !< default integer kind
    7178
Note: See TracChangeset for help on using the changeset viewer.