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

Timestamp:

Dec 2, 2020 9:00:32 PM (4 years ago)

Author:

gronemeier

Message:

bugfix:

• biometeorology_mod:
  • add checks for setup of UV exposure (only workaround!)
  • corrected formatting errors
• netcdf_data_input_mod:
  • deactivated reading of building_obstruction_full due to improper implementation

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! Deactivated reading of building_obstruction_full due to improper implementation (conflicts with
+! building_obstruction_f and it is also not used anywhere else in the code).
 !
 ! Former revisions:
@@ -628 +629 @@
 !-- Define 3D variables of type NC_BYTE
     TYPE(int_3d_8bit)  ::  building_obstruction_f    !< input variable for building obstruction
-    TYPE(int_3d_8bit)  ::  building_obstruction_full !< input variable for building obstruction
+    ! TYPE(int_3d_8bit)  ::  building_obstruction_full !< input variable for building obstruction
 !
 !-- Define 2D variables of type NC_INT
@@ -2094 +2095 @@
 !
 !--    Read building obstruction
-       IF ( check_existence( var_names, 'obstruction' ) )  THEN
-          building_obstruction_full%from_file = .TRUE.
-!
-!--       Input 3D uvem building obstruction
-          ALLOCATE( building_obstruction_full%var_3d(0:44,0:2,0:2) )
-          CALL get_variable( id_uvem, 'obstruction', building_obstruction_full%var_3d, 0, 2, 0, 2, &
-                             0, 44 )
-       ELSE
-          building_obstruction_full%from_file = .FALSE.
-       ENDIF
+!      @bug This part is deactivated due to improper implementation: conflicts with
+!           building_obstruction_f and it is also not used anywhere else in the code
+!        IF ( check_existence( var_names, 'obstruction' ) )  THEN
+!           building_obstruction_full%from_file = .TRUE.
+! !
+! !--       Input 3D uvem building obstruction
+!           ALLOCATE( building_obstruction_full%var_3d(0:44,0:2,0:2) )
+!           CALL get_variable( id_uvem, 'obstruction', building_obstruction_full%var_3d, &
+!                              0, 2, 0, 2, 0, 44 )
+!        ELSE
+!           building_obstruction_full%from_file = .FALSE.
+!        ENDIF
 !
        IF ( check_existence( var_names, 'obstruction' ) )  THEN