Changeset 3766 for palm/trunk/SOURCE/virtual_measurement_mod.f90

Timestamp:

Feb 26, 2019 4:23:41 PM (5 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:

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

palm/trunk/SOURCE/virtual_measurement_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3718 2019-02-06 11:08:28Z suehring
 ! Adjust variable name connections between UC2 and chemistry variables
 ! 
@@ -414 +417 @@
     
     CHARACTER(LEN=5)    ::  dum                !< dummy string indicate station id
-    CHARACTER(LEN=5)    ::  dummy_read                !< dummy string indicate station id
     CHARACTER(LEN=10), DIMENSION(50) ::  measured_variables_file = '' !< array with all measured variables read from NetCDF
     CHARACTER(LEN=10), DIMENSION(50) ::  measured_variables      = '' !< dummy array with all measured variables that are allowed   
@@ -443 +445 @@
     INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE ::  meas_flag !< mask array indicating measurement positions
     
-    LOGICAL ::  chem_include !< flag indicating that chemical species is considered in modelled mechanism
+!    LOGICAL ::  chem_include !< flag indicating that chemical species is considered in modelled mechanism
     LOGICAL ::  on_pe        !< flag indicating that the respective measurement coordinate is on subdomain
     
@@ -1045 +1047 @@
          
      INTEGER(iwp) ::  i         !< running index over IO blocks    
-     INTEGER(iwp) ::  l         !< running index over all stations
-     INTEGER(iwp) ::  n         !< running index over all measured variables at a station
  
      DO  i = 0, io_blocks-1