Changeset 1764 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Feb 28, 2016 12:45:19 PM (8 years ago)

Author:

raasch

Message:

update of the nested domain system + some bugfixes

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! bugfix: increase size of volume_flow_area_l and volume_flow_initial_l by 1
 !
 ! Former revisions:
@@ -302 +302 @@
     INTEGER(iwp), DIMENSION(:,:), ALLOCATABLE ::  ngp_2dh_s_inner_l  !<
 
-    REAL(wp), DIMENSION(1:2) ::  volume_flow_area_l     !<
-    REAL(wp), DIMENSION(1:2) ::  volume_flow_initial_l  !<
+    REAL(wp), DIMENSION(1:3) ::  volume_flow_area_l     !<
+    REAL(wp), DIMENSION(1:3) ::  volume_flow_initial_l  !<
 
     REAL(wp), DIMENSION(:), ALLOCATABLE ::  mean_surface_level_height_l    !<