Changeset 771 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Oct 27, 2011 10:56:21 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r668 r771 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! +lpt_av 7 7 ! Former revisions: 8 8 ! ----------------- … … 75 75 ENDDO 76 76 77 CASE ( 'lpt' ) 78 DO i = nxlg, nxrg 79 DO j = nysg, nyng 80 DO k = nzb, nzt+1 81 lpt_av(k,j,i) = lpt_av(k,j,i) / REAL( average_count_3d ) 82 ENDDO 83 ENDDO 84 ENDDO 85 77 86 CASE ( 'lwp*' ) 78 87 DO i = nxlg, nxrg
Note: See TracChangeset
for help on using the changeset viewer.