Changeset 3045 for palm/trunk/SOURCE/check_for_restart.f90

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:

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

palm/trunk/SOURCE/check_for_restart.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error messages revised
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -141 +144 @@
     IF ( terminate_run  .AND.  myid == 0 )  THEN
        WRITE( message_string, * ) 'run will be terminated because it is ',     &
-                       'running out of job cpu limit & ',                      &
+                       'running out of job cpu limit, ',                       &
                        'remaining time:         ', remaining_time, ' s',       &
                        'termination time needed:', termination_time_needed, ' s'
@@ -184 +187 @@
                                   'forced a job finalization using a flag',    &
                                   'file:',                                     &
-                                  '&DO_STOP_NOW: ', do_stop_now,               &
-                                  '&DO_RESTART_NOW: ', do_restart_now 
+                                  ' DO_STOP_NOW: ', do_stop_now,               &
+                                  ' DO_RESTART_NOW: ', do_restart_now 
           CALL message( 'check_for_restart', 'PA0398', 0, 0, 0, 6, 0 )
 
@@ -247 +250 @@
 
           WRITE( message_string, * ) 'run will be terminated due to user ',    &
-                                  'settings of',                               &
-                                  '&restart_time / dt_restart',                &
-                                  '&new restart time is: ', time_restart, ' s' 
+                                  'settings of ',                              &
+                                  'restart_time / dt_restart, ',               &
+                                  'new restart time is: ', time_restart, ' s' 
           CALL message( 'check_for_restart', 'PA0164', 0, 0, 0, 6, 0 )