Changeset 2292 for palm/trunk/SOURCE/data_output_mask.f90
- Timestamp:
- Jun 20, 2017 9:51:42 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_mask.f90
r2101 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 ! 2101 2017-01-05 16:42:31Z suehring 27 32 ! 28 33 ! 2031 2016-10-21 15:11:58Z knoop … … 105 110 #if defined( __netcdf ) 106 111 USE arrays_3d, & 107 ONLY: e, n r, p, pt, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, tend, u,&108 v, vpt, w112 ONLY: e, nc, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, rho_ocean, s, sa, & 113 tend, u, v, vpt, w 109 114 110 115 USE averaging, & 111 ONLY: e_av, lpt_av, n r_av, p_av, pc_av, pr_av, pt_av, q_av, qc_av, &112 q l_av, ql_c_av, ql_v_av, ql_vp_av, qv_av, qr_av, rho_ocean_av, s_av,&113 sa_av, u_av, v_av, vpt_av, w_av116 ONLY: e_av, lpt_av, nc_av, nr_av, p_av, pc_av, pr_av, pt_av, q_av, & 117 qc_av, ql_av, ql_c_av, ql_v_av, ql_vp_av, qv_av, qr_av, & 118 rho_ocean_av, s_av, sa_av, u_av, v_av, vpt_av, w_av 114 119 115 120 USE cloud_parameters, & … … 243 248 ELSE 244 249 to_be_resorted => lpt_av 250 ENDIF 251 252 CASE ( 'nc' ) 253 IF ( av == 0 ) THEN 254 to_be_resorted => nc 255 ELSE 256 to_be_resorted => nc_av 245 257 ENDIF 246 258
Note: See TracChangeset
for help on using the changeset viewer.