Ignore:
Timestamp:
Mar 11, 2007 11:50:04 AM (15 years ago)
Author:
raasch
Message:

preliminary update of further changes, running

File:
1 edited

Legend:

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

    r13 r60  
    3232! Actual revisions:
    3333! -----------------
     34! Particles-package is now part of the default code.
    3435! TEST: write statements
    3536!
     
    142143!--    Select the plot mode (in case of isosurface or slicer only if user has
    143144!--    defined a variable which shall be plotted; otherwise do nothing)
    144        IF ( mode_dvrp(m)(1:9) == 'particles' )  THEN
    145 
    146 #if defined( __particles )
     145       IF ( mode_dvrp(m)(1:9) == 'particles'  .AND.  particle_advection )  THEN
     146
    147147    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang particles'
    148148#if defined( __ibm )
     
    279279                                     psize, p_c, p_t )
    280280                WRITE (9,*) '--- after DVRP_PARTICLES'
     281                WRITE (9,*) 'm-1 = ',m-1
     282                WRITE (9,*) 'number_of_tails=', number_of_tails
     283                WRITE (9,*) 'p_x =', p_x
     284                WRITE (9,*) 'p_y =', p_y
     285                WRITE (9,*) 'p_z =', p_z
     286                WRITE (9,*) 'psize =', psize
     287                WRITE (9,*) 'p_c =', p_c
     288                WRITE (9,*) 'p_t =', p_t
     289
    281290#if defined( __ibm )
    282291    CALL FLUSH_( 9 )
     
    298307
    299308          CALL cpu_log( log_point_s(28), 'dvrp_particles', 'stop' )
    300 #endif
    301309
    302310
Note: See TracChangeset for help on using the changeset viewer.