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/advec_w_up.f90

    r3538 r3547  
    2525! -----------------
    2626! $Id$
     27! variables documented
     28!
     29! 3538 2018-11-20 10:55:41Z suehring
    2730! Remove unnecessary double-masking of topography
    2831!
     
    117120       IMPLICIT NONE
    118121
    119        INTEGER(iwp) ::  i !<
    120        INTEGER(iwp) ::  j !<
    121        INTEGER(iwp) ::  k !<
    122 
    123        REAL(wp) ::  ukomp !<
    124        REAL(wp) ::  vkomp !<
     122       INTEGER(iwp) ::  i !< grid index along x-direction
     123       INTEGER(iwp) ::  j !< grid index along y-direction
     124       INTEGER(iwp) ::  k !< grid index along z-direction
     125
     126       REAL(wp) ::  ukomp !< advection velocity along x-direction
     127       REAL(wp) ::  vkomp !< advection velocity along y-direction
    125128
    126129
     
    191194       IMPLICIT NONE
    192195
    193        INTEGER(iwp) ::  i !<
    194        INTEGER(iwp) ::  j !<
    195        INTEGER(iwp) ::  k !<
    196 
    197        REAL(wp) ::  ukomp !<
    198        REAL(wp) ::  vkomp !<
     196       INTEGER(iwp) ::  i !< grid index along x-direction
     197       INTEGER(iwp) ::  j !< grid index along y-direction
     198       INTEGER(iwp) ::  k !< grid index along z-direction
     199
     200       REAL(wp) ::  ukomp !< advection velocity along x-direction
     201       REAL(wp) ::  vkomp !< advection velocity along y-direction
    199202
    200203
Note: See TracChangeset for help on using the changeset viewer.