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

Timestamp:

Oct 19, 2018 10:15:32 AM (6 years ago)

Author:

suehring

Message:

Additional checks for consistent building initialization; error messages and numbers are revised in STG

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Additional check for consistent building initialization implemented
+! 
+! 3347 2018-10-15 14:21:08Z suehring
 ! Subroutine renamed
 ! 
@@ -3548 +3551 @@
           ENDIF
        ENDIF
+!
+!--    If building_type is provided, also building_id is needed
+       IF ( building_type_f%from_file  .AND.  .NOT. building_id_f%from_file )  &
+       THEN
+          message_string = 'If building_type is provided, also building_id '// &
+                           'is required'
+          CALL message( 'netcdf_data_input_mod', 'PA0519', 2, 2, myid, 6, 0 )
+       ENDIF       
 !
 !--    If albedo_type is zero at any location, albedo_pars is required.