Changeset 273 for palm/trunk/SOURCE
- Timestamp:
- Mar 26, 2009 2:04:05 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_dvrp.f90
r272 r273 10 10 ! Polygon reduction for building and ground plate isosurface. Reduction level 11 11 ! for buildings can be chosen with parameter cluster_size. 12 ! Steering, splitting, and rtsp routines not used on nec riam.12 ! Steering, splitting, and rtsp routines not used on nec. 13 13 ! ToDo: checking of mode_dvrp for legal values is not correct 14 14 ! Implementation of a MPI-1 coupling: __mpi2 adjustments for MPI_COMM_WORLD … … 220 220 dvrp_file = prefix_chr // TRIM( mode_dvrp(m) ) // '/camera.dvr' 221 221 dvrp_file_c = dvrp_file 222 #ifndef __nec riam222 #ifndef __nec 223 223 CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, & 224 224 dvrp_password_c, dvrp_directory_c, & … … 280 280 // '/topography.dvr' 281 281 dvrp_file_c = dvrp_file 282 #ifndef __nec riam282 #ifndef __nec 283 283 CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, & 284 284 dvrp_password_c, dvrp_directory_c, & … … 405 405 '/groundplate.dvr' 406 406 dvrp_file_c = dvrp_file 407 #ifndef __nec riam407 #ifndef __nec 408 408 CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, & 409 409 dvrp_password_c, dvrp_directory_c, & … … 537 537 name_c = TRIM( do3d(0,vn) ) 538 538 tmp_thr = threshold(tv) 539 #ifndef __nec riam539 #ifndef __nec 540 540 CALL DVRP_STEERING_INIT( m-1, name_c, steering_dvrp(pn)%min, & 541 541 steering_dvrp(pn)%max, tmp_thr ) … … 555 555 steering_dvrp(pn)%imax = nz_do3d 556 556 slicer_position_dvrp(pn) = section(1,1) 557 #ifndef __nec riam557 #ifndef __nec 558 558 CALL DVRP_STEERING_INIT( m-1, name_c, & 559 559 steering_dvrp(pn)%imin, & … … 565 565 steering_dvrp(pn)%imax = ny 566 566 slicer_position_dvrp(pn) = section(1,2) 567 #ifndef __nec riam567 #ifndef __nec 568 568 CALL DVRP_STEERING_INIT( m-1, name_c, & 569 569 steering_dvrp(pn)%imin, & … … 575 575 steering_dvrp(pn)%imax = nx 576 576 slicer_position_dvrp(pn) = section(1,3) 577 #ifndef __nec riam577 #ifndef __nec 578 578 CALL DVRP_STEERING_INIT( m-1, name_c, & 579 579 steering_dvrp(pn)%imin, & … … 591 591 dvrp_file = prefix_chr // TRIM( mode_dvrp(m) ) // '/*****.dvr' 592 592 dvrp_file_c = dvrp_file 593 #ifndef __nec riam593 #ifndef __nec 594 594 CALL DVRP_OUTPUT_RTSP( m-1, dvrp_host_c, dvrp_username_c, & 595 595 dvrp_password_c, dvrp_directory_c, & … … 734 734 !-- Adjustment for new MPI-1 coupling. This might be unnecessary. 735 735 #if defined( __mpi2 ) 736 #ifndef __nec riam736 #ifndef __nec 737 737 CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm ) 738 738 #endif … … 743 743 CALL message( 'init_dvrp_logging', 'PA0199', 1, 2, 0, 6, 0 ) 744 744 745 #ifndef __nec riam745 #ifndef __nec 746 746 CALL DVRP_SPLIT( comm_inter, comm_palm ) 747 747 #endif 748 748 ELSE 749 #ifndef __nec riam749 #ifndef __nec 750 750 CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm ) 751 751 #endif … … 787 787 CALL DVRP_LOG_EVENT( -1, 1 ) ! Logging of total cpu-time used by PALM 788 788 IF ( use_seperate_pe_for_dvrp_output ) THEN 789 #ifndef __nec riam789 #ifndef __nec 790 790 CALL DVRP_SPLIT_EXIT( 1 ) ! Argument 0: reduced output 791 791 #endif
Note: See TracChangeset
for help on using the changeset viewer.