Changeset 3706 for palm


Ignore:
Timestamp:
Jan 29, 2019 8:02:26 PM (3 years ago)
Author:
suehring
Message:

unused variables removed

File:
1 edited

Legend:

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

    r3705 r3706  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3705 2019-01-29 19:56:39Z suehring
    2730! - initialization revised
    2831! - binary data output
     
    402405    CHARACTER(LEN=10), DIMENSION(50) ::  measured_variables      = '' !< dummy array with all measured variables that are allowed   
    403406   
    404     INTEGER(iwp) ::  dim_eutm  !< dimension size of UTM easting coordinate
    405     INTEGER(iwp) ::  dim_nutm  !< dimension size of UTM northing coordinate
    406407    INTEGER(iwp) ::  dim_ntime !< dimension size of time coordinate
    407     INTEGER(iwp) ::  dim_zag   !< dimension size of height coordinate
    408408    INTEGER(iwp) ::  i         !< grid index of virtual observation point in x-direction
    409     INTEGER(iwp) ::  ii        !< running index over all coordinate points of a measurement
    410409    INTEGER(iwp) ::  is        !< grid index of real observation point of the respective station in x-direction
    411410    INTEGER(iwp) ::  j         !< grid index of observation point in x-direction
     
    10701069   
    10711070     IMPLICIT NONE
    1072      
    1073      CHARACTER(LEN=10) ::  trimvar !< dummy for the measured variable name
    10741071     
    10751072     INTEGER(iwp) ::  i         !< grid index in x-direction
Note: See TracChangeset for help on using the changeset viewer.