Changeset 964 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Jul 26, 2012 9:14:24 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r887 r964 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! Test: append feature removed from unit 14 6 ! old profil-units (40:49) removed, 7 ! append feature removed from unit 14 7 8 ! 8 9 ! Former revisions: … … 155 156 SELECT CASE ( file_id ) 156 157 157 CASE ( 15, 16, 17, 18, 19, 40:49,50:59, 81:84, 104:105, 107, 109 )158 CASE ( 15, 16, 17, 18, 19, 50:59, 81:84, 104:105, 107, 109 ) 158 159 159 160 IF ( myid /= 0 ) THEN … … 582 583 ENDIF 583 584 584 CASE ( 40:49 )585 586 IF ( statistic_regions == 0 .AND. file_id == 40 ) THEN587 suffix = ''588 ELSE589 WRITE ( suffix, '(''_'',I1)' ) file_id - 40590 ENDIF591 OPEN ( file_id, FILE='PLOT1D_DATA'//TRIM( coupling_char )// &592 TRIM( suffix ), &593 FORM='FORMATTED' )594 !595 !-- Write contents comments at the top of the file596 WRITE ( file_id, 4000 ) TRIM( run_description_header ) // ' ' // &597 TRIM( region( file_id - 40 ) )598 599 585 CASE ( 50:59 ) 600 586 … … 637 623 klist(1:k) = cross_ts_numbers(1:k,j) 638 624 klist(k+1:10) = 999999 639 cucol(1:k) = linecolors(1:k)640 lstyle(1:k) = linestyles(1:k)641 625 ! 642 626 !-- Write CROSS parameter
Note: See TracChangeset
for help on using the changeset viewer.