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

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -1 @@
- MODULE dvrp_color
-
+!> @file data_output_dvrp.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -56 +55 @@
 ! Description:
 ! ------------
-! Plot of isosurface, particles and slicers with dvrp-software
+!> Plot of isosurface, particles and slicers with dvrp-software
 !------------------------------------------------------------------------------!
+ MODULE dvrp_color
+ 
 
     USE dvrp_variables
@@ -67 +68 @@
  CONTAINS
 
+!------------------------------------------------------------------------------!
+! Description:
+! ------------
+!> @todo Missing subroutine description.
+!------------------------------------------------------------------------------!
     SUBROUTINE color_dvrp( value, color )
 
-       REAL(wp), INTENT(IN)  ::  value    !: 
-       REAL(wp), INTENT(OUT) ::  color(4) !: 
-
-       REAL(wp)              ::  scale    !: 
+       REAL(wp), INTENT(IN)  ::  value    !< 
+       REAL(wp), INTENT(OUT) ::  color(4) !< 
+
+       REAL(wp)              ::  scale    !< 
 
        scale = ( value - slicer_range_limits_dvrp(1,islice_dvrp) ) /           &
@@ -132 +138 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=2) ::  section_chr      !: 
-    CHARACTER (LEN=6) ::  output_variable  !: 
+    CHARACTER (LEN=2) ::  section_chr      !< 
+    CHARACTER (LEN=6) ::  output_variable  !< 
     
-    INTEGER(iwp) ::  c_mode           !:  
-    INTEGER(iwp) ::  c_size_x         !: 
-    INTEGER(iwp) ::  c_size_y         !: 
-    INTEGER(iwp) ::  c_size_z         !: 
-    INTEGER(iwp) ::  dvrp_nop         !: 
-    INTEGER(iwp) ::  dvrp_not         !: 
-    INTEGER(iwp) ::  gradient_normals !: 
-    INTEGER(iwp) ::  i                !: 
-    INTEGER(iwp) ::  ip               !: 
-    INTEGER(iwp) ::  j                !: 
-    INTEGER(iwp) ::  jp               !: 
-    INTEGER(iwp) ::  k                !: 
-    INTEGER(iwp) ::  l                !: 
-    INTEGER(iwp) ::  m                !: 
-    INTEGER(iwp) ::  n                !: 
-    INTEGER(iwp) ::  n_isosurface     !: 
-    INTEGER(iwp) ::  n_slicer         !: 
-    INTEGER(iwp) ::  nn               !: 
-    INTEGER(iwp) ::  section_mode     !: 
-    INTEGER(iwp) ::  vn               !: 
-    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  p_c  !: 
-    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  p_t  !: 
-
-    LOGICAL, DIMENSION(:), ALLOCATABLE ::  dvrp_mask  !: 
-
-    REAL(sp) ::  slicer_position  !: 
-    REAL(sp) ::  tmp_alpha        !: 
-    REAL(sp) ::  tmp_alpha_w      !: 
-    REAL(sp) ::  tmp_b            !: 
-    REAL(sp) ::  tmp_c_alpha      !: 
-    REAL(sp) ::  tmp_g            !: 
-    REAL(sp) ::  tmp_norm         !: 
-    REAL(sp) ::  tmp_pos          !: 
-    REAL(sp) ::  tmp_r            !: 
-    REAL(sp) ::  tmp_t            !: 
-    REAL(sp) ::  tmp_th           !: 
-    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  psize  !: 
-    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  p_x    !: 
-    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  p_y    !: 
-    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  p_z    !: 
-    REAL(sp), DIMENSION(:,:,:), ALLOCATABLE   ::  local_pf  !: 
-    REAL(sp), DIMENSION(:,:,:,:), ALLOCATABLE ::  local_pfi !: 
+    INTEGER(iwp) ::  c_mode           !<  
+    INTEGER(iwp) ::  c_size_x         !< 
+    INTEGER(iwp) ::  c_size_y         !< 
+    INTEGER(iwp) ::  c_size_z         !< 
+    INTEGER(iwp) ::  dvrp_nop         !< 
+    INTEGER(iwp) ::  dvrp_not         !< 
+    INTEGER(iwp) ::  gradient_normals !< 
+    INTEGER(iwp) ::  i                !< 
+    INTEGER(iwp) ::  ip               !< 
+    INTEGER(iwp) ::  j                !< 
+    INTEGER(iwp) ::  jp               !< 
+    INTEGER(iwp) ::  k                !< 
+    INTEGER(iwp) ::  l                !< 
+    INTEGER(iwp) ::  m                !< 
+    INTEGER(iwp) ::  n                !< 
+    INTEGER(iwp) ::  n_isosurface     !< 
+    INTEGER(iwp) ::  n_slicer         !< 
+    INTEGER(iwp) ::  nn               !< 
+    INTEGER(iwp) ::  section_mode     !< 
+    INTEGER(iwp) ::  vn               !< 
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  p_c  !< 
+    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  p_t  !< 
+
+    LOGICAL, DIMENSION(:), ALLOCATABLE ::  dvrp_mask  !< 
+
+    REAL(sp) ::  slicer_position  !< 
+    REAL(sp) ::  tmp_alpha        !< 
+    REAL(sp) ::  tmp_alpha_w      !< 
+    REAL(sp) ::  tmp_b            !< 
+    REAL(sp) ::  tmp_c_alpha      !< 
+    REAL(sp) ::  tmp_g            !< 
+    REAL(sp) ::  tmp_norm         !< 
+    REAL(sp) ::  tmp_pos          !< 
+    REAL(sp) ::  tmp_r            !< 
+    REAL(sp) ::  tmp_t            !< 
+    REAL(sp) ::  tmp_th           !< 
+    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  psize  !< 
+    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  p_x    !< 
+    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  p_y    !< 
+    REAL(sp), DIMENSION(:),     ALLOCATABLE   ::  p_z    !< 
+    REAL(sp), DIMENSION(:,:,:), ALLOCATABLE   ::  local_pf  !< 
+    REAL(sp), DIMENSION(:,:,:,:), ALLOCATABLE ::  local_pfi !<