Ignore:
Timestamp:
Apr 30, 2019 1:08:30 PM (3 years ago)
Author:
kanani
Message:

Fix too short driver attribute lengths, and individualize error messages (netcdf_data_input_mod, netcdf_interface_mod)

File:
1 edited

Legend:

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

    r3941 r3942  
    2525! -----------------
    2626! $Id$
     27! Fix: increase LEN of all NetCDF attribute values (caused crash in
     28! netcdf_create_global_atts due to insufficient length)
     29!
     30! 3941 2019-04-30 09:48:33Z suehring
    2731! Move check for grid dimension to an earlier point in time when first array
    2832! is read.
     
    638642!-- attribute.
    639643    TYPE global_atts_type
    640        CHARACTER(LEN=12 ) ::  acronym                            !< acronym of institution
     644       CHARACTER(LEN=200) ::  acronym = ' '                      !< acronym of institution
    641645       CHARACTER(LEN=7)   ::  acronym_char = 'acronym'           !< name of attribute
    642        CHARACTER(LEN=200) ::  author                             !< first name, last name, email adress
     646       CHARACTER(LEN=200) ::  author  = ' '                      !< first name, last name, email adress
    643647       CHARACTER(LEN=6)   ::  author_char = 'author'             !< name of attribute
    644        CHARACTER(LEN=12 ) ::  campaign = 'PALM-4U'               !< name of campaign
     648       CHARACTER(LEN=200) ::  campaign = 'PALM-4U'               !< name of campaign
    645649       CHARACTER(LEN=8)   ::  campaign_char = 'campaign'         !< name of attribute
    646        CHARACTER(LEN=200) ::  comment                            !< comment to data
     650       CHARACTER(LEN=200) ::  comment = ' '                      !< comment to data
    647651       CHARACTER(LEN=7)   ::  comment_char = 'comment'           !< name of attribute
    648        CHARACTER(LEN=200) ::  contact_person                     !< first name, last name, email adress
     652       CHARACTER(LEN=200) ::  contact_person = ' '               !< first name, last name, email adress
    649653       CHARACTER(LEN=14)  ::  contact_person_char = 'contact_person'  !< name of attribute
    650654       CHARACTER(LEN=200) ::  conventions = 'CF-1.7'             !< netCDF convention
    651655       CHARACTER(LEN=11)  ::  conventions_char = 'Conventions'   !< name of attribute
    652        CHARACTER(LEN=23 ) ::  creation_time                      !< creation time of data set
     656       CHARACTER(LEN=23 ) ::  creation_time = ' '                !< creation time of data set
    653657       CHARACTER(LEN=13)  ::  creation_time_char = 'creation_time'  !< name of attribute
    654        CHARACTER(LEN=16 ) ::  data_content                       !< content of data set
     658       CHARACTER(LEN=200) ::  data_content = ' '                 !< content of data set
    655659       CHARACTER(LEN=12)  ::  data_content_char = 'data_content' !< name of attribute
    656        CHARACTER(LEN=200) ::  dependencies                       !< dependencies of data set
     660       CHARACTER(LEN=200) ::  dependencies = ' '                 !< dependencies of data set
    657661       CHARACTER(LEN=12)  ::  dependencies_char = 'dependencies' !< name of attribute
    658        CHARACTER(LEN=200) ::  history                            !< information about data processing
     662       CHARACTER(LEN=200) ::  history = ' '                      !< information about data processing
    659663       CHARACTER(LEN=7)   ::  history_char = 'history'           !< name of attribute
    660        CHARACTER(LEN=200) ::  institution                        !< name of responsible institution
     664       CHARACTER(LEN=200) ::  institution = ' '                  !< name of responsible institution
    661665       CHARACTER(LEN=11)  ::  institution_char = 'institution'   !< name of attribute
    662        CHARACTER(LEN=200) ::  keywords                           !< keywords of data set
     666       CHARACTER(LEN=200) ::  keywords = ' '                     !< keywords of data set
    663667       CHARACTER(LEN=8)   ::  keywords_char = 'keywords'         !< name of attribute
    664        CHARACTER(LEN=200) ::  licence                            !< licence of data set
     668       CHARACTER(LEN=200) ::  licence = ' '                      !< licence of data set
    665669       CHARACTER(LEN=7)   ::  licence_char = 'licence'           !< name of attribute
    666        CHARACTER(LEN=200) ::  location                           !< place which refers to data set
     670       CHARACTER(LEN=200) ::  location = ' '                     !< place which refers to data set
    667671       CHARACTER(LEN=8)   ::  location_char = 'location'         !< name of attribute
    668672       CHARACTER(LEN=10)  ::  origin_lat_char = 'origin_lat'     !< name of attribute
     
    674678       CHARACTER(LEN=8)   ::  origin_z_char = 'origin_z'         !< name of attribute
    675679       CHARACTER(LEN=12)  ::  palm_version_char = 'palm_version' !< name of attribute
    676        CHARACTER(LEN=200) ::  references                         !< literature referring to data set
     680       CHARACTER(LEN=200) ::  references = ' '                   !< literature referring to data set
    677681       CHARACTER(LEN=10)  ::  references_char = 'references'     !< name of attribute
    678682       CHARACTER(LEN=14)  ::  rotation_angle_char = 'rotation_angle'  !< name of attribute
    679        CHARACTER(LEN=12 ) ::  site                               !< name of model domain
     683       CHARACTER(LEN=200) ::  site = ' '                         !< name of model domain
    680684       CHARACTER(LEN=4)   ::  site_char = 'site'                 !< name of attribute
    681        CHARACTER(LEN=200) ::  source                             !< source of data set
     685       CHARACTER(LEN=200) ::  source = ' '                       !< source of data set
    682686       CHARACTER(LEN=6)   ::  source_char = 'source'             !< name of attribute
    683        CHARACTER(LEN=200) ::  title                              !< title of data set
     687       CHARACTER(LEN=200) ::  title = ' '                        !< title of data set
    684688       CHARACTER(LEN=5)   ::  title_char = 'title'               !< name of attribute
    685689       CHARACTER(LEN=7)   ::  version_char = 'version'           !< name of attribute
Note: See TracChangeset for help on using the changeset viewer.