Changeset 3313 for palm/trunk/SOURCE/progress_bar_mod.f90

Timestamp:

Oct 6, 2018 3:22:48 PM (6 years ago)

Author:

knoop

Message:

Added test mode to palmrun

File:

• palm/trunk/SOURCE/progress_bar_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/progress_bar_mod.f90

@@ -80 +80 @@
 
     PRIVATE
-    PUBLIC   batch_job, finish_progress_bar, output_progress_bar
+    PUBLIC   progress_bar_disabled, finish_progress_bar, output_progress_bar
 
     CHARACTER(LEN=60) ::  bar      !< progress bar, initially filled with "_"
@@ -87 +87 @@
     INTEGER(iwp) ::  ilength !< length of progress bar filled with "X"
 
-    LOGICAL ::  batch_job = .FALSE.   !< switch to determine the run mode
+    LOGICAL ::  progress_bar_disabled = .FALSE.   !< envpar-Namelist switch
 
     REAL(wp) ::  time_to_be_simulated !< in sec
@@ -121 +121 @@
        ENDIF
 
-       IF ( batch_job )  THEN
+       IF ( progress_bar_disabled )  THEN
 
           CALL check_open ( 117 )
@@ -183 +183 @@
 !
 !--    In batch mode, use a file (PROGRESS), otherwise use progress bar
-       IF ( batch_job )  THEN
+       IF ( progress_bar_disabled )  THEN
 
           BACKSPACE ( 117 )
@@ -226 +226 @@
        IMPLICIT NONE
 
-       IF ( batch_job )  THEN
+       IF ( progress_bar_disabled )  THEN
 
           CALL close_file ( 117 )