Changeset 4707 for palm/trunk

Timestamp:

Sep 28, 2020 2:25:28 PM (4 years ago)

Author:

suehring

Message:

Bugfix for previous commit + minor formatting adjustments

File:

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

palm/trunk/SOURCE/virtual_measurement_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for previous commit + minor formatting adjustments
+!
+! 4706 2020-09-28 13:15:23Z suehring
 ! Revise setting of measurement height above ground for trajectory measurements
 !
@@ -337 +340 @@
     END TYPE virt_mea
 
-    CHARACTER(LEN=5)  ::  char_eutm = "E_UTM"            !< dimension name for UTM coordinate easting
-    CHARACTER(LEN=11) ::  char_feature = "featureType"   !< attribute name for feature type
+    CHARACTER(LEN=5)  ::  char_eutm = 'E_UTM'            !< dimension name for UTM coordinate easting
+    CHARACTER(LEN=11) ::  char_feature = 'featureType'   !< attribute name for feature type
 
     ! This need to be generalized
     CHARACTER(LEN=10) ::  char_fill = '_FillValue'                 !< attribute name for fill value
-    CHARACTER(LEN=1)  ::  char_height = "height"                   !< attribute name indicating height above surface (for trajectories only)
+    CHARACTER(LEN=6)  ::  char_height = 'height'                   !< attribute name indicating height above surface (for trajectories only)
     CHARACTER(LEN=9)  ::  char_long = 'long_name'                  !< attribute name for long_name
-    CHARACTER(LEN=18) ::  char_mv = "measured_variables"           !< variable name for the array with the measured variable names
-    CHARACTER(LEN=5)  ::  char_nutm = "N_UTM"                      !< dimension name for UTM coordinate northing
-    CHARACTER(LEN=18) ::  char_numstations = "number_of_stations"  !< attribute name for number of stations
-    CHARACTER(LEN=8)  ::  char_origx = "origin_x"                  !< attribute name for station coordinate in x
-    CHARACTER(LEN=8)  ::  char_origy = "origin_y"                  !< attribute name for station coordinate in y
-    CHARACTER(LEN=4)  ::  char_site = "site"                       !< attribute name for site name
-    CHARACTER(LEN=11) ::  char_soil = "soil_sample"                !< attribute name for soil sampling indication
+    CHARACTER(LEN=18) ::  char_mv = 'measured_variables'           !< variable name for the array with the measured variable names
+    CHARACTER(LEN=5)  ::  char_nutm = 'N_UTM'                      !< dimension name for UTM coordinate northing
+    CHARACTER(LEN=18) ::  char_numstations = 'number_of_stations'  !< attribute name for number of stations
+    CHARACTER(LEN=8)  ::  char_origx = 'origin_x'                  !< attribute name for station coordinate in x
+    CHARACTER(LEN=8)  ::  char_origy = 'origin_y'                  !< attribute name for station coordinate in y
+    CHARACTER(LEN=4)  ::  char_site = 'site'                       !< attribute name for site name
+    CHARACTER(LEN=11) ::  char_soil = 'soil_sample'                !< attribute name for soil sampling indication
     CHARACTER(LEN=13) ::  char_standard = 'standard_name'          !< attribute name for standard_name
-    CHARACTER(LEN=9)  ::  char_station_h = "station_h"             !< variable name indicating height of the site
+    CHARACTER(LEN=9)  ::  char_station_h = 'station_h'             !< variable name indicating height of the site
     CHARACTER(LEN=5)  ::  char_unit = 'units'                      !< attribute name for standard_name
-    CHARACTER(LEN=1)  ::  char_zar = "z"                           !< attribute name indicating height above reference level
+    CHARACTER(LEN=1)  ::  char_zar = 'z'                           !< attribute name indicating height above reference level
     CHARACTER(LEN=10) ::  type_ts   = 'timeSeries'                 !< name of stationary point measurements
     CHARACTER(LEN=10) ::  type_traj = 'trajectory'                 !< name of line measurements