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

    r3028 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised
     28!
     29! 3028 2018-05-23 10:27:23Z knoop
    2730! renamed d3par to runtime_parameters
    2831!
     
    222225          log_event%place = place
    223226       ELSEIF ( log_event%place /= place )  THEN
    224           WRITE( message_string, * ) 'wrong argument & expected: ',            &
    225                             TRIM(log_event%place), '  given: ',  TRIM( place )
     227          WRITE( message_string, * ) 'wrong argument expected: ',              &
     228                            TRIM(log_event%place), ' given: ',  TRIM( place )
    226229          CALL message( 'cpu_log', 'PA0174', 1, 2, 0, 6, 0 )
    227230       ENDIF
     
    259262          IF ( ( mtime - log_event%mtime ) < 0.0  .AND.  first )  THEN
    260263             WRITE( message_string, * ) 'negative time interval occured',      &
    261                          ' &PE',myid,' L=PAUSE "',TRIM(log_event%place),       &
     264                         ' PE',myid,' L=PAUSE "',TRIM(log_event%place),        &
    262265                         '" new=', mtime,' last=',log_event%mtime
    263266             CALL message( 'cpu_log', 'PA0176', 0, 1, -1, 6, 0 )
     
    270273               first )  THEN
    271274             WRITE( message_string, * ) 'negative time interval occured',      &
    272                        ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
     275                       ' PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', &
    273276                       mtime,' last=',log_event%mtime,' isum=',log_event%isum
    274277             CALL message( 'cpu_log', 'PA0177', 0, 1, -1, 6, 0 )
     
    280283          IF ( log_event%sum < 0.0  .AND.  first )  THEN
    281284             WRITE( message_string, * ) 'negative time interval occured',      &
    282                        ' &PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
     285                       ' PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', &
    283286                       log_event%sum,' mtime=',log_event%mtime
    284287             CALL message( 'cpu_log', 'PA0178', 0, 1, -1, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.