Ignore:
Timestamp:
Jul 26, 2012 9:14:24 AM (12 years ago)
Author:
raasch
Message:

old profil-parameters (cross_xtext, cross_normalized_x, etc. ) and respective code removed
(check_open, check_parameters, close_file, data_output_profiles, data_output_spectra, header, modules, parin)

reformatting (netcdf)

append feature removed from unit 14 (check_open)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r887 r964  
    44! Current revisions:
    55! -----------------
    6 ! Test: append feature removed from unit 14
     6! old profil-units (40:49) removed,
     7! append feature removed from unit 14
    78!
    89! Former revisions:
     
    155156    SELECT CASE ( file_id )
    156157
    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 )
    158159             
    159160          IF ( myid /= 0 )  THEN
     
    582583          ENDIF
    583584
    584        CASE ( 40:49 )
    585 
    586           IF ( statistic_regions == 0  .AND.  file_id == 40 )  THEN
    587              suffix = ''
    588           ELSE
    589              WRITE ( suffix, '(''_'',I1)' )  file_id - 40
    590           ENDIF
    591           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 file
    596           WRITE ( file_id, 4000 )  TRIM( run_description_header ) // '    ' // &
    597                                    TRIM( region( file_id - 40 ) )
    598 
    599585       CASE ( 50:59 )
    600586
     
    637623                klist(1:k) = cross_ts_numbers(1:k,j)
    638624                klist(k+1:10) = 999999
    639                 cucol(1:k) = linecolors(1:k)
    640                 lstyle(1:k) = linestyles(1:k)
    641625!
    642626!--             Write CROSS parameter
Note: See TracChangeset for help on using the changeset viewer.