Changeset 1195 for palm/trunk/SOURCE/init_3d_model.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/init_3d_model.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),               &