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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -1 @@
- SUBROUTINE sum_up_3d_data
-
+!> @file sum_up_3d_data.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -75 +74 @@
 ! Description:
 ! ------------
-! Sum-up the values of 3d-arrays. The real averaging is later done in routine
-! average_3d_data. 
+!> Sum-up the values of 3d-arrays. The real averaging is later done in routine
+!> average_3d_data. 
 !------------------------------------------------------------------------------!
+ SUBROUTINE sum_up_3d_data
+ 
 
     USE arrays_3d,                                                             &
@@ -121 +122 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i   !: 
-    INTEGER(iwp) ::  ii  !: 
-    INTEGER(iwp) ::  j   !: 
-    INTEGER(iwp) ::  k   !: 
-    INTEGER(iwp) ::  n   !: 
-    INTEGER(iwp) ::  psi !: 
-
-    REAL(wp)     ::  mean_r !: 
-    REAL(wp)     ::  s_r2   !: 
-    REAL(wp)     ::  s_r3   !: 
+    INTEGER(iwp) ::  i   !< 
+    INTEGER(iwp) ::  ii  !< 
+    INTEGER(iwp) ::  j   !< 
+    INTEGER(iwp) ::  k   !< 
+    INTEGER(iwp) ::  n   !< 
+    INTEGER(iwp) ::  psi !< 
+
+    REAL(wp)     ::  mean_r !< 
+    REAL(wp)     ::  s_r2   !< 
+    REAL(wp)     ::  s_r3   !< 
 
     CALL cpu_log (log_point(34),'sum_up_3d_data','start')