Changeset 3429 for palm/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r3421 r3429  
    12941294!--    Skip the following if no land-surface or urban-surface module are
    12951295!--    applied. This case, no one of the following variables is used anyway.
    1296        IF (  .NOT. land_surface  .OR.  .NOT. urban_surface )  RETURN
     1296       IF (  .NOT. land_surface  .AND.  .NOT. urban_surface )  RETURN
    12971297!
    12981298!--    Initialize dummy arrays used for ghost-point exchange
     
    34853485!--    Skip further checks concerning buildings and natural surface properties
    34863486!--    if no urban surface and land surface model are applied.
    3487        IF (  .NOT. land_surface  .OR.  .NOT. urban_surface )  RETURN
     3487       IF (  .NOT. land_surface  .AND.  .NOT. urban_surface )  RETURN
    34883488!
    34893489!--    Check for minimum requirement of surface-classification data in case
Note: See TracChangeset for help on using the changeset viewer.