Changeset 2892
- Timestamp:
- Mar 14, 2018 3:06:29 PM (7 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r2867 r2892 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix, uninitialized array in case of single_building. 28 ! 29 ! 2867 2018-03-09 09:40:23Z suehring 27 30 ! Revise mapping of 3D buildings onto onto orography. 28 31 ! … … 1597 1600 1598 1601 ALLOCATE( nzb_local(nysg:nyng,nxlg:nxrg) ) 1602 nzb_local = 0 1599 1603 ! 1600 1604 !-- Define the building. -
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r2770 r2892 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix, read separate ASCII LAD files for parent and child model. 28 ! 29 ! 2770 2018-01-25 15:10:09Z kanani 27 30 ! Correction of parameter check 28 31 ! … … 1012 1015 1013 1016 USE control_parameters, & 1014 ONLY: message_string, passive_scalar1017 ONLY: coupling_char, message_string, passive_scalar 1015 1018 1016 1019 USE indices, & … … 1033 1036 ! 1034 1037 !-- 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) 1037 1041 READ(152, *, err=516, end=517) nzp !< read first line = number of vertical layers 1038 1042
Note: See TracChangeset
for help on using the changeset viewer.