Ignore:
Timestamp:
Apr 7, 2016 2:23:03 PM (6 years ago)
Author:
raasch
Message:

spectrum renamed spactra_par and further modularized, POINTER-attributes added in coupler-routines to avoid gfortran error messages

File:
1 edited

Legend:

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

    r1832 r1833  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! reading of spectra_par moved to spectra_mod
    2222!
    2323! Former revisions:
     
    126126
    127127    USE control_parameters,                                                    &
    128         ONLY:  averaging_interval_sp, dt_data_output, dt_dopts, dt_dosp,       &
    129                dt_dvrp, particle_maximum_age, skip_time_dosp,                  &
     128        ONLY:  dt_data_output, dt_dopts, dt_dvrp, particle_maximum_age,        &
    130129               threshold
    131130
     
    159158               seed_follows_topography, use_sgs_for_particles,                 &
    160159               vertical_particle_advection, write_particle_statistics
    161 
    162     USE spectrum,                                                              &
    163         ONLY:  comp_spectra_level, data_output_sp, plot_spectra_level,         &
    164                spectra_direction
    165160
    166161    IMPLICIT NONE
     
    206201                                  write_particle_statistics
    207202
    208     NAMELIST /spectra_par/        averaging_interval_sp, comp_spectra_level,   &
    209                                   data_output_sp, dt_dosp, plot_spectra_level, &
    210                                   skip_time_dosp, spectra_direction
    211 
    212203!
    213204!-- Position the namelist-file at the beginning (it was already opened in
     
    251242 30 CONTINUE
    252243
    253     REWIND ( 11 )
    254     line = ' '
    255     DO   WHILE ( INDEX( line, '&spectra_par' ) == 0 )
    256        READ ( 11, '(A)', END=40 )  line
    257     ENDDO
    258     BACKSPACE ( 11 )
    259 
    260 !
    261 !-- Read user-defined namelist
    262     READ ( 11, spectra_par )
    263 
    264 !
    265 !-- Default setting of dt_dosp here (instead of check_parameters), because its
    266 !-- current value is needed in init_pegrid
    267     IF ( dt_dosp == 9999999.9_wp )  dt_dosp = dt_data_output
    268 
    269  40 CONTINUE
    270 
    271 
    272 
    273 
    274244 END SUBROUTINE package_parin
Note: See TracChangeset for help on using the changeset viewer.