Changeset 3706

Timestamp:

Jan 29, 2019 8:02:26 PM (6 years ago)

Author:

suehring

Message:

unused variables removed

File:

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

palm/trunk/SOURCE/virtual_measurement_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3705 2019-01-29 19:56:39Z suehring
 ! - initialization revised
 ! - binary data output
@@ -402 +405 @@
     CHARACTER(LEN=10), DIMENSION(50) ::  measured_variables      = '' !< dummy array with all measured variables that are allowed   
     
-    INTEGER(iwp) ::  dim_eutm  !< dimension size of UTM easting coordinate
-    INTEGER(iwp) ::  dim_nutm  !< dimension size of UTM northing coordinate
     INTEGER(iwp) ::  dim_ntime !< dimension size of time coordinate 
-    INTEGER(iwp) ::  dim_zag   !< dimension size of height coordinate
     INTEGER(iwp) ::  i         !< grid index of virtual observation point in x-direction
-    INTEGER(iwp) ::  ii        !< running index over all coordinate points of a measurement
     INTEGER(iwp) ::  is        !< grid index of real observation point of the respective station in x-direction
     INTEGER(iwp) ::  j         !< grid index of observation point in x-direction
@@ -1070 +1069 @@
     
      IMPLICIT NONE
-     
-     CHARACTER(LEN=10) ::  trimvar !< dummy for the measured variable name
       
      INTEGER(iwp) ::  i         !< grid index in x-direction