Changeset 257 for palm/trunk/SOURCE/poisfft_hybrid.f90
- Timestamp:
- Mar 11, 2009 3:17:42 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft_hybrid.f90
r4 r257 2 2 !------------------------------------------------------------------------------ 3 3 ! 4 ! Actualrevisions:4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Output of messages replaced by message handling routine. 7 ! 7 8 ! 8 9 ! Former revisions: … … 145 146 CALL LOCAL_GETENV( 'OMP_NUM_THREADS', 15, cdummy, idummy ) 146 147 READ ( cdummy, '(I8)' ) n_omp_threads 147 IF ( myid == 0 .AND. n_omp_threads > 1 ) THEN 148 PRINT*, '*** poisfft_hybrid_ini: Number of OpenMP threads = ', & 149 n_omp_threads 148 IF ( n_omp_threads > 1 ) THEN 149 WRITE( message_string, * ) 'Number of OpenMP threads = ', & 150 n_omp_threads 151 CALL message( 'poisfft_hybrid_ini', 'PA0280', 0, 0, 0, 6, 0 ) 150 152 ENDIF 151 153 #else … … 175 177 ENDIF 176 178 177 IF ( myid == 0 .AND. tasks_per_logical_node > -1 ) THEN 178 PRINT*, '*** poisfft_hybrid_ini: running optimized ', & 179 'multinode version' 180 PRINT*, ' switch_per_lpar = ', switch_per_lpar 181 PRINT*, ' tasks_per_lpar = ', tasks_per_node 182 PRINT*, ' tasks_per_logical_node = ', & 183 tasks_per_logical_node 179 IF ( tasks_per_logical_node > -1 ) THEN 180 181 WRITE( message_string, * ) 'running optimized ', & 182 'multinode version', & 183 '&switch_per_lpar = ', & 184 switch_per_lpar, & 185 '&tasks_per_lpar = ', & 186 tasks_per_node, & 187 'tasks_per_logical_node = ', & 188 tasks_per_logical_node 189 CALL message( 'poisfft_hybrid_ini', 'PA0281', 0, 0, 0, 6, 0 ) 190 184 191 ENDIF 185 192 … … 215 222 ! tasks_per_logical_node 216 223 #else 217 PRINT*, '+++ poisfft_hybrid_ini:parallel environment (MPI) required'218 CALL local_stop224 message_string = 'parallel environment (MPI) required' 225 CALL message( 'poisfft_hybrid_ini', 'PA0282', 1, 2, 0, 6, 0 ) 219 226 #endif 220 227 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.