[cig-commits] [commit] master: Some more information in comm_elem_number (8366d35)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/axisem

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/201b2a8c3949bb5acd44c5b1f0eeaba0012815d3...d9174f4e9c01eb069c0079f9a67d155de1997361

>---------------------------------------------------------------

commit 8366d350a6f2d99c36a9fce24d2a70f7cb583304
Author: Simon Stähler <staehler at geophysik.uni-muenchen.de>
Date:   Wed Nov 12 13:31:24 2014 +0100

    Some more information in comm_elem_number
    
     - Output is ordered by processor number (has barrier anyway)
     - Variable name may be written out, if defined


>---------------------------------------------------------------

8366d350a6f2d99c36a9fce24d2a70f7cb583304
 SOLVER/commun.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SOLVER/commun.F90 b/SOLVER/commun.F90
index ea93ea3..3e42f11 100644
--- a/SOLVER/commun.F90
+++ b/SOLVER/commun.F90
@@ -403,7 +403,7 @@ subroutine pinit
 
   call define_io_appendix(appmynum, mynum)
  
-  procstrg = 'Pr '//appmynum(1:4)//' '
+  procstrg = 'Proc '//appmynum(3:4)//' '
 
   if (lpr) write(6,'(a,i5)') '    Initialized run for nproc =', nproc