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

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

• palm/trunk/SOURCE/timestep.f90 (modified) (1 diff)

palm/trunk/SOURCE/timestep.f90

@@ -202 +202 @@
           stop_dt = .TRUE.
 
-          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),       &
-                             '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),            &
-                             '&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),       &
-                             '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
+          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),       &
+                        '  j=', u_max_ijk(2), '  i=', u_max_ijk(3),            &
+                        '&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),       &
+                        '  j=', w_max_ijk(2), '  i=', w_max_ijk(3)
           CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 )
 !