Changeset 3288 for palm/trunk/SOURCE/read_restart_data_mod.f90

Timestamp:

Sep 28, 2018 10:23:08 AM (6 years ago)

Author:

suehring

Message:

Bugfix in allocation of mean_inflow_profiles in case of restarts

File:

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

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Introduce module parameter for number of inflow profiles
 ! 
 ! Former revisions:
@@ -460 +460 @@
              CASE ( 'mean_inflow_profiles' )
                 IF ( .NOT. ALLOCATED( mean_inflow_profiles ) )  THEN
-                   ALLOCATE( mean_inflow_profiles(0:nz+1,7) )
+                   ALLOCATE( mean_inflow_profiles(0:nz+1,1:num_mean_inflow_profiles) )
                 ENDIF
                 READ ( 13 )  mean_inflow_profiles