Changeset 38d77eb for main_bgl_p.f

Timestamp:

11/19/09 11:29:48 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

7137e5d

Parents:

32289cd

Message:

Redirected standard out to logString.

SMMP produced a lot of log messages. This became an issue when run in massively
parallel environments. I replaced all writes to standard out to a write to logString.
The next step is to pass this string to a function that writes the messages to a log
file according to their importance and the chosen log level.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@34 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• main_bgl_p.f (modified) (11 diffs)

main_bgl_p.f

@@ -57 +57 @@
       call mpi_init(ierr)
 !       call pmi_cart_comm_create(comm_cart,ierr)
-      write(*,*) "Initialized MPI. Now setting up communicators." 
+      write (logString, *) "Initialized MPI. Now setting up communicators." 
       call flush(6)
       ndims = 4
@@ -81 +81 @@
       call MPI_Cart_GET(comm_cart, ndims, dims, periods, coords, ierr)
 
-      write(*,*) ndims, dims, periods, coords
+      write (logString, *) ndims, dims, periods, coords
       call flush(6)
 !       call VTSetup()
@@ -192 +192 @@
      &      + (coords(3)/ldims(3))*nblock(1)*nblock(2)
 
-      write(*,*) myrank, color, ldims, nblock
+      write (logString, *) myrank, color, ldims, nblock
 
       call mpi_comm_split(comm_cart,color,myrank,local_comm,ierr)
@@ -216 +216 @@
 !          call mpi_group_range_incl(group_world, 1, proc_range, group(i)
 !      &                              ,error)
-!          write (*,*) "Assigning rank ", j, proc_range, 
+!          write (logString, *) "Assigning rank ", j, proc_range, 
 !      &               "to group", group(i)
 !          call flush(6)
@@ -227 +227 @@
 !              my_mpi_comm = comm(i)
 !              rep_id = i - 1
-!              write (*,*) rep_id, "has comm", my_mpi_comm
+!              write (logString, *) rep_id, "has comm", my_mpi_comm
 !              call flush(6)
 !          endif
@@ -233 +233 @@
 ! 
 ! c     Setup the communicator used for parallel tempering
-!       write (*,*) "PTGroup=", ranks(:num_replica)
+!       write (logString, *) "PTGroup=", ranks(:num_replica)
 !       call flush(6)
 !       call mpi_group_incl(group_world, num_replica, ranks, group_partem,
@@ -241 +241 @@
 ! 
 !       if (partem_comm.ne.MPI_COMM_NULL) then
-!          write (*,*) partem_comm,myrank, "is master for ", rep_id, "."
+!          write (logString, *) partem_comm,myrank, "is master for ", rep_id, "."
 !       endif
 
@@ -247 +247 @@
       call mpi_comm_size(my_mpi_comm,no,ierr)
       rep_id = color
-      write (*,*) "My new rank is ", myrank, "of", no
+      write (logString, *) "My new rank is ", myrank, "of", no
       call flush(6)
       if (myrank.eq.0) then 
          color = 1
-         write (*,*) 'My rank and color:', myrank, color
+         write (logString, *) 'My rank and color:', myrank, color
          call flush(6)
       else 
@@ -258 +258 @@
       call mpi_comm_split(comm_cart,color,0,partem_comm,ierr)
 
-!       write(*,*) "Finalizing MPI."
+!       write (logString, *) "Finalizing MPI."
 !       call flush(6)
 !       CALL mpi_finalize(ierr)
@@ -295 +295 @@
 
 !     ========================================  start of parallel tempering run
-      write (*,*) "There are ", no,
+      write (logString, *) "There are ", no,
      &            " processors available for ",rep_id
       call flush(6)
@@ -309 +309 @@
 
       if(my_pt_rank.eq.0) then
-         write(*,*) "time for simulation using ", num_proc,
+         write (logString, *) "time for simulation using ", num_proc,
      &        " processors =",  endwtime - startwtime, " seconds"
          call flush(6)