Ignore:
Timestamp:
Jul 26, 2012 9:14:24 AM (9 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/data_output_spectra.f90

    r392 r964  
    44! Current revisions:
    55! -----------------
    6 !
     6! code for profil-output removed
    77!
    88! Former revisions:
     
    7373       CALL handle_netcdf_error( 'data_output_spectra', 47 )
    7474#endif
    75 
    76        IF ( profil_output )  THEN
    77 !
    78 !--       Compute RAHMEN-Parameter CRANZ for x- and y-spectra separately
    79           cranz_x = 0; cranz_y = 0; frame_x = .FALSE.; frame_y = .FALSE.
    80 
    81           m = 1
    82           DO WHILE ( data_output_sp(m) /= ' ' .AND. m <= 10 )
    83 
    84              IF ( INDEX( spectra_direction(m), 'x' ) /= 0 )  THEN
    85                 cranz_x = cranz_x + 1
    86              ENDIF
    87              IF ( INDEX( spectra_direction(m), 'y' ) /= 0 )  THEN
    88                 cranz_y = cranz_y + 1
    89              ENDIF
    90 
    91              m = m + 1
    92 
    93           ENDDO
    94 
    95        ENDIF
    9675
    9776!
     
    152131             IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN
    153132                CALL output_spectra_netcdf( m, 'y' )
    154              ENDIF
    155           ENDIF
    156 
    157 !
    158 !--       Output of spectra in profil format
    159           IF ( profil_output )  THEN
    160 !
    161 !--          Output of x-spectra
    162              IF ( INDEX( spectra_direction(m), 'x' ) /= 0 ) THEN
    163                 CALL data_output_spectra_x( m, cranz_x, pr, frame_x )
    164              ENDIF
    165 
    166 !
    167 !--          Output of y-spectra
    168              IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN
    169                 CALL data_output_spectra_y( m, cranz_y, pr, frame_y )
    170133             ENDIF
    171134          ENDIF
Note: See TracChangeset for help on using the changeset viewer.