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_pw.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!
     
    115118       IMPLICIT NONE
    116119
    117        INTEGER(iwp) ::  i !<
    118        INTEGER(iwp) ::  j !<
    119        INTEGER(iwp) ::  k !<
     120       INTEGER(iwp) ::  i !< grid index along x-direction
     121       INTEGER(iwp) ::  j !< grid index along y-direction
     122       INTEGER(iwp) ::  k !< grid index along z-direction
    120123       
    121        REAL(wp)    ::  gu !<
    122        REAL(wp)    ::  gv !<
     124       REAL(wp)    ::  gu !< Galilei-transformation velocity along x
     125       REAL(wp)    ::  gv !< Galilei-transformation velocity along y
    123126
    124127 
     
    168171       IMPLICIT NONE
    169172
    170        INTEGER(iwp) ::  i !<
    171        INTEGER(iwp) ::  j !<
    172        INTEGER(iwp) ::  k !<
     173       INTEGER(iwp) ::  i !< grid index along x-direction
     174       INTEGER(iwp) ::  j !< grid index along y-direction
     175       INTEGER(iwp) ::  k !< grid index along z-direction
    173176       
    174        REAL(wp)    ::  gu !<
    175        REAL(wp)    ::  gv !<
     177       REAL(wp)    ::  gu !< Galilei-transformation velocity along x
     178       REAL(wp)    ::  gv !< Galilei-transformation velocity along y
    176179
    177180       gu = 2.0_wp * u_gtrans
Note: See TracChangeset for help on using the changeset viewer.