Ignore:
Timestamp:
Mar 21, 2014 9:13:16 AM (8 years ago)
Author:
suehring
Message:

Bugfixes in ONLY statements

File:
1 edited

Legend:

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

    r1323 r1324  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: module statistics and module spectrum added, missing variables in ONLY
     23! arguments added
    2324!
    2425! Former revisions:
     
    5859
    5960    USE control_parameters,                                                    &
    60         ONLY:  average_count_sp, averaging_interval_sp, dosp_time_count
     61        ONLY:  average_count_sp, averaging_interval_sp, dosp_time_count,       &
     62               message_string, netcdf_output, run_description_header,          &
     63               time_since_reference_point
    6164
    6265    USE cpulog,                                                                &
     
    7073
    7174    USE spectrum,                                                              &
    72         ONLY:  data_output_sp
     75        ONLY:  data_output_sp, spectra_direction
    7376
    7477    USE statistics,                                                            &
     
    274277 SUBROUTINE data_output_spectra_x( m, cranz, pr, frame_written )
    275278
     279    USE arrays_3d,                                                             &
     280        ONLY:  zu, zw
    276281    USE constants,                                                             &
    277282        ONLY:  pi
    278283
    279284    USE control_parameters,                                                    &
    280         ONLY:  averaging_interval_sp
     285        ONLY:  averaging_interval_sp, run_description_header, simulated_time_chr
    281286
    282287    USE grid_variables,                                                        &
     
    290295    USE pegrid
    291296
     297    USE statistics,                                                            &
     298        ONLY:  spectrum_x
     299
    292300    USE spectrum,                                                              &
    293         ONLY:  comp_spectra_level, n_sp_x, plot_spectra_level
     301        ONLY:  comp_spectra_level, header_char, lstyles, klist_x, n_sp_x,      &
     302               plot_spectra_level, utext_char, ytext_char
    294303
    295304    IMPLICIT NONE
     
    469478 SUBROUTINE data_output_spectra_y( m, cranz, pr, frame_written )
    470479
     480    USE arrays_3d,                                                             &
     481        ONLY:  zu, zw
     482 
    471483    USE constants,                                                             &
    472484        ONLY:  pi
    473485
    474486    USE control_parameters,                                                    &
    475         ONLY:  averaging_interval_sp
     487        ONLY:  averaging_interval_sp, run_description_header, simulated_time_chr
    476488
    477489    USE grid_variables,                                                        &
     
    484496
    485497    USE pegrid
    486 
    487     USE spectrum  comp_spectra_level, plot_spectra_level
     498   
     499    USE statistics,                                                             &
     500        ONLY:  spectrum_y
     501
     502    USE spectrum,                                                              &
     503        ONLY:  comp_spectra_level, header_char, klist_y, lstyles, n_sp_y,      &
     504               plot_spectra_level, utext_char, ytext_char
    488505
    489506    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.