Ignore:
Timestamp:
Mar 13, 2009 12:36:03 PM (15 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

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

    r226 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    201202          stop_dt = .TRUE.
    202203
    203           IF ( myid == 0 )  THEN
    204              PRINT*,'+++ time_step: Time step has reached minimum limit.'
    205              PRINT*,'    dt      = ', dt_3d, ' s   Simulation is terminated.'
    206              PRINT*,'    old_dt  = ', old_dt, ' s'
    207              PRINT*,'    dt_u    = ', dt_u, ' s'
    208              PRINT*,'    dt_v    = ', dt_v, ' s'
    209              PRINT*,'    dt_w    = ', dt_w, ' s'
    210              PRINT*,'    dt_diff = ', dt_diff, ' s'
    211              PRINT*,'    u_max   = ', u_max, ' m/s   k=', u_max_ijk(1), &
    212                     '  j=', u_max_ijk(2), '  i=', u_max_ijk(3)
    213              PRINT*,'    v_max   = ', v_max, ' m/s   k=', v_max_ijk(1), &
    214                     '  j=', v_max_ijk(2), '  i=', v_max_ijk(3)
    215              PRINT*,'    w_max   = ', w_max, ' m/s   k=', w_max_ijk(1), &
    216                     '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
    217           ENDIF
     204          WRITE( message_string, * ) 'Time step has reached minimum limit.',        &
     205                             '&dt      = ', dt_3d, ' s  Simulation is terminated.', &
     206                             '&old_dt  = ', old_dt, ' s',                           &
     207                             '&dt_u    = ', dt_u, ' s',                             &
     208                             '&dt_v    = ', dt_v, ' s',                             &
     209                             '&dt_w    = ', dt_w, ' s',                             &
     210                             '&dt_diff = ', dt_diff, ' s',                          &
     211                             '&u_max   = ', u_max, ' m/s   k=', u_max_ijk(1),       &
     212                             '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),            &
     213                             '&v_max   = ', v_max, ' m/s   k=', v_max_ijk(1),       &
     214                             '  j=', v_max_ijk(2), '  i=', v_max_ijk(3),            &
     215                             '&w_max   = ', w_max, ' m/s   k=', w_max_ijk(1),       &
     216                             '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
     217          CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )
    218218!
    219219!--       In case of coupled runs inform the remote model of the termination
Note: See TracChangeset for help on using the changeset viewer.