Changeset 3547 for palm/trunk/SOURCE/diffusion_s.f90

Timestamp:

Nov 21, 2018 1:21:24 PM (5 years ago)

Author:

suehring

Message:

variable description added some routines

File:

• palm/trunk/SOURCE/diffusion_s.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diffusion_s.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! variables documented
+! 
+! 2759 2018-01-17 16:24:59Z suehring
 ! Major bugfix, horizontal diffusion at vertical surfaces corrected.
 ! 
@@ -186 +189 @@
        REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
 #if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !< 
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s  !< treated scalar
 #else
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< 
+       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
 #endif
 
@@ -497 +500 @@
        REAL(wp), DIMENSION(1:surf_def_h(2)%ns) ::  s_flux_t           !< flux at model top
 #if defined( __nopointer )
-       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s !< 
+       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s !< treated scalar
 #else
-       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< 
+       REAL(wp), DIMENSION(:,:,:), POINTER ::  s  !< treated scalar
 #endif