Changeset 3518 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 12, 2018 6:10:23 PM (4 years ago)
Author:
suehring
Message:

additional checks for static input file

File:
1 edited

Legend:

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

    r3516 r3518  
    2525! -----------------
    2626! $Id$
     27! Additional checks
     28!
     29! 3516 2018-11-12 15:49:39Z gronemeier
    2730! bugfix: - difference in z coordinate between file and PALM must be <1e-6
    2831!         - output of error 553 for all PEs
     
    25832586          CALL inquire_variable_names( id_uvem, var_names )
    25842587!
    2585 !
    25862588!--       uvem integration
    25872589          IF ( check_existence( var_names, 'int_factors' ) )  THEN
     
    25962598          ENDIF
    25972599!
    2598 !
    2599 !
    26002600!--       uvem irradiance
    26012601          IF ( check_existence( var_names, 'irradiance' ) )  THEN
     
    26102610          ENDIF
    26112611!
    2612 !
    2613 !
    26142612!--       uvem porjection areas
    26152613          IF ( check_existence( var_names, 'projarea' ) )  THEN
     
    26242622          ENDIF
    26252623!
    2626 !
    2627 !
    26282624!--       uvem radiance
    26292625          IF ( check_existence( var_names, 'radiance' ) )  THEN
     
    26372633             uvem_radiance_f%from_file = .FALSE.
    26382634          ENDIF
    2639 !
    2640 !
    26412635!
    26422636!--       Read building obstruction
     
    26612655             building_obstruction_f%from_file = .FALSE.
    26622656          ENDIF
    2663 !
    2664 !
    2665 !
    26662657!
    26672658!--       Close uvem lookup table input file
     
    40384029       ENDIF
    40394030!
     4031!--    Buildings require a type in case of urban-surface model.
     4032       IF ( buildings_f%from_file  .AND.  .NOT. building_type_f%from_file  )  THEN
     4033          message_string = 'If buildings are provided, also building_type ' // &
     4034                           'is required'
     4035          CALL message( 'netcdf_data_input_mod', 'PA0581', 2, 2, myid, 6, 0 )
     4036       ENDIF
     4037!
     4038!--    Buildings require an ID.
     4039       IF ( buildings_f%from_file  .AND.  .NOT. building_id_f%from_file  )  THEN
     4040          message_string = 'If buildings are provided, also building_id ' //   &
     4041                           'is required'
     4042          CALL message( 'netcdf_data_input_mod', 'PA0582', 2, 2, myid, 6, 0 )
     4043       ENDIF
     4044!
    40404045!--    If building_type is zero at any location, building_pars is required.
    40414046       IF ( building_type_f%from_file )  THEN
     
    40494054       ENDIF
    40504055!
    4051 !--    If building_type is provided, also building_id is needed
     4056!--    If building_type is provided, also building_id is needed (due to the
     4057!--    filtering algorithm).
    40524058       IF ( building_type_f%from_file  .AND.  .NOT. building_id_f%from_file )  &
    40534059       THEN
Note: See TracChangeset for help on using the changeset viewer.