# Changeset 673 for palm/trunk/SOURCE/timestep_scheme_steering.f90

Ignore:
Timestamp:
Jan 18, 2011 4:19:48 PM (14 years ago)
Message:

Right computation of the pressure using Runge-Kutta weighting coefficients. Consideration of the pressure gradient during the time integration removed. Removed bugfix concerning velocity variances.

File:
1 edited

Unmodified
Removed
• ## palm/trunk/SOURCE/timestep_scheme_steering.f90

 r484 ! Current revisions: ! ----------------- ! ! No pressure term during time integration (tsc(4)=0.0). ! ! Former revisions: IF ( timestep_scheme == 'leapfrog+euler'  .OR. & timestep_scheme == 'euler' .OR. simulated_time == 0.0 )  THEN tsc(1:5) = (/ 1.0, 1.0, 0.0, 1.0, 1.0 /) tsc(1:5) = (/ 1.0, 1.0, 0.0, 0.0, 1.0 /) ELSE tsc(1:5) = (/ 0.0, 2.0, 0.0, 1.0, 2.0 /) tsc(1:5) = (/ 0.0, 2.0, 0.0, 0.0, 2.0 /) ENDIF ELSE !--          user. IF ( timestep_scheme == 'euler' )  THEN tsc(1:5) = (/ 1.0, 1.0, 0.0, 1.0, 1.0 /) tsc(1:5) = (/ 1.0, 1.0, 0.0, 0.0, 1.0 /) ELSE tsc(1:5) = (/ 0.0, 2.0, 0.0, 1.0, 2.0 /) tsc(1:5) = (/ 0.0, 2.0, 0.0, 0.0, 2.0 /) ENDIF ENDIF IF ( simulated_time == 0.0 )  THEN dt_changed = .TRUE. tsc(1:5) = (/ 1.0, 1.0, 0.0, 1.0, 1.0 /) tsc(1:5) = (/ 1.0, 1.0, 0.0, 0.0, 1.0 /) ELSE dt_changed = .FALSE. IF ( timestep_scheme == 'euler' )  THEN tsc(1:5) = (/ 1.0, 1.0, 0.0, 1.0, 1.0 /) tsc(1:5) = (/ 1.0, 1.0, 0.0, 0.0, 1.0 /) ELSE tsc(1:5) = (/ 0.0, 2.0, 0.0, 1.0, 2.0 /) tsc(1:5) = (/ 0.0, 2.0, 0.0, 0.0, 2.0 /) ENDIF ENDIF
Note: See TracChangeset for help on using the changeset viewer.