Changeset 4000 for palm/trunk

Timestamp:

May 24, 2019 7:20:44 AM (5 years ago)

Author:

raasch

Message:

preprocessor switch added for choosing the real precision

File:

• palm/trunk/SOURCE/mod_kinds.f90 (modified) (2 diffs)

palm/trunk/SOURCE/mod_kinds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! preprocessor switch added for choosing the real precision
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
 ! 
@@ -67 +70 @@
 !
 !-- Set kinds to be used as defaults
+#if defined( __single_precision )
+    INTEGER, PARAMETER ::   wp =  sp          !< default real kind
+#else
     INTEGER, PARAMETER ::   wp =  dp          !< default real kind
+#endif
     INTEGER, PARAMETER ::  iwp = isp          !< default integer kind