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

Timestamp:

Mar 20, 2014 8:40:49 AM (10 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

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

palm/trunk/SOURCE/mod_kinds.f90

@@ -26 +26 @@
 ! $Id$
 !
-! 1318 2014-03-17 13:35:16Z raasch
-! bugfix: default integer kind changed to single precision
-!
 ! 1306 2014-03-13 14:30:59Z raasch
 ! Initial revision
@@ -46 +43 @@
 !
 !-- Floating point kinds
-    INTEGER, PARAMETER ::  sp = 4           ! single precision (32 bit)
-    INTEGER, PARAMETER ::  dp = 8           ! double precision (64 bit)
+    INTEGER, PARAMETER ::  sp = 4           !: single precision (32 bit)
+    INTEGER, PARAMETER ::  dp = 8           !: double precision (64 bit)
 
 !
 !-- Integer kinds
-    INTEGER, PARAMETER ::  isp = SELECTED_INT_KIND(  9 )   ! single precision (32 bit)
-    INTEGER, PARAMETER ::  idp = SELECTED_INT_KIND( 14 )   ! double precision (64 bit)
+    INTEGER, PARAMETER ::  isp = SELECTED_INT_KIND(  9 )   !: single 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 = isp          ! default integer kind
+    INTEGER, PARAMETER ::   wp =  dp          !: default real kind
+    INTEGER, PARAMETER ::  iwp = isp          !: default integer kind
 
     SAVE