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

Timestamp:

Mar 6, 2016 6:36:17 PM (8 years ago)

Author:

raasch

Message:

NetCDF routines modularized; new parameter netcdf_deflate; further changes in the pmc

File:

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

palm/trunk/SOURCE/parin.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! +netcdf_deflate in d3par, netcdf module and variable names changed
 !
 ! Former revisions:
@@ -206 +206 @@
 
     USE pegrid
+
+    USE netcdf_interface,                                                      &
+        ONLY:  netcdf_data_format, netcdf_deflate, netcdf_precision
 
     USE pmc_interface,                                                         &
@@ -297 +300 @@
              dt_run_control,end_time, force_print_header, mask_scale_x,        &
              mask_scale_y, mask_scale_z, mask_x, mask_y, mask_z, mask_x_loop,  &
-             mask_y_loop, mask_z_loop, netcdf_data_format, normalizing_region, &
-             npex, npey, nz_do3d, precipitation_amount_interval,               &
-             profile_columns, profile_rows, restart_time, section_xy,          &
-             section_xz, section_yz, skip_time_data_output,                    &
-             skip_time_data_output_av, skip_time_dopr, skip_time_do2d_xy,      &
-             skip_time_do2d_xz, skip_time_do2d_yz, skip_time_do3d,             &
-             skip_time_domask, synchronous_exchange, termination_time_needed,  &
-             z_max_do2d
+             mask_y_loop, mask_z_loop, netcdf_data_format, netcdf_deflate,     &
+             normalizing_region, npex, npey, nz_do3d,                          &
+             precipitation_amount_interval, profile_columns, profile_rows,     &
+             restart_time, section_xy, section_xz, section_yz,                 &
+             skip_time_data_output, skip_time_data_output_av, skip_time_dopr,  &
+             skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,          &
+             skip_time_do3d, skip_time_domask, synchronous_exchange,           &
+             termination_time_needed, z_max_do2d