Changeset 4175 for palm/trunk/SOURCE
 Timestamp:
 Aug 20, 2019 1:19:16 PM (4 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/vdi_internal_controls.f90
r4173 r4175 20 20 ! Current revisions: 21 21 !  22 ! 23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 !  26 26 ! $Id$ 27 ! bugfix: removed unused variables 28 ! 29 ! 4173 20190820 12:04:06Z weniger 27 30 ! Initial version 28 31 ! … … 128 131 ! 129 132 ! Public functions 130 PUBLIC 133 PUBLIC & 131 134 vdi_actions 132 135 … … 536 539 SUBROUTINE vdi_domain_averages 537 540 538 INTEGER(iwp) :: i !< loop index539 INTEGER(iwp) :: j !< loop index540 INTEGER(iwp) :: k !< loop index541 541 INTEGER(iwp) :: mono_count_u = 0 !< counter for monotonic decrease or increase of u 542 542 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 562 562 563 REAL(wp) :: u_av_l = 0.0_wp !< Mean of u (local)564 563 REAL(wp) :: u_av = 0.0_wp !< Mean of u 565 564 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)567 565 REAL(wp) :: v_av = 0.0_wp !< Mean of v 568 566 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)570 567 REAL(wp) :: w_av = 0.0_wp !< Mean of w 571 568 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)573 569 REAL(wp) :: q_av = 0.0_wp !< Mean of q 574 570 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)576 571 REAL(wp) :: pt_av = 0.0_wp !< Mean of pt 577 572 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.