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/diffusion_s.f90

    r2759 r3547  
    2525! -----------------
    2626! $Id$
     27! variables documented
     28!
     29! 2759 2018-01-17 16:24:59Z suehring
    2730! Major bugfix, horizontal diffusion at vertical surfaces corrected.
    2831!
     
    186189       REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
    187190#if defined( __nopointer )
    188        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !<
     191       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !< treated scalar
    189192#else
    190        REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !<
     193       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
    191194#endif
    192195
     
    497500       REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
    498501#if defined( __nopointer )
    499        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s !<
     502       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s !< treated scalar
    500503#else
    501        REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !<
     504       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
    502505#endif
    503506
Note: See TracChangeset for help on using the changeset viewer.