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

Timestamp:

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

Author:

suehring

Message:

variable description added some routines

File:

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

palm/trunk/SOURCE/diffusion_u.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -154 +157 @@
        INTEGER(iwp) ::  l             !< running index of surface type, south- or north-facing wall
        INTEGER(iwp) ::  m             !< running index surface elements
-       INTEGER(iwp) ::  surf_e        !< End index of surface elements at (j,i)-gridpoint
-       INTEGER(iwp) ::  surf_s        !< Start index of surface elements at (j,i)-gridpoint
+       INTEGER(iwp) ::  surf_e        !< end index of surface elements at (j,i)-gridpoint
+       INTEGER(iwp) ::  surf_s        !< start index of surface elements at (j,i)-gridpoint
 
        REAL(wp)     ::  flag          !< flag to mask topography grid points
-       REAL(wp)     ::  kmym          !< 
-       REAL(wp)     ::  kmyp          !<
-       REAL(wp)     ::  kmzm          !<
-       REAL(wp)     ::  kmzp          !<
+       REAL(wp)     ::  kmym          !< diffusion coefficient on southward side of the u-gridbox - interpolated onto xu-yv grid
+       REAL(wp)     ::  kmyp          !< diffusion coefficient on northward side of the u-gridbox - interpolated onto xu-yv grid
+       REAL(wp)     ::  kmzm          !< diffusion coefficient on bottom of the gridbox - interpolated onto xu-zw grid
+       REAL(wp)     ::  kmzp          !< diffusion coefficient on top of the gridbox - interpolated onto xu-zw grid
        REAL(wp)     ::  mask_bottom   !< flag to mask vertical upward-facing surface       
        REAL(wp)     ::  mask_north    !< flag to mask vertical surface north of the grid point 
@@ -395 +398 @@
 
        REAL(wp)     ::  flag          !< flag to mask topography grid points
-       REAL(wp)     ::  kmym          !< 
-       REAL(wp)     ::  kmyp          !<
-       REAL(wp)     ::  kmzm          !<
-       REAL(wp)     ::  kmzp          !<
+       REAL(wp)     ::  kmym          !< diffusion coefficient on southward side of the u-gridbox - interpolated onto xu-yv grid
+       REAL(wp)     ::  kmyp          !<diffusion coefficient on northward side of the u-gridbox - interpolated onto xu-yv grid
+       REAL(wp)     ::  kmzm          !< diffusion coefficient on bottom of the gridbox - interpolated onto xu-zw grid
+       REAL(wp)     ::  kmzp          !< diffusion coefficient on top of the gridbox - interpolated onto xu-zw grid
        REAL(wp)     ::  mask_bottom   !< flag to mask vertical upward-facing surface       
        REAL(wp)     ::  mask_north    !< flag to mask vertical surface north of the grid point