Index: palm/trunk/SOURCE/netcdf_data_input_mod.f90
===================================================================
--- palm/trunk/SOURCE/netcdf_data_input_mod.f90	(revision 3942)
+++ palm/trunk/SOURCE/netcdf_data_input_mod.f90	(revision 3943)
@@ -25,4 +25,7 @@
 ! -----------------
 ! $Id$
+! Temporarily disabled some (faulty) checks for static driver.
+! 
+! 3942 2019-04-30 13:08:30Z kanani
 ! Fix: increase LEN of all NetCDF attribute values (caused crash in 
 ! netcdf_create_global_atts due to insufficient length)
@@ -4256,62 +4259,62 @@
 !
 !--          Check if building_type is set at each building and vice versa.
-             IF ( building_type_f%from_file  .AND.  buildings_f%from_file )  THEN
-                IF ( buildings_f%lod == 1 )  THEN
-                   IF ( buildings_f%var_2d(j,i)  /= buildings_f%fill1  .AND.   &
-                        building_type_f%var(j,i) == building_type_f%fill  .OR. &
-                        buildings_f%var_2d(j,i)  == buildings_f%fill1  .AND.   &
-                        building_type_f%var(j,i) /= building_type_f%fill )  THEN
-                      WRITE( message_string, * ) 'Each location where a ' //   &
-                                      '2D building is set requires a type ' // &
-                                      '( and vice versa ) in case the ' //     &
-                                      'urban-surface model is applied. ' //    &
-                                      'i, j = ', i, j
-                      CALL message( 'netcdf_data_input_mod', 'PA0573',         &
-                                     2, 2, myid, 6, 0 )
-                   ENDIF
-                ENDIF
-                IF ( buildings_f%lod == 2 )  THEN
-                   IF ( ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
-                        building_type_f%var(j,i) == building_type_f%fill  .OR. &
-                  .NOT. ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
-                        building_type_f%var(j,i) /= building_type_f%fill )  THEN
-                      WRITE( message_string, * ) 'Each location where a ' //   &
-                                      '3D building is set requires a type ' // &
-                                      '( and vice versa ) in case the ' //     &
-                                      'urban-surface model is applied. ' //    &
-                                      'i, j = ', i, j
-                      CALL message( 'netcdf_data_input_mod', 'PA0573',         &
-                                     2, 2, myid, 6, 0 )
-                   ENDIF
-                ENDIF
-             ENDIF
+!              IF ( building_type_f%from_file  .AND.  buildings_f%from_file )  THEN
+!                 IF ( buildings_f%lod == 1 )  THEN
+!                    IF ( buildings_f%var_2d(j,i)  /= buildings_f%fill1  .AND.   &
+!                         building_type_f%var(j,i) == building_type_f%fill  .OR. &
+!                         buildings_f%var_2d(j,i)  == buildings_f%fill1  .AND.   &
+!                         building_type_f%var(j,i) /= building_type_f%fill )  THEN
+!                       WRITE( message_string, * ) 'Each location where a ' //   &
+!                                       '2D building is set requires a type ' // &
+!                                       '( and vice versa ) in case the ' //     &
+!                                       'urban-surface model is applied. ' //    &
+!                                       'i, j = ', i, j
+!                       CALL message( 'netcdf_data_input_mod', 'PA0573',         &
+!                                      2, 2, myid, 6, 0 )
+!                    ENDIF
+!                 ENDIF
+!                 IF ( buildings_f%lod == 2 )  THEN
+!                    IF ( ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
+!                         building_type_f%var(j,i) == building_type_f%fill  .OR. &
+!                   .NOT. ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
+!                         building_type_f%var(j,i) /= building_type_f%fill )  THEN
+!                       WRITE( message_string, * ) 'Each location where a ' //   &
+!                                       '3D building is set requires a type ' // &
+!                                       '( and vice versa ) in case the ' //     &
+!                                       'urban-surface model is applied. ' //    &
+!                                       'i, j = ', i, j
+!                       CALL message( 'netcdf_data_input_mod', 'PA0573',         &
+!                                      2, 2, myid, 6, 0 )
+!                    ENDIF
+!                 ENDIF
+!              ENDIF
 !
 !--          Check if at each location where a building is present also an ID
 !--          is set and vice versa.
-             IF ( buildings_f%from_file )  THEN
-                IF ( buildings_f%lod == 1 )  THEN
-                   IF ( buildings_f%var_2d(j,i) /= buildings_f%fill1  .AND.    &
-                        building_id_f%var(j,i)  == building_id_f%fill  .OR.    &
-                        buildings_f%var_2d(j,i) == buildings_f%fill1  .AND.    &
-                        building_id_f%var(j,i)  /= building_id_f%fill )  THEN
-                      WRITE( message_string, * ) 'Each location where a ' //   &
-                                      '2D building is set requires an ID ' //  &
-                                      '( and vice versa ). i, j = ', i, j
-                      CALL message( 'netcdf_data_input_mod', 'PA0574',         &
-                                     2, 2, myid, 6, 0 )
-                   ENDIF
-                ELSEIF ( buildings_f%lod == 2 )  THEN
-                   IF ( ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
-                        building_id_f%var(j,i) == building_id_f%fill  .OR.     &
-                  .NOT. ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
-                        building_id_f%var(j,i) /= building_id_f%fill )  THEN
-                      WRITE( message_string, * ) 'Each location where a ' //   &
-                                      '3D building is set requires an ID ' //  &
-                                      '( and vice versa ). i, j = ', i, j
-                      CALL message( 'netcdf_data_input_mod', 'PA0574',         &
-                                     2, 2, myid, 6, 0 )
-                   ENDIF
-                ENDIF
-             ENDIF
+!              IF ( buildings_f%from_file )  THEN
+!                 IF ( buildings_f%lod == 1 )  THEN
+!                    IF ( buildings_f%var_2d(j,i) /= buildings_f%fill1  .AND.    &
+!                         building_id_f%var(j,i)  == building_id_f%fill  .OR.    &
+!                         buildings_f%var_2d(j,i) == buildings_f%fill1  .AND.    &
+!                         building_id_f%var(j,i)  /= building_id_f%fill )  THEN
+!                       WRITE( message_string, * ) 'Each location where a ' //   &
+!                                       '2D building is set requires an ID ' //  &
+!                                       '( and vice versa ). i, j = ', i, j
+!                       CALL message( 'netcdf_data_input_mod', 'PA0574',         &
+!                                      2, 2, myid, 6, 0 )
+!                    ENDIF
+!                 ELSEIF ( buildings_f%lod == 2 )  THEN
+!                    IF ( ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
+!                         building_id_f%var(j,i) == building_id_f%fill  .OR.     &
+!                   .NOT. ANY( buildings_f%var_3d(:,j,i) == 1 )  .AND.           &
+!                         building_id_f%var(j,i) /= building_id_f%fill )  THEN
+!                       WRITE( message_string, * ) 'Each location where a ' //   &
+!                                       '3D building is set requires an ID ' //  &
+!                                       '( and vice versa ). i, j = ', i, j
+!                       CALL message( 'netcdf_data_input_mod', 'PA0574',         &
+!                                      2, 2, myid, 6, 0 )
+!                    ENDIF
+!                 ENDIF
+!              ENDIF
 !
 !--          Check if building ID is set where a bulding is defined.
