Ignore:
Timestamp:
Feb 14, 2007 12:15:07 PM (15 years ago)
Author:
raasch
Message:

flush calls adjusted

File:
1 edited

Legend:

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

    r4 r13  
    7979
    8080    WRITE ( 9, * ) '*** myid=', myid, ' Anfang data_output_dvrp'
    81     CALL FLUSH_( 9 )
     81#if defined( __ibm )
     82    CALL FLUSH_( 9 )
     83#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     84    CALL FLUSH( 9 )
     85#endif
    8286    CALL cpu_log( log_point(27), 'data_output_dvrp', 'start' )
    8387
     
    9599          lock_steering_update = .TRUE.
    96100    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: vor steering_update'
    97     CALL FLUSH_( 9 )
     101#if defined( __ibm )
     102    CALL FLUSH_( 9 )
     103#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     104    CALL FLUSH( 9 )
     105#endif
    98106          CALL DVRP_STEERING_UPDATE( m-1, data_output_dvrp )
    99107    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: nach steering_update'
    100     CALL FLUSH_( 9 )
     108#if defined( __ibm )
     109    CALL FLUSH_( 9 )
     110#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     111    CALL FLUSH( 9 )
     112#endif
    101113          lock_steering_update = .FALSE.
    102114       ENDIF
     
    134146#if defined( __particles )
    135147    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang particles'
    136     CALL FLUSH_( 9 )
     148#if defined( __ibm )
     149    CALL FLUSH_( 9 )
     150#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     151    CALL FLUSH( 9 )
     152#endif
    137153!
    138154!--       DVRP-Calls for plotting particles:
     
    163179             WRITE (9,*) '--- before ALLOCATE  simtime=',simulated_time,' #of_tails=', number_of_tails, &
    164180                           ' max#of_tp=', maximum_number_of_tailpoints
    165              CALL FLUSH_( 9 )
     181#if defined( __ibm )
     182    CALL FLUSH_( 9 )
     183#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     184    CALL FLUSH( 9 )
     185#endif
    166186             ALLOCATE( psize(number_of_tails), p_t(number_of_tails),      &
    167187                       p_c(number_of_tails*maximum_number_of_tailpoints), &
     
    170190                       p_z(number_of_tails*maximum_number_of_tailpoints) )
    171191             WRITE (9,*) '--- after ALLOCATE'
    172              CALL FLUSH_( 9 )
     192#if defined( __ibm )
     193    CALL FLUSH_( 9 )
     194#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     195    CALL FLUSH( 9 )
     196#endif
    173197             psize = 0.0;  p_t = 0;  p_c = 0.0;  p_x = 0.0;  p_y = 0.0
    174198             p_z   = 0.0;
     
    181205                   IF ( simulated_time > 1338.0 )  THEN
    182206                      WRITE (9,*) '--- particle ',n,' tail_id=',nn,' #of_tp=',particles(n)%tailpoints
    183                       CALL FLUSH_( 9 )
     207#if defined( __ibm )
     208    CALL FLUSH_( 9 )
     209#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     210    CALL FLUSH( 9 )
     211#endif
    184212                   ENDIF
    185213                   DO  j = 1, particles(n)%tailpoints
     
    195223                         WRITE (9,*) '--- tp= ',i,' x=',p_x(i),' y=',p_y(i), &
    196224                                                 ' z=',p_z(i),' c=',p_c(i)
    197                          CALL FLUSH_( 9 )
     225#if defined( __ibm )
     226    CALL FLUSH_( 9 )
     227#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     228    CALL FLUSH( 9 )
     229#endif
    198230                      ENDIF
    199231                   ENDDO
     
    202234                   IF ( simulated_time > 1338.0 )  THEN
    203235                      WRITE (9,*) '--- t= ',k,' psize=',psize(k),' p_t=',p_t(k)
    204                       CALL FLUSH_( 9 )
     236#if defined( __ibm )
     237    CALL FLUSH_( 9 )
     238#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     239    CALL FLUSH( 9 )
     240#endif
    205241                   ENDIF
    206242                ENDIF               
    207243             ENDDO
    208244             WRITE (9,*) '--- after locally storing the particle attributes'
    209              CALL FLUSH_( 9 )
     245#if defined( __ibm )
     246    CALL FLUSH_( 9 )
     247#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     248    CALL FLUSH( 9 )
     249#endif
    210250          ENDIF
    211251
     
    231271             ELSE
    232272                WRITE (9,*) '--- before DVRP_PARTICLES'
    233                 CALL FLUSH_( 9 )
     273#if defined( __ibm )
     274    CALL FLUSH_( 9 )
     275#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     276    CALL FLUSH( 9 )
     277#endif
    234278                CALL DVRP_PARTICLES( m-1, number_of_tails, p_x, p_y, p_z, 15, &
    235279                                     psize, p_c, p_t )
    236280                WRITE (9,*) '--- after DVRP_PARTICLES'
    237                 CALL FLUSH_( 9 )
     281#if defined( __ibm )
     282    CALL FLUSH_( 9 )
     283#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     284    CALL FLUSH( 9 )
     285#endif
    238286             ENDIF
    239287          ENDIF
     
    241289          CALL DVRP_VISUALIZE( m-1, 3, dvrp_filecount )
    242290    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende particles'
    243     CALL FLUSH_( 9 )
     291#if defined( __ibm )
     292    CALL FLUSH_( 9 )
     293#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     294    CALL FLUSH( 9 )
     295#endif
    244296
    245297          DEALLOCATE( psize, p_c, p_t, p_x, p_y, p_z )
     
    392444
    393445    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang isosurface'
    394     CALL FLUSH_( 9 )
     446#if defined( __ibm )
     447    CALL FLUSH_( 9 )
     448#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     449    CALL FLUSH( 9 )
     450#endif
    395451!
    396452!--          DVRP-Calls for plotting isosurfaces:
     
    413469             CALL DVRP_VISUALIZE( m-1, 1, dvrp_filecount )
    414470    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende isosurface'
    415     CALL FLUSH_( 9 )
     471#if defined( __ibm )
     472    CALL FLUSH_( 9 )
     473#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     474    CALL FLUSH( 9 )
     475#endif
    416476
    417477             CALL cpu_log( log_point_s(26), 'dvrp_isosurface', 'stop' )
     
    420480
    421481    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang slicer'
    422     CALL FLUSH_( 9 )
     482#if defined( __ibm )
     483    CALL FLUSH_( 9 )
     484#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     485    CALL FLUSH( 9 )
     486#endif
    423487!
    424488!--          DVRP-Calls for plotting slicers:
     
    450514
    451515    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende slicer'
    452     CALL FLUSH_( 9 )
     516#if defined( __ibm )
     517    CALL FLUSH_( 9 )
     518#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     519    CALL FLUSH( 9 )
     520#endif
    453521          ENDIF
    454522
     
    465533    CALL cpu_log( log_point(27), 'data_output_dvrp', 'stop' )
    466534    WRITE ( 9, * ) '*** myid=', myid, ' Ende data_output_dvrp'
    467     CALL FLUSH_( 9 )
     535#if defined( __ibm )
     536    CALL FLUSH_( 9 )
     537#elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
     538    CALL FLUSH( 9 )
     539#endif
    468540
    469541#endif
Note: See TracChangeset for help on using the changeset viewer.