Changeset 3044 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

May 25, 2018 10:59:41 AM (6 years ago)

Author:

gronemeier

Message:

add missing variable descriptions

File:

• palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add missing variable descriptions
+!
+! 3038 2018-05-24 10:54:00Z gronemeier
 ! updated variable descriptions
 !
@@ -452 +455 @@
     REAL(wp) :: zz      !< height
 
-    REAL(wp) :: length_scale_surface, r_ii_0, time_scale, length_scale_z
+    REAL(wp) :: length_scale_surface !< typical length scale
+    REAL(wp) :: r_ii_0               !< correction factor
+    REAL(wp) :: time_scale           !< typical time scale
+    REAL(wp) :: length_scale_z       !< typical length scale
 
     REAL(wp),DIMENSION(nzb:nzt+1) :: r11  !< Reynolds parameter
@@ -962 +968 @@
     IMPLICIT NONE
 
-    LOGICAL, INTENT(OUT)  ::  found
+    LOGICAL, INTENT(OUT)  ::  found !< flag indicating if variable was found