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

palm/trunk/SOURCE/lpm_set_attributes.f90

@@ -1 @@
- SUBROUTINE lpm_set_attributes
-
+!> @file lpm_set_attributes.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -55 +54 @@
 ! Description:
 ! ------------
-! This routine sets certain particle attributes depending on the values that
-! other PALM variables have at the current particle position.
+!> This routine sets certain particle attributes depending on the values that
+!> other PALM variables have at the current particle position.
 !------------------------------------------------------------------------------!
+ SUBROUTINE lpm_set_attributes
+ 
 
     USE arrays_3d,                                                             &
@@ -91 +92 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i        !:
-    INTEGER(iwp) ::  ip       !:
-    INTEGER(iwp) ::  j        !:
-    INTEGER(iwp) ::  jp       !:
-    INTEGER(iwp) ::  k        !:
-    INTEGER(iwp) ::  kp       !:
-    INTEGER(iwp) ::  n        !:
-    INTEGER(iwp) ::  nb       !:
-
-    INTEGER(iwp), DIMENSION(0:7) ::  start_index !:
-    INTEGER(iwp), DIMENSION(0:7) ::  end_index   !:
-
-    REAL(wp)    ::  aa        !:
-    REAL(wp)    ::  absuv     !:
-    REAL(wp)    ::  bb        !:
-    REAL(wp)    ::  cc        !:
-    REAL(wp)    ::  dd        !:
-    REAL(wp)    ::  gg        !:
-    REAL(wp)    ::  height    !:
-    REAL(wp)    ::  pt_int    !:
-    REAL(wp)    ::  pt_int_l  !:
-    REAL(wp)    ::  pt_int_u  !:
-    REAL(wp)    ::  u_int_l   !:
-    REAL(wp)    ::  u_int_u   !:
-    REAL(wp)    ::  v_int_l   !:
-    REAL(wp)    ::  v_int_u   !:
-    REAL(wp)    ::  w_int     !:
-    REAL(wp)    ::  w_int_l   !:
-    REAL(wp)    ::  w_int_u   !:
-    REAL(wp)    ::  x         !:
-    REAL(wp)    ::  y         !:
-
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  u_int                  !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  v_int                  !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  xv                     !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  yv                     !:
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  zv                     !:
+    INTEGER(iwp) ::  i        !<
+    INTEGER(iwp) ::  ip       !<
+    INTEGER(iwp) ::  j        !<
+    INTEGER(iwp) ::  jp       !<
+    INTEGER(iwp) ::  k        !<
+    INTEGER(iwp) ::  kp       !<
+    INTEGER(iwp) ::  n        !<
+    INTEGER(iwp) ::  nb       !<
+
+    INTEGER(iwp), DIMENSION(0:7) ::  start_index !<
+    INTEGER(iwp), DIMENSION(0:7) ::  end_index   !<
+
+    REAL(wp)    ::  aa        !<
+    REAL(wp)    ::  absuv     !<
+    REAL(wp)    ::  bb        !<
+    REAL(wp)    ::  cc        !<
+    REAL(wp)    ::  dd        !<
+    REAL(wp)    ::  gg        !<
+    REAL(wp)    ::  height    !<
+    REAL(wp)    ::  pt_int    !<
+    REAL(wp)    ::  pt_int_l  !<
+    REAL(wp)    ::  pt_int_u  !<
+    REAL(wp)    ::  u_int_l   !<
+    REAL(wp)    ::  u_int_u   !<
+    REAL(wp)    ::  v_int_l   !<
+    REAL(wp)    ::  v_int_u   !<
+    REAL(wp)    ::  w_int     !<
+    REAL(wp)    ::  w_int_l   !<
+    REAL(wp)    ::  w_int_u   !<
+    REAL(wp)    ::  x         !<
+    REAL(wp)    ::  y         !<
+
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  u_int                  !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  v_int                  !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  xv                     !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  yv                     !<
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  zv                     !<
 
     CALL cpu_log( log_point_s(49), 'lpm_set_attributes', 'start' )