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

Timestamp:

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

Author:

suehring

Message:

variable description added some routines

File:

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

palm/trunk/SOURCE/advec_s_pw.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3538 2018-11-20 10:55:41Z suehring
 ! Remove unnecessary double-masking of topography
 ! 
@@ -126 +129 @@
        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  !< local additional advective velocity
@@ -197 +200 @@
        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  !< local additional advective velocity