Changeset 1001 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Sep 13, 2012 2:08:46 PM (12 years ago)

Author:

raasch

Message:

leapfrog timestep scheme and upstream-spline advection scheme completely removed from the code,
reading of dt_fixed from restart file removed

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! all actions concerning leapfrog- and upstream-spline-scheme removed
 !
 ! Former revisions:
@@ -174 +174 @@
              CALL prognostic_equations_vector
           ELSE
-             IF ( momentum_advec == 'ups-scheme'  .OR.  &
-                  scalar_advec == 'ups-scheme'   .OR.  &
-                  scalar_advec == 'bc-scheme' )        &
-             THEN
+             IF ( scalar_advec == 'bc-scheme' )  THEN
                 CALL prognostic_equations_noopt
              ELSE
@@ -227 +224 @@
 
           CALL cpu_log( log_point(26), 'exchange-horiz-progn', 'stop' )
-
-!
-!--       Apply time filter in case of leap-frog timestep
-          IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
-             CALL asselin_filter
-          ENDIF
 
 !
@@ -459 +450 @@
 !
 !--    Computation and output of run control parameters.
-!--    This is also done whenever the time step has changed or perturbations
-!--    have been imposed
+!--    This is also done whenever perturbations have been imposed
        IF ( time_run_control >= dt_run_control  .OR.                     &
-            ( dt_changed  .AND.  timestep_scheme(1:5) /= 'runge' )  .OR. &
-            disturbance_created )                                        &
+            timestep_scheme(1:5) /= 'runge'  .OR.  disturbance_created ) &
        THEN
           CALL run_control