Changeset 553 for palm/trunk/SOURCE/parin.f90

Timestamp:

Sep 1, 2010 2:09:06 PM (14 years ago)

Author:

weinreis

Message:

several parameters for masked output are replaced by arrays

File:

• palm/trunk/SOURCE/parin.f90 (modified) (4 diffs)

palm/trunk/SOURCE/parin.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! parameters for masked output are replaced by arrays
 !
 ! Former revisions:
@@ -117 +117 @@
              lad_vertical_gradient, lad_vertical_gradient_level, &
              leaf_surface_concentration, long_filter_factor, &
-             loop_optimization, mixing_length_1d, masks, momentum_advec, &
+             loop_optimization, mixing_length_1d, momentum_advec, &
              netcdf_precision, nsor_ini, nx, ny, &
              nz, ocean, omega, outflow_damping_width, overshoot_limit_e, &
@@ -151 +151 @@
                        cross_ts_uymin, cross_xtext, cycle_mg, data_output, &
                        data_output_format, &
-                       data_output_mask_01, data_output_mask_02, &
-                       data_output_mask_03, data_output_mask_04, &
-                       data_output_mask_05, data_output_mask_06, &
-                       data_output_mask_07, data_output_mask_08, &
-                       data_output_mask_09, data_output_mask_10, &
-                       data_output_mask_11, data_output_mask_12, &
-                       data_output_mask_13, data_output_mask_14, &
-                       data_output_mask_15, data_output_mask_16, &
-                       data_output_mask_17, data_output_mask_18, &
-                       data_output_mask_19, data_output_mask_20, &
+                       data_output_masks, &
                        data_output_pr, &
                        data_output_2d_on_each_pe, disturbance_amplitude, &
@@ -172 +163 @@
                        end_time, force_print_header, &
                        mask_scale_x, mask_scale_y, mask_scale_z, &
-                       mask_01_x, mask_02_x, mask_03_x, mask_04_x, &
-                       mask_05_x, mask_06_x, mask_07_x, mask_08_x, &
-                       mask_09_x, mask_10_x, mask_11_x, mask_12_x, &
-                       mask_13_x, mask_14_x, mask_15_x, mask_16_x, &
-                       mask_17_x, mask_18_x, mask_19_x, mask_20_x, &
-                       mask_01_y, mask_02_y, mask_03_y, mask_04_y, &
-                       mask_05_y, mask_06_y, mask_07_y, mask_08_y, &
-                       mask_09_y, mask_10_y, mask_11_y, mask_12_y, &
-                       mask_13_y, mask_14_y, mask_15_y, mask_16_y, &
-                       mask_17_y, mask_18_y, mask_19_y, mask_20_y, &
-                       mask_01_z, mask_02_z, mask_03_z, mask_04_z, &
-                       mask_05_z, mask_06_z, mask_07_z, mask_08_z, &
-                       mask_09_z, mask_10_z, mask_11_z, mask_12_z, &
-                       mask_13_z, mask_14_z, mask_15_z, mask_16_z, &
-                       mask_17_z, mask_18_z, mask_19_z, mask_20_z, &
-                       mask_01_x_loop, mask_02_x_loop, mask_03_x_loop, &
-                       mask_04_x_loop, mask_05_x_loop, mask_06_x_loop, &
-                       mask_07_x_loop, mask_08_x_loop, mask_09_x_loop, &
-                       mask_10_x_loop, mask_11_x_loop, mask_12_x_loop, &
-                       mask_13_x_loop, mask_14_x_loop, mask_15_x_loop, &
-                       mask_16_x_loop, mask_17_x_loop, mask_18_x_loop, &
-                       mask_19_x_loop, mask_20_x_loop, &
-                       mask_01_y_loop, mask_02_y_loop, mask_03_y_loop, &
-                       mask_04_y_loop, mask_05_y_loop, mask_06_y_loop, &
-                       mask_07_y_loop, mask_08_y_loop, mask_09_y_loop, &
-                       mask_10_y_loop, mask_11_y_loop, mask_12_y_loop, &
-                       mask_13_y_loop, mask_14_y_loop, mask_15_y_loop, &
-                       mask_16_y_loop, mask_17_y_loop, mask_18_y_loop, &
-                       mask_19_y_loop, mask_20_y_loop, &
-                       mask_01_z_loop, mask_02_z_loop, mask_03_z_loop, &
-                       mask_04_z_loop, mask_05_z_loop, mask_06_z_loop, &
-                       mask_07_z_loop, mask_08_z_loop, mask_09_z_loop, &
-                       mask_10_z_loop, mask_11_z_loop, mask_12_z_loop, &
-                       mask_13_z_loop, mask_14_z_loop, mask_15_z_loop, &
-                       mask_16_z_loop, mask_17_z_loop, mask_18_z_loop, &
-                       mask_19_z_loop, mask_20_z_loop, &
+                       mask_x, mask_y, mask_z,  &
+                       mask_x_loop, mask_y_loop, mask_z_loop, &
                        mg_cycles, mg_switch_to_pe0_level, &
                        netcdf_data_format, &