Changeset 1320 for palm/trunk/SOURCE/message.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/message.f90
r1310 r1320 21 21 ! Current revisions: 22 22 ! ----------------- 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 24 28 ! 25 29 ! Former revisions: … … 29 33 ! 1036 2012-10-22 13:43:42Z raasch 30 34 ! code put under GPL (PALM 3.9) 31 !32 ! 746 2011-08-18 21:14:48Z letzel33 ! 'wiki' inserted into weblink path to error message database34 !35 ! 563 2010-09-30 13:08:44Z raasch36 ! Weblink to error message database changed to new trac server37 35 ! 38 36 ! 213 2008-11-13 10:26:18Z raasch … … 50 48 !------------------------------------------------------------------------------! 51 49 50 USE control_parameters, & 51 ONLY: abort_mode, message_string 52 53 USE kinds 54 52 55 USE pegrid 53 USE control_parameters54 56 55 57 IMPLICIT NONE 56 58 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 !: 64 74 65 75
Note: See TracChangeset
for help on using the changeset viewer.