Changeset 3547 for palm/trunk/SOURCE/advec_u_pw.f90

Timestamp:

Nov 21, 2018 1:21:24 PM (5 years ago)

Author:

suehring

Message:

variable description added some routines

File:

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

palm/trunk/SOURCE/advec_u_pw.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3538 2018-11-20 10:55:41Z suehring
 ! Remove unnecessary double-masking of topography
 ! 
@@ -115 +118 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !<
-       INTEGER(iwp) ::  j !<
-       INTEGER(iwp) ::  k !<
+       INTEGER(iwp) ::  i !< grid index along x-direction
+       INTEGER(iwp) ::  j !< grid index along y-direction
+       INTEGER(iwp) ::  k !< grid index along z-direction
        
-       REAL(wp)    ::  gu !<
-       REAL(wp)    ::  gv !<
+       REAL(wp)    ::  gu !< Galilei-transformation velocity along x
+       REAL(wp)    ::  gv !< Galilei-transformation velocity along y
  
        gu = 2.0_wp * u_gtrans
@@ -167 +170 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !<
-       INTEGER(iwp) ::  j !<
-       INTEGER(iwp) ::  k !<
+       INTEGER(iwp) ::  i !< grid index along x-direction
+       INTEGER(iwp) ::  j !< grid index along y-direction
+       INTEGER(iwp) ::  k !< grid index along z-direction
        
-       REAL(wp)    ::  gu !<
-       REAL(wp)    ::  gv !<
+       REAL(wp)    ::  gu !< Galilei-transformation velocity along x
+       REAL(wp)    ::  gv !< Galilei-transformation velocity along y
 
        gu = 2.0_wp * u_gtrans