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

Timestamp:

Oct 7, 2015 11:56:08 PM (9 years ago)

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/mod_kinds.f90

@@ -1 @@
- MODULE kinds
-
+!> @file mod_kinds.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! Code annotations made doxygen readable
 !
 ! Former revisions:
@@ -31 +30 @@
 ! Description:
 ! ------------
-! Standard kind definitions
-! wp (working precision) and iwp (integer working precision) are the kinds
-! used by default in all variable declarations.
-! By default, PALM is using wp = dp (64bit), and iwp = isp (32bit).
-! If you like to switch to other precision, then please set wp/iwp
-! appropriately by assigning other kinds below.
+!> Standard kind definitions
+!> wp (working precision) and iwp (integer working precision) are the kinds
+!> used by default in all variable declarations.
+!> By default, PALM is using wp = dp (64bit), and iwp = isp (32bit).
+!> If you like to switch to other precision, then please set wp/iwp
+!> appropriately by assigning other kinds below.
 !------------------------------------------------------------------------------!
+ MODULE kinds
+ 
 
     IMPLICIT NONE
@@ -43 +44 @@
 !
 !-- 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