Changeset 257 for palm/trunk/SOURCE/poisfft_hybrid.f90

Timestamp:

Mar 11, 2009 3:17:42 PM (14 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine

File:

• palm/trunk/SOURCE/poisfft_hybrid.f90 (modified) (4 diffs)

palm/trunk/SOURCE/poisfft_hybrid.f90

@@ -2 +2 @@
 !------------------------------------------------------------------------------
 ! 
-! Actual revisions: 
+! Current revisions: 
 ! ----------------- 
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions: 
@@ -145 +146 @@
        CALL LOCAL_GETENV( 'OMP_NUM_THREADS', 15, cdummy, idummy )
        READ ( cdummy, '(I8)' )  n_omp_threads
-       IF ( myid == 0  .AND.  n_omp_threads > 1 )  THEN
-          PRINT*, '*** poisfft_hybrid_ini:  Number of OpenMP threads = ', &
-                  n_omp_threads
+       IF ( n_omp_threads > 1 )  THEN
+          WRITE( message_string, * ) 'Number of OpenMP threads = ', &
+                                     n_omp_threads
+          CALL message( 'poisfft_hybrid_ini', 'PA0280', 0, 0, 0, 6, 0 ) 
        ENDIF
 #else
@@ -175 +177 @@
                 ENDIF
 
-                IF ( myid == 0  .AND.  tasks_per_logical_node > -1 )  THEN
-                   PRINT*, '*** poisfft_hybrid_ini:  running optimized ', &
-                           'multinode version'
-                   PRINT*, '    switch_per_lpar        = ', switch_per_lpar
-                   PRINT*, '    tasks_per_lpar         = ', tasks_per_node
-                   PRINT*, '    tasks_per_logical_node = ', &
-                                                         tasks_per_logical_node
+                IF ( tasks_per_logical_node > -1 )  THEN
+
+                   WRITE( message_string, * ) 'running optimized ',         &
+                                              'multinode version',          &
+                                              '&switch_per_lpar        = ', &
+                                              switch_per_lpar,              &
+                                              '&tasks_per_lpar         = ', &
+                                              tasks_per_node,               &
+                                              'tasks_per_logical_node = ',  &
+                                              tasks_per_logical_node
+                   CALL message( 'poisfft_hybrid_ini', 'PA0281', 0, 0, 0, 6, 0 ) 
+
                 ENDIF
 
@@ -215 +222 @@
 !                     tasks_per_logical_node
 #else
-          PRINT*, '+++ poisfft_hybrid_ini: parallel environment (MPI) required'
-          CALL local_stop
+          message_string = 'parallel environment (MPI) required'
+          CALL message( 'poisfft_hybrid_ini', 'PA0282', 1, 2, 0, 6, 0 )
 #endif
        ENDIF