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

palm/trunk/SOURCE/disturb_field.f90

@@ -1 @@
- SUBROUTINE disturb_field( nzb_uv_inner, dist1, field )
-
+!> @file disturb_field.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Code annotations made doxygen readable 
 ! 
 ! Former revisions:
@@ -55 +54 @@
 ! Description:
 ! ------------
-! Imposing a random perturbation on a 3D-array.
-! On parallel computers, the random number generator is as well called for all
-! gridpoints of the total domain to ensure, regardless of the number of PEs
-! used, that the elements of the array have the same values in the same
-! order in every case. The perturbation range is steered by dist_range.
+!> Imposing a random perturbation on a 3D-array.
+!> On parallel computers, the random number generator is as well called for all
+!> gridpoints of the total domain to ensure, regardless of the number of PEs
+!> used, that the elements of the array have the same values in the same
+!> order in every case. The perturbation range is steered by dist_range.
 !------------------------------------------------------------------------------!
+ SUBROUTINE disturb_field( nzb_uv_inner, dist1, field )
+ 
 
     USE control_parameters,   &
@@ -85 +86 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  i  !:
-    INTEGER(iwp) ::  j  !:
-    INTEGER(iwp) ::  k  !:
-    
-    INTEGER(iwp) ::  nzb_uv_inner(nysg:nyng,nxlg:nxrg) !:
-
-    REAL(wp) ::  randomnumber  !:
-    
-    REAL(wp) ::  dist1(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !:
-    REAL(wp) ::  field(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !:
-    
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  dist2  !:
+    INTEGER(iwp) ::  i  !<
+    INTEGER(iwp) ::  j  !<
+    INTEGER(iwp) ::  k  !<
+    
+    INTEGER(iwp) ::  nzb_uv_inner(nysg:nyng,nxlg:nxrg) !<
+
+    REAL(wp) ::  randomnumber  !<
+    
+    REAL(wp) ::  dist1(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !<
+    REAL(wp) ::  field(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !<
+    
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  dist2  !<