Changeset 4175 for palm


Ignore:
Timestamp:
Aug 20, 2019 1:19:16 PM (5 years ago)
Author:
gronemeier
Message:

bugfix: removed unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/vdi_internal_controls.f90

    r4173 r4175  
    2020! Current revisions:
    2121! -----------------
    22 !
    23 !
     22! 
     23! 
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! bugfix: removed unused variables
     28!
     29! 4173 2019-08-20 12:04:06Z weniger
    2730! Initial version
    2831!
     
    128131!
    129132!-- Public functions
    130     PUBLIC                        &
     133    PUBLIC          &
    131134       vdi_actions
    132135
     
    536539SUBROUTINE vdi_domain_averages
    537540
    538    INTEGER(iwp) ::  i                  !< loop index
    539    INTEGER(iwp) ::  j                  !< loop index
    540    INTEGER(iwp) ::  k                  !< loop index
    541541   INTEGER(iwp) ::  mono_count_u = 0   !< counter for monotonic decrease or increase of u
    542542   INTEGER(iwp) ::  mono_count_v = 0   !< counter for monotonic decrease or increase of v
     
    561561   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
    562562
    563    REAL(wp) ::  u_av_l = 0.0_wp   !< Mean of u (local)
    564563   REAL(wp) ::  u_av = 0.0_wp     !< Mean of u
    565564   REAL(wp) ::  u_av_p = 0.0_wp   !< Mean of u at the previous time step
    566    REAL(wp) ::  v_av_l = 0.0_wp   !< Mean of v (local)
    567565   REAL(wp) ::  v_av = 0.0_wp     !< Mean of v
    568566   REAL(wp) ::  v_av_p = 0.0_wp   !< Mean of v at the previous time step
    569    REAL(wp) ::  w_av_l = 0.0_wp   !< Mean of w (local)
    570567   REAL(wp) ::  w_av = 0.0_wp     !< Mean of w
    571568   REAL(wp) ::  w_av_p = 0.0_wp   !< Mean of w at the previous time step
    572    REAL(wp) ::  q_av_l = 0.0_wp   !< Mean of q (local)
    573569   REAL(wp) ::  q_av = 0.0_wp     !< Mean of q
    574570   REAL(wp) ::  q_av_p = 0.0_wp   !< Mean of q at the previous time step
    575    REAL(wp) ::  pt_av_l = 0.0_wp  !< Mean of pt (local)
    576571   REAL(wp) ::  pt_av = 0.0_wp    !< Mean of pt
    577572   REAL(wp) ::  pt_av_p = 0.0_wp  !< Mean of pt at the previous time step
Note: See TracChangeset for help on using the changeset viewer.