Changeset 1682 for palm/trunk/SOURCE/local_flush.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/local_flush.f90
r1321 r1682 1 SUBROUTINE local_flush( file_id ) 2 1 !> @file local_flush.f90 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ----------------- 21 ! Code annotations made doxygen readable 22 22 ! 23 23 ! Former revisions: … … 39 39 ! Description: 40 40 ! ------------ 41 ! Flush calls for different operating systems41 !> Flush calls for different operating systems 42 42 !------------------------------------------------------------------------------! 43 SUBROUTINE local_flush( file_id ) 44 43 45 44 46 USE kinds 45 47 46 INTEGER(iwp) :: file_id ! :48 INTEGER(iwp) :: file_id !< 47 49 48 50 #if defined( __ibm )
Note: See TracChangeset
for help on using the changeset viewer.