Changeset 3746 for palm/trunk
- Timestamp:
- Feb 16, 2019 12:41:27 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r3668 r3746 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Initialized parameter region 23 23 ! 24 24 ! Former revisions: … … 2076 2076 USE kinds 2077 2077 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 ' 2079 2080 2080 2081 INTEGER(iwp) :: pr_palm = 200 !< maximum number of output profiles -
palm/trunk/SOURCE/parin.f90
r3668 r3746 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! removed setting of parameter region 23 23 ! 24 24 ! Former revisions: … … 526 526 527 527 USE statistics, & 528 ONLY: hom, hom_sum, pr_palm, region,statistic_regions528 ONLY: hom, hom_sum, pr_palm, statistic_regions 529 529 530 530 USE turbulence_closure_mod, & … … 1025 1025 IF ( bc_ns == 'dirichlet/radiation' ) bc_ns_dirrad = .TRUE. 1026 1026 IF ( bc_ns == 'radiation/dirichlet' ) bc_ns_raddir = .TRUE. 1027 1028 !1029 !-- Definition of names of areas used for computing statistics. They must1030 !-- be defined at this place, because they are allowed to be redefined by1031 !-- the user in user_parin.1032 region = 'total domain'1033 1034 1027 ! 1035 1028 !-- Check in case of initial run, if the grid point numbers are well
Note: See TracChangeset
for help on using the changeset viewer.