Changeset 3240 for palm/trunk/SOURCE/modules.f90

Timestamp:

Sep 12, 2018 12:04:40 PM (6 years ago)

Author:

Giersch

Message:

Bufgix for an error message in case of restarts and user-defined profiles

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! max_pr_user_tmp has been defined as a control variable because it is not 
+! local anymore
+! 
+! 3235 2018-09-07 14:06:15Z sward
 ! Added global variable dim_size_agtnum to own module. Necessary to avoid
 ! circular dependency in agent output.
@@ -1238 +1242 @@
     INTEGER(iwp) ::  maximum_parallel_io_streams = -1  !< maximum number of parallel io streams that the underlying parallel file system allows, set with palmrun option -w, ENVPAR namelist parameter, provided by palmrun
     INTEGER(iwp) ::  max_pr_user = 0                   !< number of user-defined profiles (must not change within a job chain)
+    INTEGER(iwp) ::  max_pr_user_tmp = 0               !< number of user-defined profiles that is temporary stored to check it against max_pr_user in case of restarts
     INTEGER(iwp) ::  mgcycles = 0                      !< number of multigrid cycles that the multigrid solver has actually carried out
     INTEGER(iwp) ::  mg_cycles = 4                     !< namelist parameter