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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/data_log.f90 (modified) (8 diffs)

palm/trunk/SOURCE/data_log.f90

@@ -1 @@
- SUBROUTINE data_log( array, i1, i2, j1, j2, k1, k2 )
-
+!> @file data_log.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 !
 ! Former revisions:
@@ -45 +44 @@
 ! Description:
 ! ------------
-! Complete logging of data
+!> Complete logging of data
 !------------------------------------------------------------------------------!
+ SUBROUTINE data_log( array, i1, i2, j1, j2, k1, k2 )
+ 
 #if defined( __logging )
 
@@ -58 +59 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i1  !: 
-    INTEGER(iwp) ::  i2  !: 
-    INTEGER(iwp) ::  j1  !: 
-    INTEGER(iwp) ::  j2  !: 
-    INTEGER(iwp) ::  k1  !: 
-    INTEGER(iwp) ::  k2  !: 
+    INTEGER(iwp) ::  i1  !< 
+    INTEGER(iwp) ::  i2  !< 
+    INTEGER(iwp) ::  j1  !< 
+    INTEGER(iwp) ::  j2  !< 
+    INTEGER(iwp) ::  k1  !< 
+    INTEGER(iwp) ::  k2  !< 
 
-    REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) ::  array  !: 
+    REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) ::  array  !< 
 
 
@@ -89 +90 @@
 
 
- SUBROUTINE data_log_2d( array, i1, i2, j1, j2)
-
 !------------------------------------------------------------------------------!
 ! Description:
 ! ------------
-! Same as above, for 2d arrays
+!> Complete logging of data for 2d arrays
 !------------------------------------------------------------------------------!
+ 
+ SUBROUTINE data_log_2d( array, i1, i2, j1, j2)
+
 #if defined( __logging )
 
@@ -107 +109 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i1  !: 
-    INTEGER(iwp) ::  i2  !: 
-    INTEGER(iwp) ::  j1  !: 
-    INTEGER(iwp) ::  j2  !: 
+    INTEGER(iwp) ::  i1  !< 
+    INTEGER(iwp) ::  i2  !< 
+    INTEGER(iwp) ::  j1  !< 
+    INTEGER(iwp) ::  j2  !< 
 
-    REAL(wp), DIMENSION(i1:i2,j1:j2) ::  array  !: 
+    REAL(wp), DIMENSION(i1:i2,j1:j2) ::  array  !< 
 
 
@@ -136 +138 @@
 
 
- SUBROUTINE data_log_2d_int( array, i1, i2, j1, j2)
-
 !------------------------------------------------------------------------------!
 ! Description:
 ! ------------
-! Same as above, for 2d integer arrays
+!> Complete logging of data for 2d integer arrays
 !------------------------------------------------------------------------------!
+ 
+ SUBROUTINE data_log_2d_int( array, i1, i2, j1, j2)
+
 #if defined( __logging )
 
@@ -154 +157 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i1  !: 
-    INTEGER(iwp) ::  i2  !: 
-    INTEGER(iwp) ::  j1  !: 
-    INTEGER(iwp) ::  j2  !: 
+    INTEGER(iwp) ::  i1  !< 
+    INTEGER(iwp) ::  i2  !< 
+    INTEGER(iwp) ::  j1  !< 
+    INTEGER(iwp) ::  j2  !< 
 
-    INTEGER(iwp), DIMENSION(i1:i2,j1:j2) ::  array  !: 
+    INTEGER(iwp), DIMENSION(i1:i2,j1:j2) ::  array  !<