Changeset 2298 for palm/trunk/SOURCE/user_last_actions.f90
- Timestamp:
- Jun 29, 2017 9:28:18 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_last_actions.f90
r2101 r2298 25 25 ! ----------------- 26 26 ! $Id$ 27 ! type of write_binary changed from CHARACTER to LOGICAL 28 ! 29 ! 2101 2017-01-05 16:42:31Z suehring 27 30 ! 28 31 ! 2000 2016-08-20 18:09:15Z knoop … … 59 62 !-- Here the user-defined actions at the end of a job follow. 60 63 !-- Sample for user-defined output: 61 IF ( write_binary (1:4) == 'true') THEN64 IF ( write_binary ) THEN 62 65 ! IF ( ALLOCATED( u2_av ) ) THEN 63 66 ! WRITE ( 14 ) 'u2_av '; WRITE ( 14 ) u2_av
Note: See TracChangeset
for help on using the changeset viewer.