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

Timestamp:

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

Author:

knoop

Message:

Code annotations made doxygen readable

File:

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

palm/trunk/SOURCE/disturb_heatflux.f90

@@ -1 @@
- SUBROUTINE disturb_heatflux
-
+!> @file disturb_heatflux.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -49 +48 @@
 ! Description:
 ! ------------
-! Generate random, normally distributed heatflux values and store them as the
-! near-surface heatflux.
-! On parallel computers, too, this random generator is called at all grid points
-! of the total array in order to guarantee the same random distribution of the
-! total array regardless of the number of processors used during the model run.
+!> Generate random, normally distributed heatflux values and store them as the
+!> near-surface heatflux.
+!> On parallel computers, too, this random generator is called at all grid points
+!> of the total array in order to guarantee the same random distribution of the
+!> total array regardless of the number of processors used during the model run.
 !------------------------------------------------------------------------------!
+ SUBROUTINE disturb_heatflux
+ 
 
     USE arrays_3d,                                                             &
@@ -72 +73 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  j  !:
-    INTEGER(iwp) ::  i  !:
+    INTEGER(iwp) ::  j  !<
+    INTEGER(iwp) ::  i  !<
     
-    REAL(wp) ::  random_gauss  !:
-    REAL(wp) ::  randomnumber  !:
+    REAL(wp) ::  random_gauss  !<
+    REAL(wp) ::  randomnumber  !<