Changeset 2726 for palm


Ignore:
Timestamp:
Jan 8, 2018 5:40:52 PM (7 years ago)
Author:
kanani
Message:

Exclude spinup time from progress bar

File:
1 edited

Legend:

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

    r2718 r2726  
    2525! -----------------
    2626! $Id$
     27! Exclude spinup time from progress bar
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    5962    USE control_parameters,                                                    &
    6063        ONLY : end_time, run_identifier, simulated_time,                       &
    61                simulated_time_at_begin, time_restart
     64               simulated_time_at_begin, spinup_time, time_restart
    6265
    6366    USE, INTRINSIC ::  ISO_FORTRAN_ENV,                                        &
     
    104107          time_to_be_simulated = time_restart - simulated_time_at_begin
    105108       ELSE
    106           time_to_be_simulated = end_time     - simulated_time_at_begin
     109          time_to_be_simulated = end_time     - simulated_time_at_begin        &
     110                                              - spinup_time
    107111       ENDIF
    108112
     
    154158
    155159       remaining_time_in_percent =                                             &
    156           ( simulated_time - simulated_time_at_begin ) / time_to_be_simulated
    157 
    158        remaining_time_in_percent_total = ( simulated_time / end_time )
     160          ( simulated_time - simulated_time_at_begin - spinup_time )           &
     161          / time_to_be_simulated
     162
     163       remaining_time_in_percent_total = ( ( simulated_time - spinup_time )    &
     164                                         / ( end_time       - spinup_time ) )
    159165
    160166!
Note: See TracChangeset for help on using the changeset viewer.