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

palm/trunk/SOURCE/advec_s_up.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3538 2018-11-20 10:55:41Z suehring
 ! Remove unnecessary double-masking of topography
 ! 
@@ -123 +126 @@
        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 
 #if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
 #else
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
+       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
 #endif
 
@@ -202 +205 @@
        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 
        
 #if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
 #else
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
+       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
 #endif