Changeset 3547 for palm/trunk/SOURCE/advec_v_up.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_v_up.f90 (modified) (3 diffs)

palm/trunk/SOURCE/advec_v_up.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3538 2018-11-20 10:55:41Z suehring
 ! Remove unnecessary double-masking of topography
 ! 
@@ -114 +117 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !<
-       INTEGER(iwp) ::  j !<
-       INTEGER(iwp) ::  k !<
-
-       REAL(wp) ::  ukomp !<
-       REAL(wp) ::  vkomp !<
-       REAL(wp) ::  wkomp !<       
+       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) ::  ukomp !< advection velocity along x-direction 
+       REAL(wp) ::  vkomp !< advection velocity along y-direction 
+       REAL(wp) ::  wkomp !< advection velocity along z-direction       
 
 
@@ -190 +193 @@
        IMPLICIT NONE
 
-       INTEGER(iwp) ::  i !<
-       INTEGER(iwp) ::  j !<
-       INTEGER(iwp) ::  k !<
-
-       REAL(wp) ::  ukomp !<
-       REAL(wp) ::  vkomp !<
-       REAL(wp) ::  wkomp !<
+       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) ::  ukomp !< advection velocity along x-direction 
+       REAL(wp) ::  vkomp !< advection velocity along y-direction 
+       REAL(wp) ::  wkomp !< advection velocity along z-direction