Ignore:
Timestamp:
Apr 7, 2016 2:23:03 PM (5 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/modules.f90

    r1832 r1833  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! spectra parameter moved to spectra module
    2222!
    2323! Former revisions:
     
    663663    CHARACTER (LEN=20), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
    664664
    665     INTEGER(iwp) ::  abort_mode = 1, average_count_pr = 0, average_count_sp = 0, &
     665    INTEGER(iwp) ::  abort_mode = 1, average_count_pr = 0, &
    666666                     average_count_3d = 0, current_timestep_number = 0, &
    667667                     coupling_topology = 0, &
     
    669669                     disturbance_level_ind_t, doav_n = 0, dopr_n = 0, &
    670670                     dopr_time_count = 0, dopts_time_count = 0, &
    671                      dosp_time_count = 0, dots_time_count = 0, &
     671                     dots_time_count = 0, &
    672672                     do2d_xy_n = 0, do2d_xz_n = 0, do2d_yz_n = 0, do3d_avs_n = 0, &
    673673                     dp_level_ind_b = 0, dvrp_filecount = 0, &
     
    781781                 alpha_surface = 0.0_wp, atmos_ocean_sign = 1.0_wp, &
    782782                 averaging_interval = 0.0_wp, averaging_interval_pr = 9999999.9_wp, &
    783                  averaging_interval_sp = 9999999.9_wp, bc_pt_t_val, bc_q_t_val, &
    784                  bottom_salinityflux = 0.0_wp, &
     783                 bc_pt_t_val, bc_q_t_val, bottom_salinityflux = 0.0_wp, &
    785784                 building_height = 50.0_wp, building_length_x = 50.0_wp, &
    786785                 building_length_y = 50.0_wp, building_wall_left = 9999999.9_wp, &
     
    799798                 dt_data_output_av = 9999999.9_wp, dt_disturb = 9999999.9_wp, &
    800799                 dt_dopr = 9999999.9_wp, dt_dopr_listing = 9999999.9_wp, &
    801                  dt_dopts = 9999999.9_wp, dt_dosp = 9999999.9_wp, dt_dots = 9999999.9_wp, &
     800                 dt_dopts = 9999999.9_wp, dt_dots = 9999999.9_wp, &
    802801                 dt_do2d_xy = 9999999.9_wp, dt_do2d_xz = 9999999.9_wp, &
    803802                 dt_do2d_yz = 9999999.9_wp, dt_do3d = 9999999.9_wp, dt_dvrp = 9999999.9_wp, &
     
    828827                 simulated_time = 0.0_wp, simulated_time_at_begin, sin_alpha_surface, &
    829828                 skip_time_data_output = 0.0_wp, skip_time_data_output_av = 9999999.9_wp,&
    830                  skip_time_dopr = 9999999.9_wp, skip_time_dosp = 9999999.9_wp, &
     829                 skip_time_dopr = 9999999.9_wp, &
    831830                 skip_time_do2d_xy = 9999999.9_wp, skip_time_do2d_xz = 9999999.9_wp, &
    832831                 skip_time_do2d_yz = 9999999.9_wp, skip_time_do3d = 9999999.9_wp, &
     
    12911290    REAL(wp), DIMENSION(:), ALLOCATABLE       ::  mean_surface_level_height,      &
    12921291                                                  sums_divnew_l, sums_divold_l,   &
    1293                                                   var_d, weight_substep,          &
    1294                                                   weight_pres
     1292                                                  weight_substep, weight_pres
    12951293    REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  sums, sums_wsts_bc_l, ts_value, &
    12961294                                                  sums_wsus_ws_l, sums_wsvs_ws_l, &
     
    13041302                                                  sums_ls_l
    13051303                                             
    1306     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  hom_sum, rmask, spectrum_x,     &
    1307                                                   spectrum_y, sums_l, sums_l_l,   &
    1308                                                   sums_up_fraction_l
     1304    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  hom_sum, rmask, sums_l,      &
     1305                                                  sums_l_l, sums_up_fraction_l
     1306
    13091307    REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE ::  hom
    13101308
Note: See TracChangeset for help on using the changeset viewer.