Changeset 4131 for palm/trunk/SOURCE/parin.f90
- Timestamp:
- Aug 2, 2019 11:06:18 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r4079 r4131 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Allocate hom and hom_sum to allow profile output for salsa variables. 28 ! 29 ! 4079 2019-07-09 18:04:41Z suehring 27 30 ! +monotonic_limiter_z 28 31 ! … … 1093 1096 ref_state(0:nz+1), sa_init(0:nz+1), ug(0:nz+1), & 1094 1097 u_init(0:nz+1), v_init(0:nz+1), vg(0:nz+1), & 1095 hom(0:nz+1,2,pr_palm+max_pr_user+max_pr_cs,0:statistic_regions), &1096 hom_sum(0:nz+1,pr_palm+max_pr_user+max_pr_cs,0:statistic_regions) )1098 hom(0:nz+1,2,pr_palm+max_pr_user+max_pr_cs+max_pr_salsa,0:statistic_regions), & 1099 hom_sum(0:nz+1,pr_palm+max_pr_user+max_pr_cs+max_pr_salsa,0:statistic_regions) ) 1097 1100 1098 1101 hom = 0.0_wp
Note: See TracChangeset
for help on using the changeset viewer.