Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r3235 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3235 2018-09-07 14:06:15Z sward
    2730! Changed MAS output dimension id_dim_agtnum to be of defined size and no longer
    2831! unlimited. Also changed some MAS output variables to be of type float
     
    385388    CHARACTER (LEN=7), DIMENSION(0:1,500) ::  do2d_unit, do3d_unit
    386389
    387     CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_names = &
    388           (/ 'pt_age          ', 'pt_dvrp_size    ', 'pt_origin_x     ', &
    389              'pt_origin_y     ', 'pt_origin_z     ', 'pt_radius       ', &
    390              'pt_speed_x      ', 'pt_speed_y      ', 'pt_speed_z      ', &
    391              'pt_weight_factor', 'pt_x            ', 'pt_y            ', &
    392              'pt_z            ', 'pt_color        ', 'pt_group        ', &
    393              'pt_tailpoints   ', 'pt_tail_id      ', 'pt_density_ratio', &
    394              'pt_exp_arg      ', 'pt_exp_term     ', 'not_used        ', &
    395              'not_used        ', 'not_used        ', 'not_used        ', &
    396              'not_used        ' /)
    397 
    398     CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_units = &
    399           (/ 'seconds         ', 'meters          ', 'meters          ', &
    400              'meters          ', 'meters          ', 'meters          ', &
    401              'm/s             ', 'm/s             ', 'm/s             ', &
    402              'factor          ', 'meters          ', 'meters          ', &
    403              'meters          ', 'none            ', 'none            ', &
    404              'none            ', 'none            ', 'ratio           ', &
    405              'none            ', 'none            ', 'not_used        ', &
    406              'not_used        ', 'not_used        ', 'not_used        ', &
    407              'not_used        ' /)
     390!    CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_names = &
     391!          (/ 'pt_age          ', 'pt_dvrp_size    ', 'pt_origin_x     ', &
     392!             'pt_origin_y     ', 'pt_origin_z     ', 'pt_radius       ', &
     393!             'pt_speed_x      ', 'pt_speed_y      ', 'pt_speed_z      ', &
     394!             'pt_weight_factor', 'pt_x            ', 'pt_y            ', &
     395!             'pt_z            ', 'pt_color        ', 'pt_group        ', &
     396!             'pt_tailpoints   ', 'pt_tail_id      ', 'pt_density_ratio', &
     397!             'pt_exp_arg      ', 'pt_exp_term     ', 'not_used        ', &
     398!             'not_used        ', 'not_used        ', 'not_used        ', &
     399!             'not_used        ' /)
     400
     401!    CHARACTER (LEN=16), DIMENSION(25) ::  prt_var_units = &
     402!          (/ 'seconds         ', 'meters          ', 'meters          ', &
     403!             'meters          ', 'meters          ', 'meters          ', &
     404!             'm/s             ', 'm/s             ', 'm/s             ', &
     405!             'factor          ', 'meters          ', 'meters          ', &
     406!             'meters          ', 'none            ', 'none            ', &
     407!             'none            ', 'none            ', 'ratio           ', &
     408!             'none            ', 'none            ', 'not_used        ', &
     409!             'not_used        ', 'not_used        ', 'not_used        ', &
     410!             'not_used        ' /)
    408411
    409412    CHARACTER(LEN=20), DIMENSION(11) ::  netcdf_precision = ' '
    410413    CHARACTER(LEN=40) ::  netcdf_data_format_string
    411414
    412     INTEGER(iwp) ::  id_dim_agtnum, id_dim_prtnum, id_dim_time_agt,            &
    413                      id_dim_time_fl, id_dim_time_pr, id_dim_time_prt,          &
     415    INTEGER(iwp) ::  id_dim_agtnum, id_dim_time_agt,                           &
     416                     id_dim_time_fl, id_dim_time_pr,                           &
    414417                     id_dim_time_pts, id_dim_time_sp, id_dim_time_ts,          &
    415418                     id_dim_x_sp, id_dim_y_sp, id_dim_zu_sp, id_dim_zw_sp,     &
    416419                     id_set_agt, id_set_fl, id_set_pr, id_set_prt, id_set_pts, &
    417420                     id_set_sp, id_set_ts, id_var_agtnum, id_var_time_agt,     &
    418                      id_var_time_fl, id_var_prtnum, id_var_rnoa_agt,           &
    419                      id_var_rnop_prt, id_var_time_pr, id_var_time_prt,         &
     421                     id_var_time_fl, id_var_rnoa_agt, id_var_time_pr,          &
    420422                     id_var_time_pts, id_var_time_sp, id_var_time_ts,          &
    421423                     id_var_x_sp, id_var_y_sp, id_var_zu_sp, id_var_zw_sp,     &
     
    451453    INTEGER(iwp), DIMENSION(10)  ::  id_var_dospx, id_var_dospy
    452454    INTEGER(iwp), DIMENSION(20)  ::  id_var_agt
    453     INTEGER(iwp), DIMENSION(20)  ::  id_var_prt
     455!    INTEGER(iwp), DIMENSION(20)  ::  id_var_prt
    454456    INTEGER(iwp), DIMENSION(11)  ::  nc_precision
    455457    INTEGER(iwp), DIMENSION(dopr_norm_num) ::  id_var_norm_dopr
     
    565567               mask_k_global, message_string, mid, ntdim_2d_xy,                &
    566568               ntdim_2d_xz, ntdim_2d_yz, ntdim_3d, nz_do3d, plant_canopy,      &
    567                prt_time_count, run_description_header, section, simulated_time,&
     569               run_description_header, section, simulated_time,                &
    568570               simulated_time_at_begin, skip_time_data_output_av,              &
    569571               skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,        &
Note: See TracChangeset for help on using the changeset viewer.