Changeset 964 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jul 26, 2012 9:14:24 AM (12 years ago)

Author:

raasch

Message:

old profil-parameters (cross_xtext, cross_normalized_x, etc. ) and respective code removed
(check_open, check_parameters, close_file, data_output_profiles, data_output_spectra, header, modules, parin)

reformatting (netcdf)

append feature removed from unit 14 (check_open)

File:

• palm/trunk/SOURCE/modules.f90 (modified) (8 diffs)

palm/trunk/SOURCE/modules.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! -cross_linecolors, cross_linestyles, cross_normalized_x, cross_normx_factor,
+! cross_normalized_y, cross_normy_factor, cross_pnc_local,
+! cross_profile_numbers, cross_profile_number_counter, cross_uxmax,
+! cross_uxmax_computed, cross_uxmax_normalized,
+! cross_uxmax_normalized_computed, cross_uxmin, cross_uxmin_computed,
+! cross_uxmin_normalized, cross_uxmin_normalized_computed, cross_uymax,
+! cross_uymin, cross_xtext, dopr_crossindex, dopr_label, linecolors, linestyles,
+! nz_do1d, profil_output, z_max_do1d, z_max_do1d_normalized
 !
 ! Former revisions:
@@ -539 +546 @@
                 netcdf_data_format = 2, ngsrb = 2, nsor = 20, &
                 nsor_ini = 100, n_sor, normalizing_region = 0, &
-                nz_do1d, nz_do3d = -9999, outflow_damping_width = -1, &
+                nz_do3d = -9999, outflow_damping_width = -1, &
                 pch_index = 0, prt_time_count = 0, recycling_plane, runnr = 0, &
                 skip_do_avs = 0, subdomain_size, terminate_coupled = 0, &
@@ -601 +608 @@
                 outflow_s = .FALSE., passive_scalar = .FALSE., &
                 plant_canopy = .FALSE., prandtl_layer = .TRUE., &
-                precipitation = .FALSE., profil_output = .FALSE., &
+                precipitation = .FALSE., &
                 radiation = .FALSE., random_heatflux = .FALSE., &
                 run_control_header = .FALSE., run_coupled = .TRUE., &
@@ -690 +697 @@
              ups_limit_v = 0.0, ups_limit_w = 0.0, vg_surface = 0.0, &
              v_bulk = 0.0, v_gtrans = 0.0, wall_adjustment_factor = 1.8, &
-             z_max_do1d = -1.0, z_max_do1d_normalized = -1.0, z_max_do2d = -1.0
+             z_max_do2d = -1.0
 
     REAL ::  do2d_xy_last_time(0:1) = -1.0, do2d_xz_last_time(0:1) = -1.0, &
@@ -1373 +1380 @@
     INTEGER, PARAMETER ::  crmax = 100
 
-    CHARACTER (LEN=10), DIMENSION(100) ::  dopr_label = ' '
-
-    CHARACTER (LEN=10), DIMENSION(crmax) ::  cross_normalized_x = ' ', &
-                                             cross_normalized_y = ' '
-
     CHARACTER (LEN=20), DIMENSION(20) ::  cross_ts_profiles = &
                            (/ ' E E*               ', ' dt                 ', &
@@ -1387 +1389 @@
                             ( '                    ', i9 = 1, 9 ) /)
 
-    CHARACTER (LEN=40), DIMENSION(crmax) ::  cross_xtext = &
-                           (/ 'windspeed in ms>->1         ', &
-                              'pot. temperature in K       ', &
-                              'heat flux in K ms>->1       ', &
-                              'momentum flux in m>2s>2     ', &
-                              'eddy diffusivity in m>2s>->1', &
-                              'mixing length in m          ', &
-                            ( '                            ', i9 = 1, 94 ) /)
-
     CHARACTER (LEN=100), DIMENSION(crmax) ::  cross_profiles = &
                            (/ ' u v                           ', &
@@ -1407 +1400 @@
     INTEGER ::  profile_columns = 2, profile_rows = 3, profile_number = 0
 
-    INTEGER ::  cross_linecolors(100,crmax) = 1, &
-                cross_linestyles(100,crmax) = 0, &
-                cross_profile_numbers(100,crmax) = 0, &
-                cross_pnc_local(crmax), cross_profile_number_count(crmax) = 0, &
-                cross_ts_numbers(crmax,crmax) = 0, &
-                cross_ts_number_count(crmax) = 0, dopr_crossindex(100) = 0, &
+    INTEGER ::  cross_ts_numbers(crmax,crmax) = 0, &
+                cross_ts_number_count(crmax) = 0, &
                 dopr_index(300) = 0, dopr_initial_index(300) = 0, &
-                dots_crossindex(100) = 0, dots_index(100) = 0, &
-                linecolors(10) = (/ 2, 3, 4,  5, 7, 8, 12, 15, 16, 23 /), &
-                linestyles(11) = (/ 0, 7, 3, 10, 4, 1,  9,  2,  5,  8, 6 /)
+                dots_crossindex(100) = 0, dots_index(100) = 0
                 
 
-    REAL ::  cross_normx_factor(100,crmax) = 1.0, &
-             cross_normy_factor(100,crmax) = 1.0, &
-             cross_ts_uymax(20) = &
+    REAL ::  cross_ts_uymax(20) = &
                              (/ 999.999, 999.999, 999.999, 999.999, 999.999,   &
                                 999.999, 999.999, 999.999, 999.999, 999.999,   &
@@ -1432 +1417 @@
                                 999.999, 999.999, 999.999, 999.999, 999.999,   &
                                 999.999, 999.999, 999.999, 999.999, 999.999 /),&
-             cross_ts_uymin_computed(20) = 999.999, &
-             cross_uxmax(crmax) = 0.0, cross_uxmax_computed(crmax) = -1.0, &
-             cross_uxmax_normalized(crmax) = 0.0, &
-             cross_uxmax_normalized_computed(crmax) = -1.0, &
-             cross_uxmin(crmax) = 0.0, cross_uxmin_computed(crmax) =  1.0, &
-             cross_uxmin_normalized(crmax) = 0.0, &
-             cross_uxmin_normalized_computed(crmax) = 1.0, &
-             cross_uymax(crmax), cross_uymin(crmax)
+             cross_ts_uymin_computed(20) = 999.999
 
     SAVE