Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (17 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/init_dvrp.f90

    r39 r82  
    33!------------------------------------------------------------------------------!
    44! Actual revisions:
    5 ! -----------------
     5! -----------------
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! routine local_flush is used for buffer flushing
    68! Test output of isosurface on camera file
    79! TEST: print* statements
    … …  
    145147
    146148    WRITE ( 9, * ) '***  vor dvrp_output_rtsp'
    147 #if defined( __ibm )
    148     CALL FLUSH_( 9 )
    149 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    150     CALL FLUSH( 9 )
    151 #endif
     149    CALL local_flush( 9 )
    152150
    153151             dvrp_file   = TRIM( mode_dvrp(m) ) // '/camera.dvr'
    … …  
    157155                                    dvrp_file_c )
    158156    WRITE ( 9, * ) '***  nach dvrp_output_rtsp'
    159 #if defined( __ibm )
    160     CALL FLUSH_( 9 )
    161 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    162     CALL FLUSH( 9 )
    163 #endif
     157    CALL local_flush( 9 )
    164158
    165159          ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    185179          CALL DVRP_CAMERA( m-1, center, distance )
    186180    WRITE ( 9, * ) '***  #1'
    187 #if defined( __ibm )
    188     CALL FLUSH_( 9 )
    189 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    190     CALL FLUSH( 9 )
    191 #endif
     181    CALL local_flush( 9 )
    192182
    193183!
    … …  
    202192          CALL DVRP_EXIT( m-1 )
    203193    WRITE ( 9, * ) '***  #2'
    204 #if defined( __ibm )
    205     CALL FLUSH_( 9 )
    206 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    207     CALL FLUSH( 9 )
    208 #endif
     194    CALL local_flush( 9 )
    209195
    210196
    … …  
    223209                                    dvrp_file_c )
    224210    WRITE ( 9, * ) '***  #3'
    225 #if defined( __ibm )
    226     CALL FLUSH_( 9 )
    227 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    228     CALL FLUSH( 9 )
    229 #endif
     211    CALL local_flush( 9 )
    230212
    231213          ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    274256          CALL DVRP_MATERIAL_RGB( m-1, 1, 0.8, 0.7, 0.6, 0.0 )
    275257    WRITE ( 9, * ) '***  #4'
    276 #if defined( __ibm )
    277     CALL FLUSH_( 9 )
    278 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    279     CALL FLUSH( 9 )
    280 #endif
     258    CALL local_flush( 9 )
    281259
    282260!
    … …  
    292270          ENDDO
    293271    WRITE ( 9, * ) '***  #4.1'
    294 #if defined( __ibm )
    295     CALL FLUSH_( 9 )
    296 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    297     CALL FLUSH( 9 )
    298 #endif
     272    CALL local_flush( 9 )
    299273          CALL DVRP_DATA( m-1, local_pf, 1, nx_dvrp, ny_dvrp, nz_dvrp, &
    300274                          cyclic_dvrp, cyclic_dvrp, cyclic_dvrp )
    301275    WRITE ( 9, * ) '***  #4.2'
    302 #if defined( __ibm )
    303     CALL FLUSH_( 9 )
    304 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    305     CALL FLUSH( 9 )
    306 #endif
     276    CALL local_flush( 9 )
    307277          CALL DVRP_THRESHOLD( m-1, 1.0 )
    308278    WRITE ( 9, * ) '***  #4.3'
    309 #if defined( __ibm )
    310     CALL FLUSH_( 9 )
    311 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    312     CALL FLUSH( 9 )
    313 #endif
     279    CALL local_flush( 9 )
    314280          CALL DVRP_VISUALIZE( m-1, 1, 0 )
    315281    WRITE ( 9, * ) '***  #4.4'
    316 #if defined( __ibm )
    317     CALL FLUSH_( 9 )
    318 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    319     CALL FLUSH( 9 )
    320 #endif
     282    CALL local_flush( 9 )
    321283
    322284          DEALLOCATE( local_pf )
    … …  
    324286          CALL DVRP_EXIT( m-1 )
    325287    WRITE ( 9, * ) '***  #5'
    326 #if defined( __ibm )
    327     CALL FLUSH_( 9 )
    328 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    329     CALL FLUSH( 9 )
    330 #endif
     288    CALL local_flush( 9 )
    331289
    332290!
    … …  
    344302                                    dvrp_file_c )
    345303    WRITE ( 9, * ) '***  #6'
    346 #if defined( __ibm )
    347     CALL FLUSH_( 9 )
    348 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    349     CALL FLUSH( 9 )
    350 #endif
     304    CALL local_flush( 9 )
    351305
    352306          ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    395349          CALL DVRP_MATERIAL_RGB( m-1, 1, 0.0, 0.6, 0.0, 0.0 )
    396350    WRITE ( 9, * ) '***  #7'
    397 #if defined( __ibm )
    398     CALL FLUSH_( 9 )
    399 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    400     CALL FLUSH( 9 )
    401 #endif
     351    CALL local_flush( 9 )
    402352
    403353!
    … …  
    416366          CALL DVRP_EXIT( m-1 )
    417367    WRITE ( 9, * ) '***  #8'
    418 #if defined( __ibm )
    419     CALL FLUSH_( 9 )
    420 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    421     CALL FLUSH( 9 )
    422 #endif
     368    CALL local_flush( 9 )
    423369
    424370   
    … …  
    461407                name_c = TRIM( do3d(0,vn) )
    462408    WRITE ( 9, * ) '***  #9'
    463 #if defined( __ibm )
    464     CALL FLUSH_( 9 )
    465 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    466     CALL FLUSH( 9 )
    467 #endif
     409    CALL local_flush( 9 )
    468410                CALL DVRP_STEERING_INIT( m-1, name_c, steering_dvrp(pn)%min, &
    469411                                         steering_dvrp(pn)%max, threshold(tv) )
    470412    WRITE ( 9, * ) '***  #10'
    471 #if defined( __ibm )
    472     CALL FLUSH_( 9 )
    473 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    474     CALL FLUSH( 9 )
    475 #endif
     413    CALL local_flush( 9 )
    476414
    477415             ELSEIF ( mode_dvrp(pn)(1:6) == 'slicer' )  THEN
    … …  
    517455
    518456    WRITE ( 9, * ) '***  #11'
    519 #if defined( __ibm )
    520     CALL FLUSH_( 9 )
    521 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    522     CALL FLUSH( 9 )
    523 #endif
     457    CALL local_flush( 9 )
    524458
    525459          dvrp_file = TRIM( mode_dvrp(m) ) // '/*****.dvr'
    … …  
    529463                                 dvrp_file_c )
    530464    WRITE ( 9, * ) '***  #12'
    531 #if defined( __ibm )
    532     CALL FLUSH_( 9 )
    533 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    534     CALL FLUSH( 9 )
    535 #endif
     465    CALL local_flush( 9 )
    536466
    537467       ELSEIF ( dvrp_output == 'ftp' )  THEN
    … …  
    585515!--    Define the grid used by dvrp
    586516    WRITE ( 9, * ) '***  #13'
    587 #if defined( __ibm )
    588     CALL FLUSH_( 9 )
    589 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    590     CALL FLUSH( 9 )
    591 #endif
     517    CALL local_flush( 9 )
    592518
    593519       CALL DVRP_GRID( m-1, nx_dvrp, ny_dvrp, nz_dvrp, xcoor_dvrp, ycoor_dvrp, &
    594520                       zcoor_dvrp )
    595521    WRITE ( 9, * ) '***  #14'
    596 #if defined( __ibm )
    597     CALL FLUSH_( 9 )
    598 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    599     CALL FLUSH( 9 )
    600 #endif
     522    CALL local_flush( 9 )
    601523
    602524
    … …  
    631553!-- Initialize logging of calls by DVRP graphic software
    632554    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_INIT'
    633 #if defined( __ibm )
    634     CALL FLUSH_( 9 )
    635 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    636     CALL FLUSH( 9 )
    637 #endif
     555    CALL local_flush( 9 )
    638556    CALL DVRP_LOG_INIT( 'DVRP_LOG' // CHAR( 0 ), 0 )
    639557    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_INIT'
    640 #if defined( __ibm )
    641     CALL FLUSH_( 9 )
    642 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    643     CALL FLUSH( 9 )
    644 #endif
     558    CALL local_flush( 9 )
    645559
    646560!
    647561!-- User-defined logging events: #1 (total time needed by PALM)
    648562    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_SYMBOL'
    649 #if defined( __ibm )
    650     CALL FLUSH_( 9 )
    651 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    652     CALL FLUSH( 9 )
    653 #endif
     563    CALL local_flush( 9 )
    654564    CALL DVRP_LOG_SYMBOL( 1, 'PALM_total' // CHAR( 0 ) )
    655565    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_SYMBOL'
    656 #if defined( __ibm )
    657     CALL FLUSH_( 9 )
    658 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    659     CALL FLUSH( 9 )
    660 #endif
     566    CALL local_flush( 9 )
    661567    CALL DVRP_LOG_SYMBOL( 2, 'PALM_timestep' // CHAR( 0 ) )
    662568    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_EVENT'
    663 #if defined( __ibm )
    664     CALL FLUSH_( 9 )
    665 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    666     CALL FLUSH( 9 )
    667 #endif
     569    CALL local_flush( 9 )
    668570    CALL DVRP_LOG_EVENT( 1, 1 )
    669571    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_EVENT'
    670 #if defined( __ibm )
    671     CALL FLUSH_( 9 )
    672 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    673     CALL FLUSH( 9 )
    674 #endif
     572    CALL local_flush( 9 )
    675573
    676574#if defined( __parallel )
    … …  
    681579       use_seperate_pe_for_dvrp_output = .TRUE.
    682580    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_SPLIT'
    683 #if defined( __ibm )
    684     CALL FLUSH_( 9 )
    685 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    686     CALL FLUSH( 9 )
    687 #endif
     581    CALL local_flush( 9 )
    688582       CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
    689583    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_SPLIT'
    690 #if defined( __ibm )
    691     CALL FLUSH_( 9 )
    692 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    693     CALL FLUSH( 9 )
    694 #endif
     584    CALL local_flush( 9 )
    695585       CALL MPI_COMM_SIZE( comm_palm, numprocs, ierr )
    696586    ENDIF
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |