Ignore:
Timestamp:
Feb 26, 2019 4:23:41 PM (2 years ago)
Author:
raasch
Message:

unused_variables removed, bugfix in im_define_netcdf_grid argument list, trim added to avoid truncation compiler warnings, save attribute added to local targets to avoid outlive pointer target warning, first argument removed from module_interface_rrd_*, file module_interface reformatted with respect to coding standards, bugfix in surface_data_output_rrd_local (variable k removed)

File:
1 edited

Legend:

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

    r3718 r3766  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3718 2019-02-06 11:08:28Z suehring
    2730! Adjust variable name connections between UC2 and chemistry variables
    2831!
     
    414417   
    415418    CHARACTER(LEN=5)    ::  dum                !< dummy string indicate station id
    416     CHARACTER(LEN=5)    ::  dummy_read                !< dummy string indicate station id
    417419    CHARACTER(LEN=10), DIMENSION(50) ::  measured_variables_file = '' !< array with all measured variables read from NetCDF
    418420    CHARACTER(LEN=10), DIMENSION(50) ::  measured_variables      = '' !< dummy array with all measured variables that are allowed   
     
    443445    INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE ::  meas_flag !< mask array indicating measurement positions
    444446   
    445     LOGICAL ::  chem_include !< flag indicating that chemical species is considered in modelled mechanism
     447!    LOGICAL ::  chem_include !< flag indicating that chemical species is considered in modelled mechanism
    446448    LOGICAL ::  on_pe        !< flag indicating that the respective measurement coordinate is on subdomain
    447449   
     
    10451047         
    10461048     INTEGER(iwp) ::  i         !< running index over IO blocks   
    1047      INTEGER(iwp) ::  l         !< running index over all stations
    1048      INTEGER(iwp) ::  n         !< running index over all measured variables at a station
    10491049 
    10501050     DO  i = 0, io_blocks-1
Note: See TracChangeset for help on using the changeset viewer.