Changeset 531 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Apr 21, 2010 6:47:21 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r392 r531 880 880 hom(:,1,39,sr) = sums(:,38) / ( sums(:,32) + 1E-20 )**1.5 ! Sw 881 881 hom(:,1,40,sr) = sums(:,40) ! p 882 hom(:,1,45,sr) = sums(:,45) ! w" q"882 hom(:,1,45,sr) = sums(:,45) ! w"vpt" 883 883 hom(:,1,46,sr) = sums(:,46) ! w*vpt* 884 884 hom(:,1,47,sr) = sums(:,45) + sums(:,46) ! wvpt … … 907 907 hom(:,1,70,sr) = sums(:,70) ! q*2 908 908 hom(:,1,71,sr) = sums(:,71) ! prho 909 hom(:,1,72,sr) = hyp * 1E-4 ! hyp in kPa909 hom(:,1,72,sr) = hyp * 1E-4 ! hyp in dbar 910 910 911 911 hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
Note: See TracChangeset
for help on using the changeset viewer.