Changeset 3547 for palm/trunk/SOURCE/diffusion_w.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_w.f90 (modified) (4 diffs)

palm/trunk/SOURCE/diffusion_w.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -152 +155 @@
        
        REAL(wp) ::  flag              !< flag to mask topography grid points
-       REAL(wp) ::  kmxm              !<
-       REAL(wp) ::  kmxp              !<
-       REAL(wp) ::  kmym              !<
-       REAL(wp) ::  kmyp              !< 
+       REAL(wp) ::  kmxm              !< diffusion coefficient on leftward side of the w-gridbox - interpolated onto xu-y grid
+       REAL(wp) ::  kmxp              !<diffusion coefficient on rightward side of the w-gridbox - interpolated onto xu-y grid
+       REAL(wp) ::  kmym              !< diffusion coefficient on southward side of the w-gridbox - interpolated onto x-yv grid
+       REAL(wp) ::  kmyp              !< diffusion coefficient on northward side of the w-gridbox - interpolated onto x-yv grid
        REAL(wp) ::  mask_west         !< flag to mask vertical wall west of the grid point
        REAL(wp) ::  mask_east         !< flag to mask vertical wall east of the grid point 
@@ -180 +183 @@
 !
 !--             Interpolate eddy diffusivities on staggered gridpoints
-                kmxp = 0.25_wp * ( km(k,j,i)   +   km(k,j,i+1) +               &
+                kmxp = 0.25_wp * ( km(k,j,i)   + km(k,j,i+1)   +               &
                                    km(k+1,j,i) + km(k+1,j,i+1) )
                 kmxm = 0.25_wp * ( km(k,j,i)   + km(k,j,i-1)   +               &
@@ -328 +331 @@
        
        REAL(wp) ::  flag              !< flag to mask topography grid points
-       REAL(wp) ::  kmxm              !<
-       REAL(wp) ::  kmxp              !<
-       REAL(wp) ::  kmym              !<
-       REAL(wp) ::  kmyp              !< 
+       REAL(wp) ::  kmxm              !< diffusion coefficient on leftward side of the w-gridbox - interpolated onto xu-y grid
+       REAL(wp) ::  kmxp              !< diffusion coefficient on rightward side of the w-gridbox - interpolated onto xu-y grid
+       REAL(wp) ::  kmym              !< diffusion coefficient on southward side of the w-gridbox - interpolated onto x-yv grid
+       REAL(wp) ::  kmyp              !< diffusion coefficient on northward side of the w-gridbox - interpolated onto x-yv grid
        REAL(wp) ::  mask_west         !< flag to mask vertical wall west of the grid point
        REAL(wp) ::  mask_east         !< flag to mask vertical wall east of the grid point