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/cpulog_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    262262          IF ( ( mtime - log_event%mtime ) < 0.0  .AND.  first )  THEN
    263263             WRITE( message_string, * ) 'negative time interval occured',      &
    264                          ' PE',myid,' L=PAUSE "',TRIM(log_event%place),        &
     264                         '&PE',myid,' L=PAUSE "',TRIM(log_event%place),        &
    265265                         '" new=', mtime,' last=',log_event%mtime
    266266             CALL message( 'cpu_log', 'PA0176', 0, 1, -1, 6, 0 )
     
    273273               first )  THEN
    274274             WRITE( message_string, * ) 'negative time interval occured',      &
    275                        ' PE',myid,' L=STOP "',TRIM(log_event%place),'" new=',  &
     275                       '&PE',myid,' L=STOP "',TRIM(log_event%place),'" new=',  &
    276276                       mtime,' last=',log_event%mtime,' isum=',log_event%isum
    277277             CALL message( 'cpu_log', 'PA0177', 0, 1, -1, 6, 0 )
     
    283283          IF ( log_event%sum < 0.0  .AND.  first )  THEN
    284284             WRITE( message_string, * ) 'negative time interval occured',      &
    285                        ' PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=',  &
     285                       '&PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=',  &
    286286                       log_event%sum,' mtime=',log_event%mtime
    287287             CALL message( 'cpu_log', 'PA0178', 0, 1, -1, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.