Changeset 2292 for palm/trunk/SOURCE/average_3d_data.f90
- Timestamp:
- Jun 20, 2017 9:51:42 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/average_3d_data.f90
r2233 r2292 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 28 ! includes two more prognostic equations for cloud drop concentration (nc) 29 ! and cloud water content (qc). 30 ! 31 ! 2233 2017-05-30 18:08:54Z suehring 27 32 ! 28 33 ! 2232 2017-05-30 17:47:52Z suehring … … 194 199 ENDDO 195 200 201 CASE ( 'nc' ) 202 DO i = nxlg, nxrg 203 DO j = nysg, nyng 204 DO k = nzb, nzt+1 205 nc_av(k,j,i) = nc_av(k,j,i) / REAL( average_count_3d, KIND=wp ) 206 ENDDO 207 ENDDO 208 ENDDO 209 196 210 CASE ( 'nr' ) 197 211 DO i = nxlg, nxrg
Note: See TracChangeset
for help on using the changeset viewer.