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_s_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!
     
    126129       IMPLICIT NONE
    127130
    128        INTEGER(iwp) ::  i !<
    129        INTEGER(iwp) ::  j !<
    130        INTEGER(iwp) ::  k !<
     131       INTEGER(iwp) ::  i !< grid index along x-direction
     132       INTEGER(iwp) ::  j !< grid index along y-direction
     133       INTEGER(iwp) ::  k !< grid index along z-direction
    131134
    132135       REAL(wp)     ::  gu  !< local additional advective velocity
     
    197200       IMPLICIT NONE
    198201
    199        INTEGER(iwp) ::  i !<
    200        INTEGER(iwp) ::  j !<
    201        INTEGER(iwp) ::  k !<
     202       INTEGER(iwp) ::  i !< grid index along x-direction
     203       INTEGER(iwp) ::  j !< grid index along y-direction
     204       INTEGER(iwp) ::  k !< grid index along z-direction
    202205
    203206       REAL(wp)     ::  gu  !< local additional advective velocity
Note: See TracChangeset for help on using the changeset viewer.