Changeset 3046 for palm/trunk/SOURCE/timestep.f90

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

• palm/trunk/SOURCE/timestep.f90 (modified) (2 diffs)

palm/trunk/SOURCE/timestep.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -333 +333 @@
 
           WRITE( message_string, * ) 'Time step has reached minimum limit.',   &
-               ' dt              = ', dt_3d, ' s  Simulation is terminated.',  &
-               ' old_dt          = ', old_dt, ' s',                            &
-               ' dt_u            = ', dt_u, ' s',                              &
-               ' dt_v            = ', dt_v, ' s',                              &
-               ' dt_w            = ', dt_w, ' s',                              &
-               ' dt_diff         = ', dt_diff, ' s',                           &
-               ' u_max           = ', u_max, ' m/s   k=', u_max_ijk(1),        &
+               '&dt              = ', dt_3d, ' s  Simulation is terminated.',  &
+               '&old_dt          = ', old_dt, ' s',                            &
+               '&dt_u            = ', dt_u, ' s',                              &
+               '&dt_v            = ', dt_v, ' s',                              &
+               '&dt_w            = ', dt_w, ' s',                              &
+               '&dt_diff         = ', dt_diff, ' s',                           &
+               '&u_max           = ', u_max, ' m/s   k=', u_max_ijk(1),        &
                '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),                     &
-               ' v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
+               '&v_max           = ', v_max, ' m/s   k=', v_max_ijk(1),        &
                '  j=', v_max_ijk(2), '  i=', v_max_ijk(3),                     &
-               ' w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
+               '&w_max           = ', w_max, ' m/s   k=', w_max_ijk(1),        &
                '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
           CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )