Changeset 3241 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3235 2018-09-07 14:06:15Z sward
 ! Changed MAS output dimension id_dim_agtnum to be of defined size and no longer
 ! unlimited. Also changed some MAS output variables to be of type float
@@ -385 +388 @@
     CHARACTER (LEN=7), DIMENSION(0:1,500) ::  do2d_unit, do3d_unit
 
-    CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_names = &
-          (/ 'pt_age          ', 'pt_dvrp_size    ', 'pt_origin_x     ', &
-             'pt_origin_y     ', 'pt_origin_z     ', 'pt_radius       ', &
-             'pt_speed_x      ', 'pt_speed_y      ', 'pt_speed_z      ', &
-             'pt_weight_factor', 'pt_x            ', 'pt_y            ', &
-             'pt_z            ', 'pt_color        ', 'pt_group        ', &
-             'pt_tailpoints   ', 'pt_tail_id      ', 'pt_density_ratio', &
-             'pt_exp_arg      ', 'pt_exp_term     ', 'not_used        ', &
-             'not_used        ', 'not_used        ', 'not_used        ', &
-             'not_used        ' /)
-
-    CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_units = &
-          (/ 'seconds         ', 'meters          ', 'meters          ', &
-             'meters          ', 'meters          ', 'meters          ', &
-             'm/s             ', 'm/s             ', 'm/s             ', &
-             'factor          ', 'meters          ', 'meters          ', &
-             'meters          ', 'none            ', 'none            ', &
-             'none            ', 'none            ', 'ratio           ', &
-             'none            ', 'none            ', 'not_used        ', &
-             'not_used        ', 'not_used        ', 'not_used        ', &
-             'not_used        ' /)
+!    CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_names = &
+!          (/ 'pt_age          ', 'pt_dvrp_size    ', 'pt_origin_x     ', &
+!             'pt_origin_y     ', 'pt_origin_z     ', 'pt_radius       ', &
+!             'pt_speed_x      ', 'pt_speed_y      ', 'pt_speed_z      ', &
+!             'pt_weight_factor', 'pt_x            ', 'pt_y            ', &
+!             'pt_z            ', 'pt_color        ', 'pt_group        ', &
+!             'pt_tailpoints   ', 'pt_tail_id      ', 'pt_density_ratio', &
+!             'pt_exp_arg      ', 'pt_exp_term     ', 'not_used        ', &
+!             'not_used        ', 'not_used        ', 'not_used        ', &
+!             'not_used        ' /)
+
+!    CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_units = &
+!          (/ 'seconds         ', 'meters          ', 'meters          ', &
+!             'meters          ', 'meters          ', 'meters          ', &
+!             'm/s             ', 'm/s             ', 'm/s             ', &
+!             'factor          ', 'meters          ', 'meters          ', &
+!             'meters          ', 'none            ', 'none            ', &
+!             'none            ', 'none            ', 'ratio           ', &
+!             'none            ', 'none            ', 'not_used        ', &
+!             'not_used        ', 'not_used        ', 'not_used        ', &
+!             'not_used        ' /)
 
     CHARACTER(LEN=20), DIMENSION(11) ::  netcdf_precision = ' '
     CHARACTER(LEN=40) ::  netcdf_data_format_string
 
-    INTEGER(iwp) ::  id_dim_agtnum, id_dim_prtnum, id_dim_time_agt,            &
-                     id_dim_time_fl, id_dim_time_pr, id_dim_time_prt,          &
+    INTEGER(iwp) ::  id_dim_agtnum, id_dim_time_agt,                           &
+                     id_dim_time_fl, id_dim_time_pr,                           &
                      id_dim_time_pts, id_dim_time_sp, id_dim_time_ts,          &
                      id_dim_x_sp, id_dim_y_sp, id_dim_zu_sp, id_dim_zw_sp,     &
                      id_set_agt, id_set_fl, id_set_pr, id_set_prt, id_set_pts, &
                      id_set_sp, id_set_ts, id_var_agtnum, id_var_time_agt,     &
-                     id_var_time_fl, id_var_prtnum, id_var_rnoa_agt,           &
-                     id_var_rnop_prt, id_var_time_pr, id_var_time_prt,         &
+                     id_var_time_fl, id_var_rnoa_agt, id_var_time_pr,          &
                      id_var_time_pts, id_var_time_sp, id_var_time_ts,          &
                      id_var_x_sp, id_var_y_sp, id_var_zu_sp, id_var_zw_sp,     &
@@ -451 +453 @@
     INTEGER(iwp), DIMENSION(10)  ::  id_var_dospx, id_var_dospy
     INTEGER(iwp), DIMENSION(20)  ::  id_var_agt
-    INTEGER(iwp), DIMENSION(20)  ::  id_var_prt
+!    INTEGER(iwp), DIMENSION(20)  ::  id_var_prt
     INTEGER(iwp), DIMENSION(11)  ::  nc_precision
     INTEGER(iwp), DIMENSION(dopr_norm_num) ::  id_var_norm_dopr
@@ -565 +567 @@
                mask_k_global, message_string, mid, ntdim_2d_xy,                &
                ntdim_2d_xz, ntdim_2d_yz, ntdim_3d, nz_do3d, plant_canopy,      &
-               prt_time_count, run_description_header, section, simulated_time,&
+               run_description_header, section, simulated_time,                &
                simulated_time_at_begin, skip_time_data_output_av,              &
                skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,        &