Changeset 1682 for palm/trunk/SOURCE/lpm.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.f90 (modified) (4 diffs)

palm/trunk/SOURCE/lpm.f90

@@ -1 @@
- SUBROUTINE lpm
-
+!> @file lpm.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -83 +82 @@
 ! Description:
 ! ------------
-! Particle advection
+!> Particle advection
 !------------------------------------------------------------------------------!
+ SUBROUTINE lpm
+ 
 
     USE arrays_3d,                                                             &
@@ -122 +123 @@
     IMPLICIT NONE
 
-    INTEGER(iwp)       ::  i                  !:
-    INTEGER(iwp)       ::  ie                 !:
-    INTEGER(iwp)       ::  is                 !:
-    INTEGER(iwp)       ::  j                  !:
-    INTEGER(iwp)       ::  je                 !:
-    INTEGER(iwp)       ::  js                 !:
-    INTEGER(iwp)       ::  k                  !:
-    INTEGER(iwp)       ::  ke                 !:
-    INTEGER(iwp)       ::  ks                 !:
-    INTEGER(iwp)       ::  m                  !:
-    INTEGER(iwp), SAVE ::  steps = 0          !:
-
-    LOGICAL            ::  first_loop_stride  !:
+    INTEGER(iwp)       ::  i                  !<
+    INTEGER(iwp)       ::  ie                 !<
+    INTEGER(iwp)       ::  is                 !<
+    INTEGER(iwp)       ::  j                  !<
+    INTEGER(iwp)       ::  je                 !<
+    INTEGER(iwp)       ::  js                 !<
+    INTEGER(iwp)       ::  k                  !<
+    INTEGER(iwp)       ::  ke                 !<
+    INTEGER(iwp)       ::  ks                 !<
+    INTEGER(iwp)       ::  m                  !<
+    INTEGER(iwp), SAVE ::  steps = 0          !<
+
+    LOGICAL            ::  first_loop_stride  !<
 
     CALL cpu_log( log_point(25), 'lpm', 'start' )