Changeset 1115 for palm/trunk/SOURCE/sum_up_3d_data.f90
- Timestamp:
- Mar 26, 2013 6:16:16 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/sum_up_3d_data.f90
r1054 r1115 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! ql is calculated by calc_liquid_water_content 22 23 ! 23 24 ! Former revisions: … … 164 165 ENDIF 165 166 q_av = 0.0 167 168 CASE ( 'qc' ) 169 IF ( .NOT. ALLOCATED( qc_av ) ) THEN 170 ALLOCATE( qc_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 171 ENDIF 172 qc_av = 0.0 166 173 167 174 CASE ( 'ql' ) … … 411 418 ENDDO 412 419 420 CASE ( 'qc' ) 421 DO i = nxlg, nxrg 422 DO j = nysg, nyng 423 DO k = nzb, nzt+1 424 qc_av(k,j,i) = qc_av(k,j,i) + qc(k,j,i) 425 ENDDO 426 ENDDO 427 ENDDO 428 413 429 CASE ( 'ql' ) 414 430 DO i = nxlg, nxrg
Note: See TracChangeset
for help on using the changeset viewer.