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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/init_slope.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_slope.f90

@@ -1 @@
- SUBROUTINE init_slope
-
+!> @file init_slope.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -49 +48 @@
 ! Description:
 ! ------------
-! Initialization of the temperature field and other variables used in case
-! of a sloping surface.
-! Remember: when a sloping surface is used, only one constant temperature
-!           gradient is allowed!
+!> Initialization of the temperature field and other variables used in case
+!> of a sloping surface.
+!> @note when a sloping surface is used, only one constant temperature
+!>       gradient is allowed!
 !------------------------------------------------------------------------------!
+ SUBROUTINE init_slope
+ 
 
     USE arrays_3d,                                                             &
@@ -78 +79 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i        !:
-    INTEGER(iwp) ::  j        !:
-    INTEGER(iwp) ::  k        !:
+    INTEGER(iwp) ::  i        !<
+    INTEGER(iwp) ::  j        !<
+    INTEGER(iwp) ::  k        !<
     
-    REAL(wp)     ::  alpha    !:
-    REAL(wp)     ::  height   !:
-    REAL(wp)     ::  pt_value !:
-    REAL(wp)     ::  radius   !:
+    REAL(wp)     ::  alpha    !<
+    REAL(wp)     ::  height   !<
+    REAL(wp)     ::  pt_value !<
+    REAL(wp)     ::  radius   !<
     
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  pt_init_local !:
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  pt_init_local !<
 
 !