Changeset 1918 for palm/trunk/SOURCE/flow_statistics.f90
 Timestamp:
 May 27, 2016 2:35:57 PM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/flow_statistics.f90
r1854 r1918 19 19 ! Current revisions: 20 20 !  21 ! 21 ! in case of WickerSkamarock scheme, calculate disturbance kinetic energy here, 22 ! if flow_statistics is called before the first initial time step 22 23 ! 23 24 ! Former revisions: … … 630 631 ! Computation of statistics when wsscheme is not used. Else these 631 632 ! quantities are evaluated in the advection routines. 632 IF ( .NOT. ws_scheme_mom .OR. sr /= 0 ) THEN 633 IF ( .NOT. ws_scheme_mom .OR. sr /= 0 .OR. simulated_time == 0.0_wp ) & 634 THEN 633 635 !$OMP DO 634 636 DO i = nxl, nxr … … 1623 1625 1624 1626 ! 1625 ! If required, sum up horizontal averages for subsequent time averaging 1626 IF ( do_sum ) THEN 1627 ! If required, sum up horizontal averages for subsequent time averaging. 1628 ! Do not sum, if flow statistics is called before the first initial time step. 1629 IF ( do_sum .AND. simulated_time /= 0.0_wp ) THEN 1627 1630 IF ( average_count_pr == 0 ) hom_sum = 0.0_wp 1628 1631 hom_sum = hom_sum + hom(:,1,:,:) … … 2230 2233 ! Computation of statistics when wsscheme is not used. Else these 2231 2234 ! quantities are evaluated in the advection routines. 2232 IF ( .NOT. ws_scheme_mom .OR. sr /= 0 ) THEN 2235 IF ( .NOT. ws_scheme_mom .OR. sr /= 0 .OR. simulated_time == 0.0_wp ) & 2236 THEN 2233 2237 2234 2238 !$OMP DO … … 3566 3570 ! 3567 3571 ! If required, sum up horizontal averages for subsequent time averaging 3568 IF ( do_sum ) THEN 3572 ! Do not sum, if flow statistics is called before the first initial time step. 3573 IF ( do_sum .AND. simulated_time /= 0.0_wp ) THEN 3569 3574 IF ( average_count_pr == 0 ) hom_sum = 0.0_wp 3570 3575 hom_sum = hom_sum + hom(:,1,:,:)
Note: See TracChangeset
for help on using the changeset viewer.