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

Timestamp:

Feb 2, 2013 11:24:22 AM (12 years ago)

Author:

raasch

Message:

unused variables remove from several routines

File:

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

palm/trunk/SOURCE/diffusion_s.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -97 +97 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  vertical_gridspace
        REAL    ::  wall_s_flux(0:4)
        REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
@@ -211 +210 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  vertical_gridspace
        REAL    ::  wall_s_flux(0:4)
        REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
@@ -332 +330 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  vertical_gridspace
        REAL    ::  wall_s_flux(0:4)
        REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t