Changeset 1179 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Jun 14, 2013 5:57:58 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r1116 r1179 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! comment for profile 77 added 23 23 ! 24 24 ! Former revisions: … … 1148 1148 hom(:,1,75,sr) = sums(:,75) ! qc 1149 1149 hom(:,1,76,sr) = sums(:,76) ! prr (precipitation rate) 1150 ! 77 is initial density profile 1150 1151 1151 1152 hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
Note: See TracChangeset
for help on using the changeset viewer.