Changeset 2892 for palm/trunk

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:

• init_grid.f90 (modified) (2 diffs)
• plant_canopy_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, uninitialized array in case of single_building.
+! 
+! 2867 2018-03-09 09:40:23Z suehring
 ! Revise mapping of 3D buildings onto onto orography.
 ! 
@@ -1597 +1600 @@
 
           ALLOCATE( nzb_local(nysg:nyng,nxlg:nxrg) )
+          nzb_local = 0
 !
 !--       Define the building. 

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, read separate ASCII LAD files for parent and child model. 
+! 
+! 2770 2018-01-25 15:10:09Z kanani
 ! Correction of parameter check
 ! 
@@ -1012 +1015 @@
     
        USE control_parameters,                                                 &
-           ONLY:  message_string, passive_scalar
+           ONLY:  coupling_char, message_string, passive_scalar
 
        USE indices,                                                            &
@@ -1033 +1036 @@
 !
 !--    Open and read plant canopy input data
-       OPEN(152, file='PLANT_CANOPY_DATA_3D', access='SEQUENTIAL', &
-                 action='READ', status='OLD', form='FORMATTED', err=515)
+       OPEN(152, file='PLANT_CANOPY_DATA_3D' // TRIM( coupling_char ),         &
+                 access='SEQUENTIAL', action='READ', status='OLD',             &
+                 form='FORMATTED', err=515)
        READ(152, *, err=516, end=517) nzp   !< read first line = number of vertical layers