Changeset 3746 for palm

Timestamp:

Feb 16, 2019 12:41:27 PM (6 years ago)

Author:

gronemeier

Message:

bugfix: do not overwrite name of statistic regions set by namelist

Location:

palm/trunk/SOURCE

Files:

• modules.f90 (modified) (2 diffs)
• parin.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Initialized parameter region
 ! 
 ! Former revisions:
@@ -2076 +2076 @@
     USE kinds
 
-    CHARACTER (LEN=40) ::  region(0:9)  !< label for statistic region
+    CHARACTER (LEN=40) ::  region(0:9) =  &  !< label for statistic region
+                           'total domain                            '
  
     INTEGER(iwp) ::  pr_palm = 200          !< maximum number of output profiles

palm/trunk/SOURCE/parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! removed setting of parameter region
 ! 
 ! Former revisions:
@@ -526 +526 @@
 
     USE statistics,                                                            &
-        ONLY:  hom, hom_sum, pr_palm, region, statistic_regions
+        ONLY:  hom, hom_sum, pr_palm, statistic_regions
 
     USE turbulence_closure_mod,                                                &
@@ -1025 +1025 @@
           IF ( bc_ns == 'dirichlet/radiation' )  bc_ns_dirrad = .TRUE.
           IF ( bc_ns == 'radiation/dirichlet' )  bc_ns_raddir = .TRUE.
-
-!
-!--       Definition of names of areas used for computing statistics. They must
-!--       be defined at this place, because they are allowed to be redefined by
-!--       the user in user_parin.
-          region = 'total domain'
-
 !
 !--       Check in case of initial run, if the grid point numbers are well