Changeset 1115 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Mar 26, 2013 6:16:16 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r1054 r1115 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! +qc 22 23 ! 23 24 ! Former revisions: … … 181 182 ENDDO 182 183 184 CASE ( 'qc' ) 185 DO i = nxlg, nxrg 186 DO j = nysg, nyng 187 DO k = nzb, nzt+1 188 qc_av(k,j,i) = qc_av(k,j,i) / REAL( average_count_3d ) 189 ENDDO 190 ENDDO 191 ENDDO 192 183 193 CASE ( 'ql' ) 184 194 DO i = nxlg, nxrg
Note: See TracChangeset
for help on using the changeset viewer.