Changeset 274 for palm/trunk/SOURCE/cpu_log.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/cpu_log.f90 (modified) (3 diffs)

palm/trunk/SOURCE/cpu_log.f90

@@ -82 +82 @@
     ELSEIF ( modus == 'pause' )  THEN
        IF ( ( mtime - log_event%mtime ) < 0.0  .AND.  first )  THEN
-          WRITE( message_string, * ) 'negative time interval occured', &
-                                     ' &PE',myid,' L=PAUSE "',TRIM(log_event%place),'" new=', &
-                                      mtime,' last=',log_event%mtime
+          WRITE( message_string, * ) 'negative time interval occured',         &
+                      ' &PE',myid,' L=PAUSE "',TRIM(log_event%place),'" new=', &
+                      mtime,' last=',log_event%mtime
           CALL message( 'cpu_log', 'PA0176', 0, 1, -1, 6, 0 )
           first = .FALSE.
@@ -93 +93 @@
        IF ( ( mtime - log_event%mtime + log_event%isum ) < 0.0  .AND. &
             first )  THEN
-          WRITE( message_string, * ) 'negative time interval occured', &
-                                     ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
-                                      mtime,' last=',log_event%mtime,' isum=',log_event%isum
+          WRITE( message_string, * ) 'negative time interval occured',        &
+                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
+                      mtime,' last=',log_event%mtime,' isum=',log_event%isum
           CALL message( 'cpu_log', 'PA0177', 0, 1, -1, 6, 0 )
           first = .FALSE.
@@ -103 +103 @@
        log_event%sum      = log_event%sum  + log_event%mtime
        IF ( log_event%sum < 0.0  .AND.  first )  THEN
-          WRITE( message_string, * ) 'negative time interval occured',&
-                                     ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
+          WRITE( message_string, * ) 'negative time interval occured',        &
+                      ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
                                       log_event%sum,' mtime=',log_event%mtime
           CALL message( 'cpu_log', 'PA0178', 0, 1, -1, 6, 0 )