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_v_pw.f90

    r3538 r3547  
    2626! -----------------
    2727! $Id$
     28! variables documented
     29!
     30! 3538 2018-11-20 10:55:41Z suehring
    2831! Remove unnecessary double-masking of topography
    2932!
     
    116119       IMPLICIT NONE
    117120
    118        INTEGER(iwp) ::  i !<
    119        INTEGER(iwp) ::  j !<
    120        INTEGER(iwp) ::  k !<
     121       INTEGER(iwp) ::  i !< grid index along x-direction
     122       INTEGER(iwp) ::  j !< grid index along y-direction
     123       INTEGER(iwp) ::  k !< grid index along z-direction
    121124       
    122        REAL(wp)    ::  gu !<
    123        REAL(wp)    ::  gv !<
     125       REAL(wp)    ::  gu !< Galilei-transformation velocity along x
     126       REAL(wp)    ::  gv !< Galilei-transformation velocity along y
    124127 
    125128
     
    169172       IMPLICIT NONE
    170173
    171        INTEGER(iwp) ::  i !<
    172        INTEGER(iwp) ::  j !<
    173        INTEGER(iwp) ::  k !<
     174       INTEGER(iwp) ::  i !< grid index along x-direction
     175       INTEGER(iwp) ::  j !< grid index along y-direction
     176       INTEGER(iwp) ::  k !< grid index along z-direction
    174177       
    175        REAL(wp)    ::  gu !<
    176        REAL(wp)    ::  gv !<
     178       REAL(wp)    ::  gu !< Galilei-transformation velocity along x
     179       REAL(wp)    ::  gv !< Galilei-transformation velocity along y
    177180
    178181
Note: See TracChangeset for help on using the changeset viewer.