Changeset 4175 for palm/trunk/SOURCE

Timestamp:

Aug 20, 2019 1:19:16 PM (5 years ago)

Author:

gronemeier

Message:

bugfix: removed unused variables

File:

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

palm/trunk/SOURCE/vdi_internal_controls.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! bugfix: removed unused variables
+!
+! 4173 2019-08-20 12:04:06Z weniger
 ! Initial version
 !
@@ -128 +131 @@
 !
 !-- Public functions
-    PUBLIC                        &
+    PUBLIC          &
        vdi_actions
 
@@ -536 +539 @@
 SUBROUTINE vdi_domain_averages
 
-   INTEGER(iwp) ::  i                  !< loop index
-   INTEGER(iwp) ::  j                  !< loop index
-   INTEGER(iwp) ::  k                  !< loop index
    INTEGER(iwp) ::  mono_count_u = 0   !< counter for monotonic decrease or increase of u
    INTEGER(iwp) ::  mono_count_v = 0   !< counter for monotonic decrease or increase of v
@@ -561 +561 @@
    INTEGER(iwp), DIMENSION(4) ::  sig_pt_arr = (/ 0, 0, 0, 0/)  !< indicates an increase(1) or a decrease (0) of pt in the last four time steps
 
-   REAL(wp) ::  u_av_l = 0.0_wp   !< Mean of u (local)
    REAL(wp) ::  u_av = 0.0_wp     !< Mean of u
    REAL(wp) ::  u_av_p = 0.0_wp   !< Mean of u at the previous time step
-   REAL(wp) ::  v_av_l = 0.0_wp   !< Mean of v (local)
    REAL(wp) ::  v_av = 0.0_wp     !< Mean of v
    REAL(wp) ::  v_av_p = 0.0_wp   !< Mean of v at the previous time step
-   REAL(wp) ::  w_av_l = 0.0_wp   !< Mean of w (local)
    REAL(wp) ::  w_av = 0.0_wp     !< Mean of w
    REAL(wp) ::  w_av_p = 0.0_wp   !< Mean of w at the previous time step
-   REAL(wp) ::  q_av_l = 0.0_wp   !< Mean of q (local)
    REAL(wp) ::  q_av = 0.0_wp     !< Mean of q
    REAL(wp) ::  q_av_p = 0.0_wp   !< Mean of q at the previous time step
-   REAL(wp) ::  pt_av_l = 0.0_wp  !< Mean of pt (local)
    REAL(wp) ::  pt_av = 0.0_wp    !< Mean of pt
    REAL(wp) ::  pt_av_p = 0.0_wp  !< Mean of pt at the previous time step