Ignore:
Timestamp:
Mar 20, 2014 8:40:49 AM (7 years ago)
Author:
raasch
Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/message.f90

    r1310 r1320  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! ONLY-attribute added to USE-statements,
     24! kind-parameters added to all INTEGER and REAL declaration statements,
     25! revision history before 2012 removed,
     26! comment fields (!:) to be used for variable explanations added to
     27! all variable declaration statements
    2428!
    2529! Former revisions:
     
    2933! 1036 2012-10-22 13:43:42Z raasch
    3034! code put under GPL (PALM 3.9)
    31 !
    32 ! 746 2011-08-18 21:14:48Z letzel
    33 ! 'wiki' inserted into weblink path to error message database
    34 !
    35 ! 563 2010-09-30 13:08:44Z raasch
    36 ! Weblink to error message database changed to new trac server
    3735!
    3836! 213 2008-11-13 10:26:18Z raasch
     
    5048!------------------------------------------------------------------------------!
    5149
     50    USE control_parameters,                                                  &
     51        ONLY:  abort_mode, message_string
     52
     53    USE kinds
     54
    5255    USE pegrid
    53     USE control_parameters
    5456
    5557    IMPLICIT NONE
    5658
    57     CHARACTER(LEN=6)   ::  message_identifier
    58     CHARACTER(LEN=*)   ::  routine_name
    59     CHARACTER(LEN=200) ::  header_string, information_string_1,information_string_2
    60 
    61     INTEGER ::  file_id, flush, i, message_level, output_on_pe, requested_action
    62 
    63     LOGICAL ::  do_output, pe_out_of_range
     59    CHARACTER(LEN=6)   ::  message_identifier            !:
     60    CHARACTER(LEN=*)   ::  routine_name                  !:
     61    CHARACTER(LEN=200) ::  header_string                 !:
     62    CHARACTER(LEN=200) ::  information_string_1          !:
     63    CHARACTER(LEN=200) ::  information_string_2          !:
     64
     65    INTEGER(iwp) ::  file_id                             !:
     66    INTEGER(iwp) ::  flush                               !:
     67    INTEGER(iwp) ::  i                                   !:
     68    INTEGER(iwp) ::  message_level                       !:
     69    INTEGER(iwp) ::  output_on_pe                        !:
     70    INTEGER(iwp) ::  requested_action                    !:
     71
     72    LOGICAL ::  do_output                                !:
     73    LOGICAL ::  pe_out_of_range                          !:
    6474
    6575
Note: See TracChangeset for help on using the changeset viewer.