Changeset 3746 for palm


Ignore:
Timestamp:
Feb 16, 2019 12:41:27 PM (5 years ago)
Author:
gronemeier
Message:

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

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/modules.f90

    r3668 r3746  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Initialized parameter region
    2323!
    2424! Former revisions:
     
    20762076    USE kinds
    20772077
    2078     CHARACTER (LEN=40) ::  region(0:9)  !< label for statistic region
     2078    CHARACTER (LEN=40) ::  region(0:9) =  &  !< label for statistic region
     2079                           'total domain                            '
    20792080 
    20802081    INTEGER(iwp) ::  pr_palm = 200          !< maximum number of output profiles
  • palm/trunk/SOURCE/parin.f90

    r3668 r3746  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! removed setting of parameter region
    2323!
    2424! Former revisions:
     
    526526
    527527    USE statistics,                                                            &
    528         ONLY:  hom, hom_sum, pr_palm, region, statistic_regions
     528        ONLY:  hom, hom_sum, pr_palm, statistic_regions
    529529
    530530    USE turbulence_closure_mod,                                                &
     
    10251025          IF ( bc_ns == 'dirichlet/radiation' )  bc_ns_dirrad = .TRUE.
    10261026          IF ( bc_ns == 'radiation/dirichlet' )  bc_ns_raddir = .TRUE.
    1027 
    1028 !
    1029 !--       Definition of names of areas used for computing statistics. They must
    1030 !--       be defined at this place, because they are allowed to be redefined by
    1031 !--       the user in user_parin.
    1032           region = 'total domain'
    1033 
    10341027!
    10351028!--       Check in case of initial run, if the grid point numbers are well
Note: See TracChangeset for help on using the changeset viewer.