Changeset 1833 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Apr 7, 2016 2:23:03 PM (8 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! spectrum renamed spectra_mod, spectra related variables moved to spectra_mod
 !
 ! Former revisions:
@@ -207 +207 @@
     USE control_parameters,                                                    &
         ONLY:  advected_distance_x, advected_distance_y, average_count_3d,     &
-               average_count_sp, averaging_interval, averaging_interval_pr,    &
-               averaging_interval_sp, bc_lr_cyc, bc_ns_cyc, bc_pt_t_val,       &
+               averaging_interval, averaging_interval_pr,                      &
+               bc_lr_cyc, bc_ns_cyc, bc_pt_t_val,                              &
                bc_q_t_val, call_psolver_at_all_substeps, cloud_droplets,       &
                cloud_physics, constant_flux_layer, constant_heatflux,          &
@@ -217 +217 @@
                dt_coupling, dt_data_output_av, dt_disturb, dt_do2d_xy,         &
                dt_do2d_xz, dt_do2d_yz, dt_do3d, dt_domask,dt_dopts, dt_dopr,   &
-               dt_dopr_listing, dt_dosp, dt_dots, dt_dvrp, dt_run_control,     &
+               dt_dopr_listing, dt_dots, dt_dvrp, dt_run_control,              &
                end_time, first_call_lpm, galilei_transformation, humidity,     &
                intermediate_timestep_count,                                    &
@@ -229 +229 @@
                skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,        &
                skip_time_do3d, skip_time_domask, skip_time_dopr,               &
-               skip_time_dosp, skip_time_data_output_av, sloping_surface,      &
+               skip_time_data_output_av, sloping_surface,                      &
                stop_dt, terminate_coupled, terminate_run, timestep_scheme,     &
                time_coupling, time_do2d_xy, time_do2d_xz, time_do2d_yz,        &
@@ -292 +292 @@
               skip_time_do_radiation, time_radiation
 
-    USE spectrum,                                                              &
-        ONLY: calc_spectra
+    USE spectra_mod,                                                           &
+        ONLY: average_count_sp, averaging_interval_sp, calc_spectra, dt_dosp,  &
+              skip_time_dosp
 
     USE statistics,                                                            &