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_u_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!
     
    114117       IMPLICIT NONE
    115118
    116        INTEGER(iwp) ::  i !<
    117        INTEGER(iwp) ::  j !<
    118        INTEGER(iwp) ::  k !<
    119 
    120        REAL(wp) ::  ukomp !<
    121        REAL(wp) ::  vkomp !<
    122        REAL(wp) ::  wkomp !<
     119       INTEGER(iwp) ::  i !< grid index along x-direction
     120       INTEGER(iwp) ::  j !< grid index along y-direction
     121       INTEGER(iwp) ::  k !< grid index along z-direction
     122
     123       REAL(wp) ::  ukomp !< advection velocity along x-direction
     124       REAL(wp) ::  vkomp !< advection velocity along y-direction
     125       REAL(wp) ::  wkomp !< advection velocity along z-direction
    123126
    124127       
     
    190193       IMPLICIT NONE
    191194
    192        INTEGER(iwp) ::  i !<
    193        INTEGER(iwp) ::  j !<
    194        INTEGER(iwp) ::  k !<
    195 
    196        REAL(wp) ::  ukomp !<
    197        REAL(wp) ::  vkomp !<
    198        REAL(wp) ::  wkomp !<
     195       INTEGER(iwp) ::  i !< grid index along x-direction
     196       INTEGER(iwp) ::  j !< grid index along y-direction
     197       INTEGER(iwp) ::  k !< grid index along z-direction
     198
     199       REAL(wp) ::  ukomp !< advection velocity along x-direction
     200       REAL(wp) ::  vkomp !< advection velocity along y-direction
     201       REAL(wp) ::  wkomp !< advection velocity along z-direction
    199202
    200203
Note: See TracChangeset for help on using the changeset viewer.