Ignore:
Timestamp:
May 9, 2014 2:25:13 PM (7 years ago)
Author:
raasch
Message:

output of location messages complemented, output of location bar added
(Makefile, check_parameters, cpulog, init_pegrid, init_3d_model, message, palm, parin, time_integration, new: progress_bar)
preprocessor switch intel_compiler added, -r8 compiler options removed
(.mrun.config.default, .mrun.config.imuk, .mrun.config.kiaps)

batch_job added to envpar-NAMELIST
(mrun, parin)

File:
1 edited

Legend:

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

    r1385 r1402  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! location messages modified
    2323!
    2424! Former revisions:
     
    205205        ONLY:  production_e_init
    206206
     207    USE progress_bar,                                                          &
     208        ONLY:  finish_progress_bar, output_progress_bar
     209
    207210    USE prognostic_equations_mod,                                              &
    208211        ONLY:  prognostic_equations_acc, prognostic_equations_cache,           &
     
    253256#endif
    254257
    255     CALL location_message( 'beginning with time-stepping' )
     258    CALL location_message( 'start with time-stepping', .TRUE. )
    256259!
    257260!-- Start of the time loop
     
    944947       CALL user_actions( 'after_timestep' )
    945948
     949!
     950!--    Output elapsed simulated time in form of a progress bar on stdout
     951       IF ( myid == 0 )  CALL output_progress_bar
     952
    946953       CALL cpu_log( log_point_s(10), 'timesteps', 'stop' )
    947954
    948955
    949956    ENDDO   ! time loop
     957
     958    IF ( myid == 0 )  CALL finish_progress_bar
    950959
    951960#if defined( __dvrp_graphics )
     
    953962#endif
    954963
    955     CALL location_message( 'finished time-stepping' )
     964    CALL location_message( 'finished time-stepping', .TRUE. )
    956965
    957966 END SUBROUTINE time_integration
Note: See TracChangeset for help on using the changeset viewer.