Changeset 746 for palm

Timestamp:

Aug 18, 2011 9:14:48 PM (13 years ago)

Author:

letzel

Message:

• 'wiki' inserted into weblink path to error message database (message)
• support for Linux OS with German locale (mrun)
• properly report hosts on general Linux clusters (mrun)

Location:

palm/trunk

Files:

• SCRIPTS/mrun (modified) (4 diffs)
• SOURCE/message.f90 (modified) (2 diffs)

palm/trunk/SCRIPTS/mrun

@@ -226 +226 @@
      # 17/08/11 - Siggi  - extensions for impi library
      # 18/08/11 - Siggi  - bugfix for local append of output files with suffix (.nc)
+     # 18/08/11 - Marcus - support for Linux OS with German locale
+     #                   - properly report hosts on general Linux clusters 
 
 
@@ -1303 +1305 @@
        # PRUEFEN AUF VORHANDENSEIN
     if [[ $(ls $filename* 2>&1 | grep -c "not found") = 1  || \
+          $(ls $filename* 2>&1 | grep -c "nicht gefunden") = 1  || \
           $(ls $filename* 2>&1 | grep -c "No such file") = 1  || \
           $(ls $filename* 2>&1 | grep -c "does not exist") = 1 ]]
@@ -1415 +1418 @@
        eval catalogname=${pathout[$i]}
        if [[ $(ls $filename* 2>&1 | grep -c "not found") = 1  || \
+             $(ls $filename* 2>&1 | grep -c "nicht gefunden") = 1  || \
              $(ls $filename* 2>&1 | grep -c "No such file") = 1  || \
              $(ls $filename* 2>&1 | grep -c "does not exist") = 1 ]]
@@ -3289 +3293 @@
                 then
                    cp  $hostfile  hostfile
+                   (( ii = $numprocs / $threads_per_task ))
                 else
                    (( ii = 1 ))

palm/trunk/SOURCE/message.f90

@@ -5 +5 @@
 ! Current revisions:
 ! -----------------
-! Weblink to error message database changed to new trac server
+! 'wiki' inserted into weblink path to error message database
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 563 2010-09-30 13:08:44Z raasch
+! Weblink to error message database changed to new trac server
 !
 ! 213 2008-11-13 10:26:18Z raasch
@@ -64 +68 @@
     information_string_1 = 'Further information can be found at'
     IF(message_identifier(1:2) == 'NC') THEN
-       information_string_2 = 'http://palm.muk.uni-hannover.de/doc' // &
+       information_string_2 = 'http://palm.muk.uni-hannover.de/wiki/doc' // &
                               '/app/errmsg#NC'
     ELSE
-       information_string_2 = 'http://palm.muk.uni-hannover.de/doc' // &
+       information_string_2 = 'http://palm.muk.uni-hannover.de/wiki/doc' // &
                               '/app/errmsg#' // message_identifier
     END IF