Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    333333
    334334          WRITE( message_string, * ) 'Time step has reached minimum limit.',   &
    335                ' dt              = ', dt_3d, ' s  Simulation is terminated.',  &
    336                ' old_dt          = ', old_dt, ' s',                            &
    337                ' dt_u            = ', dt_u, ' s',                              &
    338                ' dt_v            = ', dt_v, ' s',                              &
    339                ' dt_w            = ', dt_w, ' s',                              &
    340                ' dt_diff         = ', dt_diff, ' s',                           &
    341                ' u_max           = ', u_max, ' m/s   k=', u_max_ijk(1),        &
     335               '&dt              = ', dt_3d, ' s  Simulation is terminated.',  &
     336               '&old_dt          = ', old_dt, ' s',                            &
     337               '&dt_u            = ', dt_u, ' s',                              &
     338               '&dt_v            = ', dt_v, ' s',                              &
     339               '&dt_w            = ', dt_w, ' s',                              &
     340               '&dt_diff         = ', dt_diff, ' s',                           &
     341               '&u_max           = ', u_max, ' m/s   k=', u_max_ijk(1),        &
    342342               '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),                     &
    343                ' v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
     343               '&v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
    344344               '  j=', v_max_ijk(2), '  i=', v_max_ijk(3),                     &
    345                ' w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
     345               '&w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
    346346               '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
    347347          CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.