Ignore:
Timestamp:
Mar 21, 2014 11:00:16 AM (8 years ago)
Author:
raasch
Message:

Changed:


-s real64 removed (.mrun.config.hlrnIII)
-r8 removed (.mrun.config.imuk)
deleted: .mrun.config.imuk_ice2_netcdf4 .mrun.config.imuk_hlrn

REAL constants defined as wp-kind in modules

"baroclinicity" renamed "baroclinity", "ocean version" replaced by
"ocean mode"

code parts concerning old output formats "iso2d" and "avs" removed.
netCDF is the only remaining output format.

Errors:


bugfix: duplicate error message 56 removed

File:
1 edited

Legend:

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

    r1325 r1327  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
     22! -netcdf output queries
    2223!
    2324! Former revisions:
     
    6263    USE control_parameters,                                                    &
    6364        ONLY:  average_count_sp, averaging_interval_sp, dosp_time_count,       &
    64                message_string, netcdf_output, run_description_header,          &
     65               message_string, run_description_header,                         &
    6566               time_since_reference_point
    6667
     
    99100!
    100101!--    Open file for spectra output in NetCDF format
    101        IF ( netcdf_output )  CALL check_open( 107 )
     102       CALL check_open( 107 )
    102103
    103104!
     
    161162!
    162163!--       Output of spectra in NetCDF format
    163           IF ( netcdf_output )  THEN
    164 !
    165 !--          Output of x-spectra
    166              IF ( INDEX( spectra_direction(m), 'x' ) /= 0 ) THEN
    167                 CALL output_spectra_netcdf( m, 'x' )
    168              ENDIF
    169 !
    170 !--          Output of y-spectra
    171              IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN
    172                 CALL output_spectra_netcdf( m, 'y' )
    173              ENDIF
     164!--       Output of x-spectra
     165          IF ( INDEX( spectra_direction(m), 'x' ) /= 0 ) THEN
     166             CALL output_spectra_netcdf( m, 'x' )
     167          ENDIF
     168!
     169!--       Output of y-spectra
     170          IF ( INDEX( spectra_direction(m), 'y' ) /= 0 ) THEN
     171             CALL output_spectra_netcdf( m, 'y' )
    174172          ENDIF
    175173
Note: See TracChangeset for help on using the changeset viewer.