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

Timestamp:

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

Author:

raasch

Message:

unused variables remove from several routines

File:

• palm/trunk/SOURCE/microphysics.f90 (modified) (9 diffs)

palm/trunk/SOURCE/microphysics.f90

@@ -3 +3 @@
 !------------------------------------------------------------------------------!
 ! Current revisions:
-! -----------------
+! ------------------
+! unused variables removed
 !
 ! Former revisions:
@@ -78 +79 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
 
  
@@ -101 +101 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
 
  
@@ -124 +123 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
 
  
@@ -147 +145 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
 
  
@@ -170 +167 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
 
  
@@ -193 +189 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
 
  
@@ -216 +211 @@
 
        INTEGER ::  i, j, k
-       REAL    ::  dqdt_precip
 
  
@@ -596 +590 @@
        IMPLICIT NONE
 
-       INTEGER ::  i, j, k, k_run, n, n_substep
-       REAL    ::  c_run, d_max, d_mean, d_min, dt_sedi, flux, mean, z_run
-
-       REAL, DIMENSION(nzb:nzt) :: c_nr, c_qr, d_nr, d_qr, nr_slope, qr_slope, &
-                                   w_nr, w_qr
+       INTEGER ::  i, j, k, k_run
+       REAL    ::  c_run, d_max, d_mean, d_min, dt_sedi, flux, z_run
+
+       REAL, DIMENSION(nzb:nzt) :: c_nr, c_qr, nr_slope, qr_slope, w_nr, w_qr
+
 !
 !--    Computation of sedimentation flux. Implementation according to Stevens