Changeset 1195 for palm/trunk

Timestamp:

Jul 1, 2013 12:27:57 PM (11 years ago)

Author:

heinze

Message:

bugfix in allocation of ref_state

Location:

palm/trunk/SOURCE

Files:

• init_3d_model.f90 (modified) (2 diffs)
• parin.f90 (modified) (2 diffs)
• read_var_list.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -23 +23 @@
 ! Current revisions:
 ! ------------------
-!
+! Bugfix: move allocation of ref_state to parin.f90 and read_var_list.f0
 !
 ! Former revisions:
@@ -282 +282 @@
               sums_divnew_l(0:statistic_regions),                           &
               sums_divold_l(0:statistic_regions) )
-    ALLOCATE( dp_smooth_factor(nzb:nzt), rdf(nzb+1:nzt), rdf_sc(nzb+1:nzt), &
-              ref_state(nzb:nzt+1) )
+    ALLOCATE( dp_smooth_factor(nzb:nzt), rdf(nzb+1:nzt), rdf_sc(nzb+1:nzt) )
     ALLOCATE( ngp_2dh_outer(nzb:nzt+1,0:statistic_regions),                 &
               ngp_2dh_outer_l(nzb:nzt+1,0:statistic_regions),               &

palm/trunk/SOURCE/parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: allocate ref_state
 !
 ! Former revisions:
@@ -420 +420 @@
 !--          ATTENTION: in case of changes to the following statement please
 !--                  also check the allocate statement in routine read_var_list
-             ALLOCATE( lad(0:nz+1),pt_init(0:nz+1), q_init(0:nz+1),           &
-                       sa_init(0:nz+1), ug(0:nz+1), u_init(0:nz+1),           &
-                       v_init(0:nz+1), vg(0:nz+1),                            &
+             ALLOCATE( lad(0:nz+1), pt_init(0:nz+1), q_init(0:nz+1),          &
+                       ref_state(0:nz+1), sa_init(0:nz+1), ug(0:nz+1),        &
+                       u_init(0:nz+1), v_init(0:nz+1), vg(0:nz+1),            &
                        hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions), &
                        hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )

palm/trunk/SOURCE/read_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Bugfix: allocate ref_state
 !
 ! Former revisions:
@@ -257 +257 @@
        ALLOCATE( lad(0:nz+1), ug(0:nz+1), u_init(0:nz+1), vg(0:nz+1),    &
                  v_init(0:nz+1), pt_init(0:nz+1), q_init(0:nz+1),        &
-                 sa_init(0:nz+1),                                        &
+                 ref_state(0:nz+1), sa_init(0:nz+1),                     &
                  hom(0:nz+1,2,pr_palm+max_pr_user,0:statistic_regions),  &
                  hom_sum(0:nz+1,pr_palm+max_pr_user,0:statistic_regions) )