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_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!
     
    123126       IMPLICIT NONE
    124127
    125        INTEGER(iwp) ::  i !<
    126        INTEGER(iwp) ::  j !<
    127        INTEGER(iwp) ::  k !<
    128 
    129        REAL(wp) ::  ukomp !<
    130        REAL(wp) ::  vkomp !<
    131        REAL(wp) ::  wkomp !<
     128       INTEGER(iwp) ::  i !< grid index along x-direction
     129       INTEGER(iwp) ::  j !< grid index along y-direction
     130       INTEGER(iwp) ::  k !< grid index along z-direction
     131
     132       REAL(wp) ::  ukomp !< advection velocity along x-direction
     133       REAL(wp) ::  vkomp !< advection velocity along y-direction
     134       REAL(wp) ::  wkomp !< advection velocity along z-direction
    132135#if defined( __nopointer )
    133        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
     136       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
    134137#else
    135        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
     138       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
    136139#endif
    137140
     
    202205       IMPLICIT NONE
    203206
    204        INTEGER(iwp) ::  i !<
    205        INTEGER(iwp) ::  j !<
    206        INTEGER(iwp) ::  k !<
    207 
    208        REAL(wp) ::  ukomp !<
    209        REAL(wp) ::  vkomp !<
    210        REAL(wp) ::  wkomp !<
     207       INTEGER(iwp) ::  i !< grid index along x-direction
     208       INTEGER(iwp) ::  j !< grid index along y-direction
     209       INTEGER(iwp) ::  k !< grid index along z-direction
     210
     211       REAL(wp) ::  ukomp !< advection velocity along x-direction
     212       REAL(wp) ::  vkomp !< advection velocity along y-direction
     213       REAL(wp) ::  wkomp !< advection velocity along z-direction
    211214       
    212215#if defined( __nopointer )
    213        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !<
     216       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk !< treated scalar
    214217#else
    215        REAL(wp), DIMENSION(:,:,:), POINTER ::  sk
     218       REAL(wp), DIMENSION(:,:,:), POINTER ::  sk !< treated scalar
    216219#endif
    217220
Note: See TracChangeset for help on using the changeset viewer.