Ignore:
Timestamp:
Mar 5, 2007 6:00:47 AM (15 years ago)
Author:
raasch
Message:

updating parts of Marcus changes

File:
1 edited

Legend:

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

    r4 r46  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Move call of user_actions( 'after_integration' ) below increment of times
     7! and counters
    78!
    89! Former revisions:
     
    243244
    244245!
    245 !--    Execute user-defined actions
    246        CALL user_actions( 'after_integration' )
    247 
    248 !
    249246!--    Increase simulation time and output times
    250247       current_timestep_number = current_timestep_number + 1
     
    279276       time_dopr_listing          = time_dopr_listing        + dt_3d
    280277       time_run_control   = time_run_control + dt_3d
     278
     279!
     280!--    Execute user-defined actions
     281       CALL user_actions( 'after_integration' )
    281282
    282283!
Note: See TracChangeset for help on using the changeset viewer.