Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:
1 edited

Legend:

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

    r2983 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 2983 2018-04-18 10:43:40Z suehring
    2730! Revise limitation of wall-adjacent velocity.
    2831!
     
    9396    USE control_parameters,                                                    &
    9497        ONLY:  averaging_interval_pr, calc_soil_moisture_during_spinup,        &
    95                constant_diffusion, constant_flux_layer,                        &
    96                coupling_start_time, current_timestep_number,                   &
    97                data_output_during_spinup, disturbance_created, dopr_n, do_sum, &
     98               constant_diffusion, constant_flux_layer, coupling_start_time,   &
     99               data_output_during_spinup, dopr_n, do_sum,                      &
    98100               dt_averaging_input_pr, dt_dopr, dt_dots, dt_do2d_xy, dt_do3d,   &
    99                dt_run_control, dt_spinup, dt_3d, humidity,                     &
    100                intermediate_timestep_count,                                    &
     101               dt_spinup, dt_3d, humidity, intermediate_timestep_count,        &
    101102               intermediate_timestep_count_max, land_surface,                  &
    102                simulated_time, simulated_time_chr,                             &
    103                skip_time_dopr, skip_time_do2d_xy, skip_time_do3d, spinup,      &
    104                spinup_pt_amplitude, spinup_pt_mean, spinup_time,               &
    105                timestep_count, timestep_scheme, time_dopr, time_dopr_av,       &
    106                time_dots, time_do2d_xy, time_do3d, time_run_control,           &
    107                time_since_reference_point, ug_surface, vg_surface, urban_surface
    108 
    109     USE constants,                                                             &
    110         ONLY:  pi
     103               simulated_time, simulated_time_chr, skip_time_dopr,             &
     104               skip_time_do2d_xy, skip_time_do3d, spinup_pt_amplitude,         &
     105               spinup_pt_mean, spinup_time, timestep_count, time_dopr,         &
     106               time_dopr_av, time_dots, time_do2d_xy, time_do3d,               &
     107               time_run_control, time_since_reference_point, urban_surface
    111108
    112109    USE cpulog,                                                                &
     
    131128
    132129    USE radiation_model_mod,                                                   &
    133         ONLY:  force_radiation_call, radiation,                                &
    134                radiation_control, rad_sw_in, time_radiation,                   &
    135                radiation_interaction, radiation_interactions
     130        ONLY:  force_radiation_call, radiation, radiation_control,             &
     131               radiation_interaction, radiation_interactions, time_radiation
    136132
    137133    USE statistics,                                                            &
     
    142138
    143139    USE surface_mod,                                                           &
    144         ONLY :  surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v, surf_usm_h,    &
     140        ONLY :  surf_lsm_h, surf_lsm_v, surf_usm_h,    &
    145141                surf_usm_v
    146142
Note: See TracChangeset for help on using the changeset viewer.