Changeset 1833 for palm/trunk/SOURCE/modules.f90
 Timestamp:
 Apr 7, 2016 2:23:03 PM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/modules.f90
r1832 r1833 19 19 ! Current revisions: 20 20 !  21 ! 21 ! spectra parameter moved to spectra module 22 22 ! 23 23 ! Former revisions: … … 663 663 CHARACTER (LEN=20), DIMENSION(0:1,100) :: do2d = ' ', do3d = ' ' 664 664 665 INTEGER(iwp) :: abort_mode = 1, average_count_pr = 0, average_count_sp = 0,&665 INTEGER(iwp) :: abort_mode = 1, average_count_pr = 0, & 666 666 average_count_3d = 0, current_timestep_number = 0, & 667 667 coupling_topology = 0, & … … 669 669 disturbance_level_ind_t, doav_n = 0, dopr_n = 0, & 670 670 dopr_time_count = 0, dopts_time_count = 0, & 671 do sp_time_count = 0, dots_time_count = 0, &671 dots_time_count = 0, & 672 672 do2d_xy_n = 0, do2d_xz_n = 0, do2d_yz_n = 0, do3d_avs_n = 0, & 673 673 dp_level_ind_b = 0, dvrp_filecount = 0, & … … 781 781 alpha_surface = 0.0_wp, atmos_ocean_sign = 1.0_wp, & 782 782 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, & 785 784 building_height = 50.0_wp, building_length_x = 50.0_wp, & 786 785 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, & 800 799 dt_dopr = 9999999.9_wp, dt_dopr_listing = 9999999.9_wp, & 801 dt_dopts = 9999999.9_wp, dt_do sp = 9999999.9_wp, dt_dots = 9999999.9_wp, &800 dt_dopts = 9999999.9_wp, dt_dots = 9999999.9_wp, & 802 801 dt_do2d_xy = 9999999.9_wp, dt_do2d_xz = 9999999.9_wp, & 803 802 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, & 829 828 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, & 831 830 skip_time_do2d_xy = 9999999.9_wp, skip_time_do2d_xz = 9999999.9_wp, & 832 831 skip_time_do2d_yz = 9999999.9_wp, skip_time_do3d = 9999999.9_wp, & … … 1291 1290 REAL(wp), DIMENSION(:), ALLOCATABLE :: mean_surface_level_height, & 1292 1291 sums_divnew_l, sums_divold_l, & 1293 var_d, weight_substep, & 1294 weight_pres 1292 weight_substep, weight_pres 1295 1293 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: sums, sums_wsts_bc_l, ts_value, & 1296 1294 sums_wsus_ws_l, sums_wsvs_ws_l, & … … 1304 1302 sums_ls_l 1305 1303 1306 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: hom_sum, rmask, s pectrum_x,&1307 s pectrum_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 1309 1307 REAL(wp), DIMENSION(:,:,:,:), ALLOCATABLE :: hom 1310 1308
Note: See TracChangeset
for help on using the changeset viewer.