Changeset 1833 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (8 diffs)

palm/trunk/SOURCE/modules.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-!
+! spectra parameter moved to spectra module
 !
 ! Former revisions:
@@ -663 +663 @@
     CHARACTER (LEN=20), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
 
-    INTEGER(iwp) ::  abort_mode = 1, average_count_pr = 0, average_count_sp = 0, &
+    INTEGER(iwp) ::  abort_mode = 1, average_count_pr = 0, &
                      average_count_3d = 0, current_timestep_number = 0, &
                      coupling_topology = 0, &
@@ -669 +669 @@
                      disturbance_level_ind_t, doav_n = 0, dopr_n = 0, &
                      dopr_time_count = 0, dopts_time_count = 0, &
-                     dosp_time_count = 0, dots_time_count = 0, &
+                     dots_time_count = 0, &
                      do2d_xy_n = 0, do2d_xz_n = 0, do2d_yz_n = 0, do3d_avs_n = 0, &
                      dp_level_ind_b = 0, dvrp_filecount = 0, &
@@ -781 +781 @@
                  alpha_surface = 0.0_wp, atmos_ocean_sign = 1.0_wp, &
                  averaging_interval = 0.0_wp, averaging_interval_pr = 9999999.9_wp, &
-                 averaging_interval_sp = 9999999.9_wp, bc_pt_t_val, bc_q_t_val, &
-                 bottom_salinityflux = 0.0_wp, &
+                 bc_pt_t_val, bc_q_t_val, bottom_salinityflux = 0.0_wp, &
                  building_height = 50.0_wp, building_length_x = 50.0_wp, &
                  building_length_y = 50.0_wp, building_wall_left = 9999999.9_wp, &
@@ -799 +798 @@
                  dt_data_output_av = 9999999.9_wp, dt_disturb = 9999999.9_wp, &
                  dt_dopr = 9999999.9_wp, dt_dopr_listing = 9999999.9_wp, &
-                 dt_dopts = 9999999.9_wp, dt_dosp = 9999999.9_wp, dt_dots = 9999999.9_wp, &
+                 dt_dopts = 9999999.9_wp, dt_dots = 9999999.9_wp, &
                  dt_do2d_xy = 9999999.9_wp, dt_do2d_xz = 9999999.9_wp, &
                  dt_do2d_yz = 9999999.9_wp, dt_do3d = 9999999.9_wp, dt_dvrp = 9999999.9_wp, &
@@ -828 +827 @@
                  simulated_time = 0.0_wp, simulated_time_at_begin, sin_alpha_surface, &
                  skip_time_data_output = 0.0_wp, skip_time_data_output_av = 9999999.9_wp,&
-                 skip_time_dopr = 9999999.9_wp, skip_time_dosp = 9999999.9_wp, &
+                 skip_time_dopr = 9999999.9_wp, &
                  skip_time_do2d_xy = 9999999.9_wp, skip_time_do2d_xz = 9999999.9_wp, &
                  skip_time_do2d_yz = 9999999.9_wp, skip_time_do3d = 9999999.9_wp, &
@@ -1291 +1290 @@
     REAL(wp), DIMENSION(:), ALLOCATABLE       ::  mean_surface_level_height,      &
                                                   sums_divnew_l, sums_divold_l,   &
-                                                  var_d, weight_substep,          &
-                                                  weight_pres
+                                                  weight_substep, weight_pres
     REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  sums, sums_wsts_bc_l, ts_value, &
                                                   sums_wsus_ws_l, sums_wsvs_ws_l, &
@@ -1304 +1302 @@
                                                   sums_ls_l
                                               
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  hom_sum, rmask, spectrum_x,     &
-                                                  spectrum_y, sums_l, sums_l_l,   &
-                                                  sums_up_fraction_l
+    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  hom_sum, rmask, sums_l,      &
+                                                  sums_l_l, sums_up_fraction_l
+
     REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::  hom