Changeset 143 for palm/trunk/SOURCE/parin.f90

Timestamp:

Dec 28, 2007 9:44:53 AM (17 years ago)

Author:

raasch

Message:

first preliminary update for turbulent inflow

File:

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

palm/trunk/SOURCE/parin.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Allocation of hom_sum moved from init_3d_model to here
 !
 ! Former revisions:
@@ -243 +243 @@
 
        ALLOCATE( ug(0:nz+1), vg(0:nz+1), &
-                 pt_init(0:nz+1), q_init(0:nz+1), sa_init(0:nz+1), &
-                 u_init(0:nz+1), v_init(0:nz+1),                   &
-                 hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions) )
+                 pt_init(0:nz+1), q_init(0:nz+1), sa_init(0:nz+1),          &
+                 u_init(0:nz+1), v_init(0:nz+1),                            &
+                 hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions),     &
+                 hom_sum(nzb:nzt+1,pr_palm+max_pr_user,0:statistic_regions) )
        hom = 0.0