Changeset 82 for palm/trunk/SOURCE/data_output_dvrp.f90
- Timestamp:
- Apr 16, 2007 3:40:52 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_dvrp.f90
r77 r82 32 32 ! Actual revisions: 33 33 ! ----------------- 34 ! Preprocessor strings for different linux clusters changed to "lc", 35 ! routine local_flush is used for buffer flushing 34 36 ! TEST: write statements 35 37 ! … … 84 86 85 87 WRITE ( 9, * ) '*** myid=', myid, ' Anfang data_output_dvrp' 86 #if defined( __ibm ) 87 CALL FLUSH_( 9 ) 88 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 89 CALL FLUSH( 9 ) 90 #endif 88 CALL local_flush( 9 ) 91 89 CALL cpu_log( log_point(27), 'data_output_dvrp', 'start' ) 92 90 … … 104 102 lock_steering_update = .TRUE. 105 103 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: vor steering_update' 106 #if defined( __ibm ) 107 CALL FLUSH_( 9 ) 108 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 109 CALL FLUSH( 9 ) 110 #endif 104 CALL local_flush( 9 ) 111 105 CALL DVRP_STEERING_UPDATE( m-1, data_output_dvrp ) 112 106 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: nach steering_update' 113 #if defined( __ibm ) 114 CALL FLUSH_( 9 ) 115 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 116 CALL FLUSH( 9 ) 117 #endif 107 CALL local_flush( 9 ) 118 108 lock_steering_update = .FALSE. 119 109 ENDIF … … 150 140 151 141 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang particles' 152 #if defined( __ibm ) 153 CALL FLUSH_( 9 ) 154 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 155 CALL FLUSH( 9 ) 156 #endif 142 CALL local_flush( 9 ) 157 143 ! 158 144 !-- DVRP-Calls for plotting particles: … … 183 169 WRITE (9,*) '--- before ALLOCATE simtime=',simulated_time,' #of_tails=', number_of_tails, & 184 170 ' max#of_tp=', maximum_number_of_tailpoints 185 #if defined( __ibm ) 186 CALL FLUSH_( 9 ) 187 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 188 CALL FLUSH( 9 ) 189 #endif 171 CALL local_flush( 9 ) 190 172 ALLOCATE( psize(number_of_tails), p_t(number_of_tails), & 191 173 p_c(number_of_tails*maximum_number_of_tailpoints), & … … 194 176 p_z(number_of_tails*maximum_number_of_tailpoints) ) 195 177 WRITE (9,*) '--- after ALLOCATE' 196 #if defined( __ibm ) 197 CALL FLUSH_( 9 ) 198 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 199 CALL FLUSH( 9 ) 200 #endif 178 CALL local_flush( 9 ) 201 179 psize = 0.0; p_t = 0; p_c = 0.0; p_x = 0.0; p_y = 0.0 202 180 p_z = 0.0; … … 209 187 IF ( simulated_time > 1338.0 ) THEN 210 188 WRITE (9,*) '--- particle ',n,' tail_id=',nn,' #of_tp=',particles(n)%tailpoints 211 #if defined( __ibm ) 212 CALL FLUSH_( 9 ) 213 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 214 CALL FLUSH( 9 ) 215 #endif 189 CALL local_flush( 9 ) 216 190 ENDIF 217 191 DO j = 1, particles(n)%tailpoints … … 227 201 WRITE (9,*) '--- tp= ',i,' x=',p_x(i),' y=',p_y(i), & 228 202 ' z=',p_z(i),' c=',p_c(i) 229 #if defined( __ibm ) 230 CALL FLUSH_( 9 ) 231 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 232 CALL FLUSH( 9 ) 233 #endif 203 CALL local_flush( 9 ) 234 204 ENDIF 235 205 ENDDO … … 238 208 IF ( simulated_time > 1338.0 ) THEN 239 209 WRITE (9,*) '--- t= ',k,' psize=',psize(k),' p_t=',p_t(k) 240 #if defined( __ibm ) 241 CALL FLUSH_( 9 ) 242 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 243 CALL FLUSH( 9 ) 244 #endif 210 CALL local_flush( 9 ) 245 211 ENDIF 246 212 ENDIF 247 213 ENDDO 248 214 WRITE (9,*) '--- after locally storing the particle attributes' 249 #if defined( __ibm ) 250 CALL FLUSH_( 9 ) 251 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 252 CALL FLUSH( 9 ) 253 #endif 215 CALL local_flush( 9 ) 254 216 ENDIF 255 217 … … 275 237 ELSE 276 238 WRITE (9,*) '--- before DVRP_PARTICLES' 277 #if defined( __ibm ) 278 CALL FLUSH_( 9 ) 279 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 280 CALL FLUSH( 9 ) 281 #endif 239 CALL local_flush( 9 ) 282 240 CALL DVRP_PARTICLES( m-1, number_of_tails, p_x, p_y, p_z, 15, & 283 241 psize, p_c, p_t ) … … 292 250 WRITE (9,*) 'p_t =', p_t 293 251 294 #if defined( __ibm ) 295 CALL FLUSH_( 9 ) 296 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 297 CALL FLUSH( 9 ) 298 #endif 252 CALL local_flush( 9 ) 299 253 ENDIF 300 254 ENDIF … … 302 256 CALL DVRP_VISUALIZE( m-1, 3, dvrp_filecount ) 303 257 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende particles' 304 #if defined( __ibm ) 305 CALL FLUSH_( 9 ) 306 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 307 CALL FLUSH( 9 ) 308 #endif 258 CALL local_flush( 9 ) 309 259 310 260 DEALLOCATE( psize, p_c, p_t, p_x, p_y, p_z ) … … 456 406 457 407 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang isosurface' 458 #if defined( __ibm ) 459 CALL FLUSH_( 9 ) 460 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 461 CALL FLUSH( 9 ) 462 #endif 408 CALL local_flush( 9 ) 463 409 ! 464 410 !-- DVRP-Calls for plotting isosurfaces: … … 481 427 CALL DVRP_VISUALIZE( m-1, 1, dvrp_filecount ) 482 428 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende isosurface' 483 #if defined( __ibm ) 484 CALL FLUSH_( 9 ) 485 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 486 CALL FLUSH( 9 ) 487 #endif 429 CALL local_flush( 9 ) 488 430 489 431 CALL cpu_log( log_point_s(26), 'dvrp_isosurface', 'stop' ) … … 492 434 493 435 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang slicer' 494 #if defined( __ibm ) 495 CALL FLUSH_( 9 ) 496 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 497 CALL FLUSH( 9 ) 498 #endif 436 CALL local_flush( 9 ) 499 437 ! 500 438 !-- DVRP-Calls for plotting slicers: … … 526 464 527 465 WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende slicer' 528 #if defined( __ibm ) 529 CALL FLUSH_( 9 ) 530 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 531 CALL FLUSH( 9 ) 532 #endif 466 CALL local_flush( 9 ) 533 467 ENDIF 534 468 … … 545 479 CALL cpu_log( log_point(27), 'data_output_dvrp', 'stop' ) 546 480 WRITE ( 9, * ) '*** myid=', myid, ' Ende data_output_dvrp' 547 #if defined( __ibm ) 548 CALL FLUSH_( 9 ) 549 #elif defined( __lcmuk ) || defined( __lctit ) || defined( __nec ) 550 CALL FLUSH( 9 ) 551 #endif 481 CALL local_flush( 9 ) 552 482 553 483 #endif
Note: See TracChangeset
for help on using the changeset viewer.