Changeset 1318 for palm/trunk/SOURCE/mod_kinds.f90

Timestamp:

Mar 17, 2014 1:35:16 PM (10 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:

• palm/trunk/SOURCE/mod_kinds.f90 (modified) (1 diff)

palm/trunk/SOURCE/mod_kinds.f90

@@ -49 +49 @@
 !-- Integer kinds
     INTEGER, PARAMETER ::  isp = SELECTED_INT_KIND(  9 )   ! single precision (32 bit)
-    INTEGER, PARAMETER ::  idp = SELECTED_INT_KIND( 14 )   ! double precision (32 bit)
+    INTEGER, PARAMETER ::  idp = SELECTED_INT_KIND( 14 )   ! double precision (64 bit)
 
 !
 !-- Set kinds to be used as defaults
     INTEGER, PARAMETER ::   wp =  dp          ! default real kind
-    INTEGER, PARAMETER ::  iwp = idp          ! default integer kind
+    INTEGER, PARAMETER ::  iwp = isp          ! default integer kind
 
     SAVE