@@ -238,6 +238,13 @@ void Functions<S,D>::shoc_assumed_pdf(
238
238
// Compute SGS cloud fraction
239
239
shoc_cldfrac (k) = ekat::min (1 , a*C1 + (1 - a)*C2);
240
240
241
+ // Compute cond and evap tendencies
242
+ if (extra_diags) {
243
+ auto dum = ekat::max (0 , a * ql1 + (1 - a) * ql2);
244
+ shoc_cond (k) = ekat::max (0 , (dum - shoc_ql (k)) / dtime);
245
+ shoc_evap (k) = ekat::max (0 , (shoc_ql (k) - dum) / dtime);
246
+ }
247
+
241
248
// Compute SGS liquid water mixing ratio
242
249
shoc_assumed_pdf_compute_sgs_liquid (a, ql1, ql2, shoc_ql (k));
243
250
@@ -246,13 +253,6 @@ void Functions<S,D>::shoc_assumed_pdf(
246
253
s2, ql2, C2, std_s2, shoc_ql (k),
247
254
shoc_ql2 (k));
248
255
249
- // Compute cond and evap tendencies
250
- if (extra_diags) {
251
- auto dum = ekat::max (0 , a * ql1 + (1 - a) * ql2);
252
- shoc_cond (k) = ekat::max (0 , (dum - shoc_ql (k)) / dtime);
253
- shoc_evap (k) = ekat::max (0 , (shoc_ql (k) - dum) / dtime);
254
- }
255
-
256
256
// Compute liquid water flux
257
257
shoc_assumed_pdf_compute_liquid_water_flux (a, w1_1, w_first, ql1, w1_2, ql2, wqls (k));
258
258
0 commit comments