Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r2718 r3045  
    2525! -----------------
    2626! $Id$
     27! Error message revised
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    330333
    331334          WRITE( message_string, * ) 'Time step has reached minimum limit.',   &
    332                '&dt              = ', dt_3d, ' s  Simulation is terminated.',  &
    333                '&old_dt          = ', old_dt, ' s',                            &
    334                '&dt_u            = ', dt_u, ' s',                              &
    335                '&dt_v            = ', dt_v, ' s',                              &
    336                '&dt_w            = ', dt_w, ' s',                              &
    337                '&dt_diff         = ', dt_diff, ' s',                           &
    338                '&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),        &
    339342               '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),                     &
    340                '&v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
     343               ' v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
    341344               '  j=', v_max_ijk(2), '  i=', v_max_ijk(3),                     &
    342                '&w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
     345               ' w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
    343346               '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
    344347          CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.