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

Timestamp:

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

Author:

heinze

Message:

bugfix in allocation of ref_state

File:

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

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) )