Changeset 3518 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Nov 12, 2018 6:10:23 PM (5 years ago)

Author:

suehring

Message:

additional checks for static input file

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (9 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Additional checks
+! 
+! 3516 2018-11-12 15:49:39Z gronemeier
 ! bugfix: - difference in z coordinate between file and PALM must be <1e-6
 !         - output of error 553 for all PEs
@@ -2583 +2586 @@
           CALL inquire_variable_names( id_uvem, var_names )
 !
-!
 !--       uvem integration
           IF ( check_existence( var_names, 'int_factors' ) )  THEN
@@ -2596 +2598 @@
           ENDIF
 !
-!
-!
 !--       uvem irradiance
           IF ( check_existence( var_names, 'irradiance' ) )  THEN
@@ -2610 +2610 @@
           ENDIF
 !
-!
-!
 !--       uvem porjection areas
           IF ( check_existence( var_names, 'projarea' ) )  THEN
@@ -2624 +2622 @@
           ENDIF
 !
-!
-!
 !--       uvem radiance
           IF ( check_existence( var_names, 'radiance' ) )  THEN
@@ -2637 +2633 @@
              uvem_radiance_f%from_file = .FALSE.
           ENDIF
-!
-!
 !
 !--       Read building obstruction
@@ -2661 +2655 @@
              building_obstruction_f%from_file = .FALSE.
           ENDIF
-!
-!
-!
 !
 !--       Close uvem lookup table input file
@@ -4038 +4029 @@
        ENDIF
 !
+!--    Buildings require a type in case of urban-surface model.
+       IF ( buildings_f%from_file  .AND.  .NOT. building_type_f%from_file  )  THEN
+          message_string = 'If buildings are provided, also building_type ' // &
+                           'is required'
+          CALL message( 'netcdf_data_input_mod', 'PA0581', 2, 2, myid, 6, 0 )
+       ENDIF
+!
+!--    Buildings require an ID.
+       IF ( buildings_f%from_file  .AND.  .NOT. building_id_f%from_file  )  THEN
+          message_string = 'If buildings are provided, also building_id ' //   &
+                           'is required'
+          CALL message( 'netcdf_data_input_mod', 'PA0582', 2, 2, myid, 6, 0 )
+       ENDIF
+!
 !--    If building_type is zero at any location, building_pars is required.
        IF ( building_type_f%from_file )  THEN
@@ -4049 +4054 @@
        ENDIF
 !
-!--    If building_type is provided, also building_id is needed
+!--    If building_type is provided, also building_id is needed (due to the 
+!--    filtering algorithm).
        IF ( building_type_f%from_file  .AND.  .NOT. building_id_f%from_file )  &
        THEN