Ignore:
Timestamp:
Mar 13, 2007 3:52:49 AM (15 years ago)
Author:
raasch
Message:

preliminary changes concerning update of BC-scheme

File:
1 edited

Legend:

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

    r48 r63  
    55! -----------------
    66! Move call of user_actions( 'after_integration' ) below increment of times
    7 ! and counters
     7! and counters,
     8! calls of prognostic_equations_.. changed to .._noopt, .._cache, and
     9! .._vector, these calls are now controlled by switch loop_optimization
    810!
    911! Former revisions:
     
    98100!--       in the other versions a good vectorization is prohibited due to
    99101!--       inlining problems.
    100           IF ( host(1:3) == 'nec' )  THEN
    101              CALL prognostic_equations_vec
     102          IF ( loop_optimization == 'vector' )  THEN
     103             CALL prognostic_equations_vector
    102104          ELSE
    103105             IF ( momentum_advec == 'ups-scheme'  .OR.  &
     
    105107                  scalar_advec == 'bc-scheme' )        &
    106108             THEN
    107                 CALL prognostic_equations
     109                CALL prognostic_equations_noopt
    108110             ELSE
    109                 CALL prognostic_equations_fast
     111                CALL prognostic_equations_cache
    110112             ENDIF
    111113          ENDIF
     
    114116!--       Particle advection (only once during intermediate steps, because
    115117!--       it uses an Euler-step)
    116           IF ( simulated_time >= particle_advection_start  .AND. &
     118          IF ( particle_advection  .AND.                         &
     119               simulated_time >= particle_advection_start  .AND. &
    117120               intermediate_timestep_count == 1 )  THEN
    118121             CALL advec_particles
Note: See TracChangeset for help on using the changeset viewer.