Ignore:
Timestamp:
Mar 26, 2009 3:11:21 PM (12 years ago)
Author:
heinze
Message:

Indentation of the message calls corrected

File:
1 edited

Legend:

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

    r258 r274  
    202202          stop_dt = .TRUE.
    203203
    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)
     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)
    217217          CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )
    218218!
Note: See TracChangeset for help on using the changeset viewer.