Ignore:
Timestamp:
Nov 21, 2018 1:21:24 PM (3 years ago)
Author:
suehring
Message:

variable description added some routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/diffusion_w.f90

    r3241 r3547  
    2525! -----------------
    2626! $Id$
     27! variables documented
     28!
     29! 3241 2018-09-12 15:02:00Z raasch
    2730! unused variables removed
    2831!
     
    152155       
    153156       REAL(wp) ::  flag              !< flag to mask topography grid points
    154        REAL(wp) ::  kmxm              !<
    155        REAL(wp) ::  kmxp              !<
    156        REAL(wp) ::  kmym              !<
    157        REAL(wp) ::  kmyp              !<
     157       REAL(wp) ::  kmxm              !< diffusion coefficient on leftward side of the w-gridbox - interpolated onto xu-y grid
     158       REAL(wp) ::  kmxp              !<diffusion coefficient on rightward side of the w-gridbox - interpolated onto xu-y grid
     159       REAL(wp) ::  kmym              !< diffusion coefficient on southward side of the w-gridbox - interpolated onto x-yv grid
     160       REAL(wp) ::  kmyp              !< diffusion coefficient on northward side of the w-gridbox - interpolated onto x-yv grid
    158161       REAL(wp) ::  mask_west         !< flag to mask vertical wall west of the grid point
    159162       REAL(wp) ::  mask_east         !< flag to mask vertical wall east of the grid point
     
    180183!
    181184!--             Interpolate eddy diffusivities on staggered gridpoints
    182                 kmxp = 0.25_wp * ( km(k,j,i)   +   km(k,j,i+1) +               &
     185                kmxp = 0.25_wp * ( km(k,j,i)   + km(k,j,i+1)  +               &
    183186                                   km(k+1,j,i) + km(k+1,j,i+1) )
    184187                kmxm = 0.25_wp * ( km(k,j,i)   + km(k,j,i-1)   +               &
     
    328331       
    329332       REAL(wp) ::  flag              !< flag to mask topography grid points
    330        REAL(wp) ::  kmxm              !<
    331        REAL(wp) ::  kmxp              !<
    332        REAL(wp) ::  kmym              !<
    333        REAL(wp) ::  kmyp              !<
     333       REAL(wp) ::  kmxm              !< diffusion coefficient on leftward side of the w-gridbox - interpolated onto xu-y grid
     334       REAL(wp) ::  kmxp              !< diffusion coefficient on rightward side of the w-gridbox - interpolated onto xu-y grid
     335       REAL(wp) ::  kmym              !< diffusion coefficient on southward side of the w-gridbox - interpolated onto x-yv grid
     336       REAL(wp) ::  kmyp              !< diffusion coefficient on northward side of the w-gridbox - interpolated onto x-yv grid
    334337       REAL(wp) ::  mask_west         !< flag to mask vertical wall west of the grid point
    335338       REAL(wp) ::  mask_east         !< flag to mask vertical wall east of the grid point
Note: See TracChangeset for help on using the changeset viewer.