Changeset 2892


Ignore:
Timestamp:
Mar 14, 2018 3:06:29 PM (7 years ago)
Author:
suehring
Message:

Bugfixes, missing coupling_char for child-domain ASCII file; uninitialized array in single_building setup

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r2867 r2892  
    2525! -----------------
    2626! $Id$
     27! Bugfix, uninitialized array in case of single_building.
     28!
     29! 2867 2018-03-09 09:40:23Z suehring
    2730! Revise mapping of 3D buildings onto onto orography.
    2831!
     
    15971600
    15981601          ALLOCATE( nzb_local(nysg:nyng,nxlg:nxrg) )
     1602          nzb_local = 0
    15991603!
    16001604!--       Define the building.
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r2770 r2892  
    2525! -----------------
    2626! $Id$
     27! Bugfix, read separate ASCII LAD files for parent and child model.
     28!
     29! 2770 2018-01-25 15:10:09Z kanani
    2730! Correction of parameter check
    2831!
     
    10121015   
    10131016       USE control_parameters,                                                 &
    1014            ONLY:  message_string, passive_scalar
     1017           ONLY:  coupling_char, message_string, passive_scalar
    10151018
    10161019       USE indices,                                                            &
     
    10331036!
    10341037!--    Open and read plant canopy input data
    1035        OPEN(152, file='PLANT_CANOPY_DATA_3D', access='SEQUENTIAL', &
    1036                  action='READ', status='OLD', form='FORMATTED', err=515)
     1038       OPEN(152, file='PLANT_CANOPY_DATA_3D' // TRIM( coupling_char ),         &
     1039                 access='SEQUENTIAL', action='READ', status='OLD',             &
     1040                 form='FORMATTED', err=515)
    10371041       READ(152, *, err=516, end=517) nzp   !< read first line = number of vertical layers
    10381042       
Note: See TracChangeset for help on using the changeset viewer.