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/header.f90

    r941 r964  
    44! Current revisions:
    55! -----------------
    6 !
     6! output of profil-related quantities removed
    77!
    88! Former revisions:
     
    751751          ELSE
    752752             output_format = 'NetCDF 64bit offset'
    753           ENDIF
    754        ENDIF
    755        IF ( profil_output )  THEN
    756           IF ( netcdf_output )  THEN
    757              output_format = TRIM( output_format ) // ' and profil'
    758           ELSE
    759              output_format = 'profil'
    760753          ENDIF
    761754       ENDIF
     
    11501143          ELSE
    11511144             output_format = 'NetCDF 64bit offset'
    1152           ENDIF
    1153        ENDIF
    1154        IF ( profil_output )  THEN
    1155           IF ( netcdf_output )  THEN
    1156              output_format = TRIM( output_format ) // ' and profil'
    1157           ELSE
    1158              output_format = 'profil'
    11591145          ENDIF
    11601146       ENDIF
     
    12271213          ELSE
    12281214             output_format = 'NetCDF 64bit offset'
    1229           ENDIF
    1230        ENDIF
    1231        IF ( profil_output )  THEN
    1232           IF ( netcdf_output )  THEN
    1233              output_format = TRIM( output_format ) // ' and profil'
    1234           ELSE
    1235              output_format = 'profil'
    12361215          ENDIF
    12371216       ENDIF
Note: See TracChangeset for help on using the changeset viewer.