Ignore:
Timestamp:
Sep 13, 2012 2:08:46 PM (9 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:
1 edited

Legend:

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

    r850 r1001  
    44! Current revisions:
    55! -----------------
    6 !
     6! all actions concerning leapfrog- and upstream-spline-scheme removed
    77!
    88! Former revisions:
     
    174174             CALL prognostic_equations_vector
    175175          ELSE
    176              IF ( momentum_advec == 'ups-scheme'  .OR.  &
    177                   scalar_advec == 'ups-scheme'   .OR.  &
    178                   scalar_advec == 'bc-scheme' )        &
    179              THEN
     176             IF ( scalar_advec == 'bc-scheme' )  THEN
    180177                CALL prognostic_equations_noopt
    181178             ELSE
     
    227224
    228225          CALL cpu_log( log_point(26), 'exchange-horiz-progn', 'stop' )
    229 
    230 !
    231 !--       Apply time filter in case of leap-frog timestep
    232           IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    233              CALL asselin_filter
    234           ENDIF
    235226
    236227!
     
    459450!
    460451!--    Computation and output of run control parameters.
    461 !--    This is also done whenever the time step has changed or perturbations
    462 !--    have been imposed
     452!--    This is also done whenever perturbations have been imposed
    463453       IF ( time_run_control >= dt_run_control  .OR.                     &
    464             ( dt_changed  .AND.  timestep_scheme(1:5) /= 'runge' )  .OR. &
    465             disturbance_created )                                        &
     454            timestep_scheme(1:5) /= 'runge'  .OR.  disturbance_created ) &
    466455       THEN
    467456          CALL run_control
Note: See TracChangeset for help on using the changeset viewer.