Changeset 3241 for palm/trunk/SOURCE/time_integration_spinup.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/time_integration_spinup.f90 (modified) (4 diffs)

palm/trunk/SOURCE/time_integration_spinup.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2983 2018-04-18 10:43:40Z suehring
 ! Revise limitation of wall-adjacent velocity.
 ! 
@@ -93 +96 @@
     USE control_parameters,                                                    &
         ONLY:  averaging_interval_pr, calc_soil_moisture_during_spinup,        &
-               constant_diffusion, constant_flux_layer,                        &
-               coupling_start_time, current_timestep_number,                   &
-               data_output_during_spinup, disturbance_created, dopr_n, do_sum, &
+               constant_diffusion, constant_flux_layer, coupling_start_time,   &
+               data_output_during_spinup, dopr_n, do_sum,                      &
                dt_averaging_input_pr, dt_dopr, dt_dots, dt_do2d_xy, dt_do3d,   &
-               dt_run_control, dt_spinup, dt_3d, humidity,                     &
-               intermediate_timestep_count,                                    &
+               dt_spinup, dt_3d, humidity, intermediate_timestep_count,        &
                intermediate_timestep_count_max, land_surface,                  &
-               simulated_time, simulated_time_chr,                             &
-               skip_time_dopr, skip_time_do2d_xy, skip_time_do3d, spinup,      &
-               spinup_pt_amplitude, spinup_pt_mean, spinup_time,               &
-               timestep_count, timestep_scheme, time_dopr, time_dopr_av,       &
-               time_dots, time_do2d_xy, time_do3d, time_run_control,           &
-               time_since_reference_point, ug_surface, vg_surface, urban_surface
-
-    USE constants,                                                             &
-        ONLY:  pi
+               simulated_time, simulated_time_chr, skip_time_dopr,             &
+               skip_time_do2d_xy, skip_time_do3d, spinup_pt_amplitude,         &
+               spinup_pt_mean, spinup_time, timestep_count, time_dopr,         &
+               time_dopr_av, time_dots, time_do2d_xy, time_do3d,               &
+               time_run_control, time_since_reference_point, urban_surface
 
     USE cpulog,                                                                &
@@ -131 +128 @@
 
     USE radiation_model_mod,                                                   &
-        ONLY:  force_radiation_call, radiation,                                &
-               radiation_control, rad_sw_in, time_radiation,                   &
-               radiation_interaction, radiation_interactions
+        ONLY:  force_radiation_call, radiation, radiation_control,             &
+               radiation_interaction, radiation_interactions, time_radiation
 
     USE statistics,                                                            &
@@ -142 +138 @@
 
     USE surface_mod,                                                           &
-        ONLY :  surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v, surf_usm_h,    &
+        ONLY :  surf_lsm_h, surf_lsm_v, surf_usm_h,    &
                 surf_usm_v