Changeset 1384 for palm/trunk/SOURCE/message.f90
- Timestamp:
- May 2, 2014 2:31:06 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/message.f90
r1321 r1384 21 21 ! Current revisions: 22 22 ! ----------------- 23 ! 23 ! routine location_message added 24 24 ! 25 25 ! Former revisions: … … 51 51 !------------------------------------------------------------------------------! 52 52 53 USE control_parameters, &53 USE control_parameters, & 54 54 ONLY: abort_mode, message_string 55 55 … … 206 206 207 207 END SUBROUTINE message 208 209 210 SUBROUTINE location_message( location ) 211 212 !------------------------------------------------------------------------------! 213 ! Description: 214 ! ------------ 215 ! Prints out the given location on stdout 216 !------------------------------------------------------------------------------! 217 218 USE pegrid, & 219 ONLY : myid 220 221 IMPLICIT NONE 222 223 CHARACTER(LEN=*) :: location 224 225 226 IF ( myid == 0 ) THEN 227 WRITE ( 6, '(6X,''... '',A)' ) TRIM( location ) 228 CALL local_flush( 6 ) 229 ENDIF 230 231 END SUBROUTINE location_message
Note: See TracChangeset
for help on using the changeset viewer.