Changeset 4707 for palm


Ignore:
Timestamp:
Sep 28, 2020 2:25:28 PM (4 years ago)
Author:
suehring
Message:

Bugfix for previous commit + minor formatting adjustments

File:
1 edited

Legend:

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

    r4706 r4707  
    2525! -----------------
    2626! $Id$
     27! Bugfix for previous commit + minor formatting adjustments
     28!
     29! 4706 2020-09-28 13:15:23Z suehring
    2730! Revise setting of measurement height above ground for trajectory measurements
    2831!
     
    337340    END TYPE virt_mea
    338341
    339     CHARACTER(LEN=5)  ::  char_eutm = "E_UTM"            !< dimension name for UTM coordinate easting
    340     CHARACTER(LEN=11) ::  char_feature = "featureType"   !< attribute name for feature type
     342    CHARACTER(LEN=5)  ::  char_eutm = 'E_UTM'            !< dimension name for UTM coordinate easting
     343    CHARACTER(LEN=11) ::  char_feature = 'featureType'   !< attribute name for feature type
    341344
    342345    ! This need to be generalized
    343346    CHARACTER(LEN=10) ::  char_fill = '_FillValue'                 !< attribute name for fill value
    344     CHARACTER(LEN=1)  ::  char_height = "height"                   !< attribute name indicating height above surface (for trajectories only)
     347    CHARACTER(LEN=6)  ::  char_height = 'height'                   !< attribute name indicating height above surface (for trajectories only)
    345348    CHARACTER(LEN=9)  ::  char_long = 'long_name'                  !< attribute name for long_name
    346     CHARACTER(LEN=18) ::  char_mv = "measured_variables"           !< variable name for the array with the measured variable names
    347     CHARACTER(LEN=5)  ::  char_nutm = "N_UTM"                      !< dimension name for UTM coordinate northing
    348     CHARACTER(LEN=18) ::  char_numstations = "number_of_stations"  !< attribute name for number of stations
    349     CHARACTER(LEN=8)  ::  char_origx = "origin_x"                  !< attribute name for station coordinate in x
    350     CHARACTER(LEN=8)  ::  char_origy = "origin_y"                  !< attribute name for station coordinate in y
    351     CHARACTER(LEN=4)  ::  char_site = "site"                       !< attribute name for site name
    352     CHARACTER(LEN=11) ::  char_soil = "soil_sample"                !< attribute name for soil sampling indication
     349    CHARACTER(LEN=18) ::  char_mv = 'measured_variables'           !< variable name for the array with the measured variable names
     350    CHARACTER(LEN=5)  ::  char_nutm = 'N_UTM'                      !< dimension name for UTM coordinate northing
     351    CHARACTER(LEN=18) ::  char_numstations = 'number_of_stations'  !< attribute name for number of stations
     352    CHARACTER(LEN=8)  ::  char_origx = 'origin_x'                  !< attribute name for station coordinate in x
     353    CHARACTER(LEN=8)  ::  char_origy = 'origin_y'                  !< attribute name for station coordinate in y
     354    CHARACTER(LEN=4)  ::  char_site = 'site'                       !< attribute name for site name
     355    CHARACTER(LEN=11) ::  char_soil = 'soil_sample'                !< attribute name for soil sampling indication
    353356    CHARACTER(LEN=13) ::  char_standard = 'standard_name'          !< attribute name for standard_name
    354     CHARACTER(LEN=9)  ::  char_station_h = "station_h"             !< variable name indicating height of the site
     357    CHARACTER(LEN=9)  ::  char_station_h = 'station_h'             !< variable name indicating height of the site
    355358    CHARACTER(LEN=5)  ::  char_unit = 'units'                      !< attribute name for standard_name
    356     CHARACTER(LEN=1)  ::  char_zar = "z"                           !< attribute name indicating height above reference level
     359    CHARACTER(LEN=1)  ::  char_zar = 'z'                           !< attribute name indicating height above reference level
    357360    CHARACTER(LEN=10) ::  type_ts   = 'timeSeries'                 !< name of stationary point measurements
    358361    CHARACTER(LEN=10) ::  type_traj = 'trajectory'                 !< name of line measurements
Note: See TracChangeset for help on using the changeset viewer.