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

Timestamp:

Oct 25, 2018 1:04:23 PM (6 years ago)

Author:

knoop

Message:

Bugfix: allow surface type allocations even if only one of "land_surface" or "urban_surface" is true

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -1294 +1294 @@
 !--    Skip the following if no land-surface or urban-surface module are
 !--    applied. This case, no one of the following variables is used anyway.
-       IF (  .NOT. land_surface  .OR.  .NOT. urban_surface )  RETURN
+       IF (  .NOT. land_surface  .AND.  .NOT. urban_surface )  RETURN
 !
 !--    Initialize dummy arrays used for ghost-point exchange
@@ -3485 +3485 @@
 !--    Skip further checks concerning buildings and natural surface properties
 !--    if no urban surface and land surface model are applied.
-       IF (  .NOT. land_surface  .OR.  .NOT. urban_surface )  RETURN
+       IF (  .NOT. land_surface  .AND.  .NOT. urban_surface )  RETURN
 !
 !--    Check for minimum requirement of surface-classification data in case