Ignore:
Timestamp:
Oct 6, 2018 3:22:48 PM (3 years ago)
Author:
knoop
Message:

Added test mode to palmrun

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/progress_bar_mod.f90

    r3232 r3313  
    8080
    8181    PRIVATE
    82     PUBLIC   batch_job, finish_progress_bar, output_progress_bar
     82    PUBLIC   progress_bar_disabled, finish_progress_bar, output_progress_bar
    8383
    8484    CHARACTER(LEN=60) ::  bar      !< progress bar, initially filled with "_"
     
    8787    INTEGER(iwp) ::  ilength !< length of progress bar filled with "X"
    8888
    89     LOGICAL ::  batch_job = .FALSE.   !< switch to determine the run mode
     89    LOGICAL ::  progress_bar_disabled = .FALSE.   !< envpar-Namelist switch
    9090
    9191    REAL(wp) ::  time_to_be_simulated !< in sec
     
    121121       ENDIF
    122122
    123        IF ( batch_job )  THEN
     123       IF ( progress_bar_disabled )  THEN
    124124
    125125          CALL check_open ( 117 )
     
    183183!
    184184!--    In batch mode, use a file (PROGRESS), otherwise use progress bar
    185        IF ( batch_job )  THEN
     185       IF ( progress_bar_disabled )  THEN
    186186
    187187          BACKSPACE ( 117 )
     
    226226       IMPLICIT NONE
    227227
    228        IF ( batch_job )  THEN
     228       IF ( progress_bar_disabled )  THEN
    229229
    230230          CALL close_file ( 117 )
Note: See TracChangeset for help on using the changeset viewer.