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

Timestamp:

May 22, 2007 3:46:47 PM (17 years ago)

Author:

raasch

Message:

Preliminary update for user defined profiles

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Actual revisions:
 ! -----------------
-! 
+! var_hom and var_sum renamed pr_palm
 !
 ! Former revisions:
@@ -81 +81 @@
               sums_divold_l(0:statistic_regions) )
     ALLOCATE( rdf(nzb+1:nzt) )
-    ALLOCATE( hom_sum(nzb:nzt+1,var_hom,0:statistic_regions),               &
+    ALLOCATE( hom_sum(nzb:nzt+1,pr_palm+max_pr_user,0:statistic_regions),   &
               ngp_2dh_outer(nzb:nzt+1,0:statistic_regions),                 &
               ngp_2dh_outer_l(nzb:nzt+1,0:statistic_regions),               &
               rmask(nys-1:nyn+1,nxl-1:nxr+1,0:statistic_regions),           &
-              sums(nzb:nzt+1,var_sum),                                      &
-              sums_l(nzb:nzt+1,var_sum,0:threads_per_task-1),               &
+              sums(nzb:nzt+1,pr_palm+max_pr_user),                          &
+              sums_l(nzb:nzt+1,pr_palm+max_pr_user,0:threads_per_task-1),   &
               sums_l_l(nzb:nzt+1,0:statistic_regions,0:threads_per_task-1), &
               sums_up_fraction_l(10,3,0:statistic_regions),                 &
@@ -931 +931 @@
     ngp_3d_inner    = 0
     ngp_3d          = 0
-    ngp_sums        = ( nz + 2 ) * var_sum
+    ngp_sums        = ( nz + 2 ) * ( pr_palm + max_pr_user )
 
     DO  sr = 0, statistic_regions