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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/lpm_pack_arrays.f90

@@ -1 @@
- MODULE lpm_pack_arrays_mod
-
+!> @file lpm_pack_arrays.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -46 +45 @@
 ! Description:
 ! ------------
-! Pack particle and tail arrays, which means eliminate those elements marked for
-! deletion and move data with higher index values to these free indices.
-! Determine the new number of particles.
-!------------------------------------------------------------------------------!
+!> Pack particle and tail arrays, which means eliminate those elements marked for
+!> deletion and move data with higher index values to these free indices.
+!> Determine the new number of particles.
+!------------------------------------------------------------------------------!
+ MODULE lpm_pack_arrays_mod
+ 
 
     USE particle_attributes,                                                   &
@@ -70 +71 @@
 CONTAINS
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> @todo Missing subroutine description.
+!------------------------------------------------------------------------------!
     SUBROUTINE lpm_pack_all_arrays
 
@@ -82 +88 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !:
-       INTEGER(iwp) ::  j !:
-       INTEGER(iwp) ::  k !:
+       INTEGER(iwp) ::  i !<
+       INTEGER(iwp) ::  j !<
+       INTEGER(iwp) ::  k !<
 
        CALL cpu_log( log_point_s(51), 'lpm_pack_all_arrays', 'start' )
@@ -103 +109 @@
     END SUBROUTINE lpm_pack_all_arrays
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> @todo Missing subroutine description.
+!------------------------------------------------------------------------------!
     SUBROUTINE lpm_pack_arrays
 
@@ -109 +120 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  n       !:
-       INTEGER(iwp) ::  nd      !:
-       INTEGER(iwp) ::  nn      !:
+       INTEGER(iwp) ::  n       !<
+       INTEGER(iwp) ::  nd      !<
+       INTEGER(iwp) ::  nn      !<
 !
 !--    Find out elements marked for deletion and move data from highest index
@@ -180 +191 @@
     END SUBROUTINE lpm_pack_arrays
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> @todo Missing subroutine description.
+!------------------------------------------------------------------------------!
     SUBROUTINE lpm_pack_and_sort (ip,jp,kp)