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

palm/trunk/SOURCE/set_slicer_attributes_dvrp.f90

@@ -1 @@
- SUBROUTINE set_slicer_attributes_dvrp( n_slicer )
-
+!> @file set_slicer_attributes_dvrp.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -46 +45 @@
 ! Description:
 ! ------------
-! This routine sets the dvrp-slicer attributes
+!> This routine sets the dvrp-slicer attributes
 !------------------------------------------------------------------------------!
+ SUBROUTINE set_slicer_attributes_dvrp( n_slicer )
+ 
 
 #if defined( __dvrp_graphics )
@@ -59 +60 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  j         !:
-    INTEGER(iwp) ::  n_slicer  !:
+    INTEGER(iwp) ::  j         !<
+    INTEGER(iwp) ::  n_slicer  !<
 
-    REAL(wp)     ::  maxv      !:
-    REAL(wp)     ::  meav      !:
-    REAL(wp)     ::  minv      !:
+    REAL(wp)     ::  maxv      !<
+    REAL(wp)     ::  meav      !<
+    REAL(wp)     ::  minv      !<