Changeset 3288 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! +num_mean_inflow_profiles
 ! 
 ! Former revisions:
@@ -1203 +1203 @@
     INTEGER(iwp) ::  n_sor                             !< number of iterations to be used in SOR-scheme
     INTEGER(iwp) ::  normalizing_region = 0            !< namelist parameter
+    INTEGER(iwp) ::  num_mean_inflow_profiles = 7      !< number of mean inflow profiles in case of turbulent inflow
     INTEGER(iwp) ::  num_leg=0                         !< number of different legs in virtual flight measurements
     INTEGER(iwp) ::  num_var_fl                        !< number of sampling/output variables in virtual flight measurements