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

Timestamp:

Jan 10, 2019 8:28:24 AM (5 years ago)

Author:

raasch

Message:

dummy statements added to avoid compiler warnings about unused variables, unused variables removed, ssh-call for submitting batch jobs on remote systems modified again to avoid output of login messages on specific systems

File:

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

palm/trunk/SOURCE/virtual_measurement_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3522 2018-11-13 12:14:36Z suehring
 ! Sampling of variables
 ! 
@@ -184 +187 @@
     INTEGER(iwp) ::  id_vm                           !< NetCDF file id for virtual measurements
     INTEGER(iwp) ::  nvm = 0                         !< number of virtual measurements
-    INTEGER(iwp) ::  observation_coverage_xy = 0     !< horizontal distance from the measurement point where observations should be taken in the surrounding 
-    INTEGER(iwp) ::  observation_coverage_z  = 0     !< vertical distance from the measurement point where observations should be taken in the surrounding 
+!    INTEGER(iwp) ::  observation_coverage_xy = 0     !< horizontal distance from the measurement point where observations should be taken in the surrounding
+!    INTEGER(iwp) ::  observation_coverage_z  = 0     !< vertical distance from the measurement point where observations should be taken in the surrounding
     
     LOGICAL ::  use_virtual_measurement = .FALSE. !< Namelist parameter
@@ -316 +319 @@
  
     USE netcdf_data_input_mod,                                                 &
-        ONLY:  init_model, input_file_vm,                                      &
-               netcdf_data_input_get_dimension_length,                         &
+        ONLY:  input_file_vm, netcdf_data_input_get_dimension_length,          &
                netcdf_data_input_att, netcdf_data_input_var
                
@@ -329 +331 @@
     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_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) ::  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
+!    INTEGER(iwp) ::  j         !< grid index of observation point in x-direction
     INTEGER(iwp) ::  js        !< grid index of real observation point of the respective station in y-direction
-    INTEGER(iwp) ::  k         !< grid index of observation point in x-direction
+!    INTEGER(iwp) ::  k         !< grid index of observation point in x-direction
     INTEGER(iwp) ::  kl        !< lower vertical index of surrounding grid points of an observation coordinate
     INTEGER(iwp) ::  ks        !< grid index of real observation point of the respective station in z-direction
@@ -712 +714 @@
      IMPLICIT NONE
      
-     CHARACTER(LEN=10) ::  trimvar !< dummy for the measured variable name
+!     CHARACTER(LEN=10) ::  trimvar !< dummy for the measured variable name
       
      INTEGER(iwp) ::  i  !< grid index in x-direction