Ignore:
Timestamp:
Jan 10, 2019 8:28:24 AM (2 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:
1 edited

Legend:

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

    r3522 r3665  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3522 2018-11-13 12:14:36Z suehring
    2730! Sampling of variables
    2831!
     
    184187    INTEGER(iwp) ::  id_vm                           !< NetCDF file id for virtual measurements
    185188    INTEGER(iwp) ::  nvm = 0                         !< number of virtual measurements
    186     INTEGER(iwp) ::  observation_coverage_xy = 0     !< horizontal distance from the measurement point where observations should be taken in the surrounding
    187     INTEGER(iwp) ::  observation_coverage_z  = 0     !< vertical distance from the measurement point where observations should be taken in the surrounding
     189!    INTEGER(iwp) ::  observation_coverage_xy = 0     !< horizontal distance from the measurement point where observations should be taken in the surrounding
     190!    INTEGER(iwp) ::  observation_coverage_z  = 0     !< vertical distance from the measurement point where observations should be taken in the surrounding
    188191   
    189192    LOGICAL ::  use_virtual_measurement = .FALSE. !< Namelist parameter
     
    316319 
    317320    USE netcdf_data_input_mod,                                                 &
    318         ONLY:  init_model, input_file_vm,                                      &
    319                netcdf_data_input_get_dimension_length,                         &
     321        ONLY:  input_file_vm, netcdf_data_input_get_dimension_length,          &
    320322               netcdf_data_input_att, netcdf_data_input_var
    321323               
     
    329331    CHARACTER(LEN=10), DIMENSION(50) ::  measured_variables      = '' !< dummy array with all measured variables that are allowed   
    330332   
    331     INTEGER(iwp) ::  dim_eutm  !< dimension size of UTM easting coordinate
    332     INTEGER(iwp) ::  dim_nutm  !< dimension size of UTM northing coordinate
     333!    INTEGER(iwp) ::  dim_eutm  !< dimension size of UTM easting coordinate
     334!    INTEGER(iwp) ::  dim_nutm  !< dimension size of UTM northing coordinate
    333335    INTEGER(iwp) ::  dim_ntime !< dimension size of time coordinate
    334     INTEGER(iwp) ::  dim_zag   !< dimension size of height coordinate
    335     INTEGER(iwp) ::  i         !< grid index of virtual observation point in x-direction
    336     INTEGER(iwp) ::  ii        !< running index over all coordinate points of a measurement
     336!    INTEGER(iwp) ::  dim_zag   !< dimension size of height coordinate
     337!    INTEGER(iwp) ::  i         !< grid index of virtual observation point in x-direction
     338!    INTEGER(iwp) ::  ii        !< running index over all coordinate points of a measurement
    337339    INTEGER(iwp) ::  is        !< grid index of real observation point of the respective station in x-direction
    338     INTEGER(iwp) ::  j         !< grid index of observation point in x-direction
     340!    INTEGER(iwp) ::  j         !< grid index of observation point in x-direction
    339341    INTEGER(iwp) ::  js        !< grid index of real observation point of the respective station in y-direction
    340     INTEGER(iwp) ::  k         !< grid index of observation point in x-direction
     342!    INTEGER(iwp) ::  k         !< grid index of observation point in x-direction
    341343    INTEGER(iwp) ::  kl        !< lower vertical index of surrounding grid points of an observation coordinate
    342344    INTEGER(iwp) ::  ks        !< grid index of real observation point of the respective station in z-direction
     
    712714     IMPLICIT NONE
    713715     
    714      CHARACTER(LEN=10) ::  trimvar !< dummy for the measured variable name
     716!     CHARACTER(LEN=10) ::  trimvar !< dummy for the measured variable name
    715717     
    716718     INTEGER(iwp) ::  i  !< grid index in x-direction
Note: See TracChangeset for help on using the changeset viewer.