@@ -1088,6 +1088,8 @@ subroutine clubb_readnl(nlfile)
1088
1088
if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_detice_rad" )
1089
1089
call mpi_bcast(clubb_detphase_lowtemp, 1 , mpi_real8, mstrid, mpicom, ierr)
1090
1090
if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_detphase_lowtemp" )
1091
+ call mpi_bcast(clubb_iiPDF_type, 1 , mpi_integer, mstrid, mpicom, ierr)
1092
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_iiPDF_type" )
1091
1093
1092
1094
call mpi_bcast(clubb_l_use_C7_Richardson, 1 , mpi_logical, mstrid, mpicom, ierr)
1093
1095
if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_use_C7_Richardson" )
@@ -1170,7 +1172,35 @@ subroutine clubb_readnl(nlfile)
1170
1172
call mpi_bcast(clubb_l_standard_term_ta, 1 , mpi_logical, mstrid, mpicom, ierr)
1171
1173
if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_standard_term_ta" )
1172
1174
call mpi_bcast(clubb_l_partial_upwind_wp3, 1 , mpi_logical, mstrid, mpicom, ierr)
1173
- if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_partial_upwind_wp3" )
1175
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_partial_upwind_wp3"
1176
+ call mpi_bcast(clubb_l_C2_cloud_frac, 1 , mpi_logical, mstrid, mpicom, ierr)
1177
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_C2_cloud_frac" )
1178
+ call mpi_bcast(clubb_l_calc_thlp2_rad, 1 , mpi_logical, mstrid, mpicom, ierr)
1179
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_calc_thlp2_rad" )
1180
+ call mpi_bcast(clubb_l_calc_w_corr, 1 , mpi_logical, mstrid, mpicom, ierr)
1181
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_calc_w_corr" )
1182
+ call mpi_bcast(clubb_l_const_Nc_in_cloud, 1 , mpi_logical, mstrid, mpicom, ierr)
1183
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_const_Nc_in_cloud" )
1184
+ call mpi_bcast(clubb_l_diagnose_correlations, 1 , mpi_logical, mstrid, mpicom, ierr)
1185
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_diagnose_correlations" )
1186
+ call mpi_bcast(clubb_l_diffuse_rtm_and_thlm, 1 , mpi_logical, mstrid, mpicom, ierr)
1187
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_diffuse_rtm_and_thlm" )
1188
+ call mpi_bcast(clubb_l_fix_w_chi_eta_correlations, 1 , mpi_logical, mstrid, mpicom, ierr)
1189
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_fix_w_chi_eta_correlations" )
1190
+ call mpi_bcast(clubb_l_prescribed_avg_deltaz, 1 , mpi_logical, mstrid, mpicom, ierr)
1191
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_prescribed_avg_deltaz" )
1192
+ call mpi_bcast(clubb_l_rtm_nudge, 1 , mpi_logical, mstrid, mpicom, ierr)
1193
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_rtm_nudge" )
1194
+ call mpi_bcast(clubb_l_stability_correct_Kh_N2_zm, 1 , mpi_logical, mstrid, mpicom, ierr)
1195
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_stability_correct_Kh_N2_zm" )
1196
+ call mpi_bcast(clubb_l_tke_aniso, 1 , mpi_logical, mstrid, mpicom, ierr)
1197
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_tke_aniso" )
1198
+ call mpi_bcast(clubb_l_upwind_xm_ma, 1 , mpi_logical, mstrid, mpicom, ierr)
1199
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_upwind_xm_ma" )
1200
+ call mpi_bcast(clubb_l_use_precip_frac, 1 , mpi_logical, mstrid, mpicom, ierr)
1201
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_use_precip_frac" )
1202
+ call mpi_bcast(clubb_l_uv_nudge, 1 , mpi_logical, mstrid, mpicom, ierr)
1203
+ if (ierr /= 0 ) call endrun(sub// " : FATAL: mpi_bcast: clubb_l_uv_nudge" )
1174
1204
1175
1205
! Overwrite defaults if they are true
1176
1206
if (clubb_history) stats_metadata% l_stats = .true.
0 commit comments