@@ -74,7 +74,8 @@ module zm_conv_intr
74
74
real (r8 ) :: zmconv_dmpdz = unset_r8 ! Parcel fractional mass entrainment rate
75
75
real (r8 ) :: zmconv_tiedke_add = unset_r8 ! Convective parcel temperature perturbation
76
76
real (r8 ) :: zmconv_capelmt = unset_r8 ! Triggering thereshold for ZM convection
77
- logical :: zmconv_parcel_pbl = .false. ! switch for parcel pbl calculation
77
+ logical :: zmconv_parcel_pbl = .false. ! switch for parcel pbl calculation
78
+ real (r8 ) :: zmconv_parcel_hscale = unset_r8 ! Fraction of PBL depth over which to mix initial parcel
78
79
real (r8 ) :: zmconv_tau = unset_r8 ! Timescale for convection
79
80
80
81
@@ -163,7 +164,7 @@ subroutine zm_conv_readnl(nlfile)
163
164
zmconv_ke, zmconv_ke_lnd, &
164
165
zmconv_momcu, zmconv_momcd, &
165
166
zmconv_dmpdz, zmconv_tiedke_add, zmconv_capelmt, &
166
- zmconv_parcel_pbl, zmconv_tau
167
+ zmconv_parcel_pbl, zmconv_parcel_hscale, zmconv_tau
167
168
!- ----------------------------------------------------------------------------
168
169
169
170
if (masterproc) then
@@ -202,6 +203,8 @@ subroutine zm_conv_readnl(nlfile)
202
203
if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_capelmt" )
203
204
call mpi_bcast(zmconv_parcel_pbl, 1 , mpi_logical, masterprocid, mpicom, ierr)
204
205
if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_parcel_pbl" )
206
+ call mpi_bcast(zmconv_parcel_hscale, 1 , mpi_real8, masterprocid, mpicom, ierr)
207
+ if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_parcel_hscale" )
205
208
call mpi_bcast(zmconv_tau, 1 , mpi_real8, masterprocid, mpicom, ierr)
206
209
if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_tau" )
207
210
@@ -345,7 +348,7 @@ subroutine zm_conv_init(pref_edge)
345
348
pref_edge,zmconv_c0_lnd, zmconv_c0_ocn, zmconv_ke, zmconv_ke_lnd, &
346
349
zmconv_momcu, zmconv_momcd, zmconv_num_cin, &
347
350
no_deep_pbl, zmconv_tiedke_add, &
348
- zmconv_capelmt, zmconv_dmpdz,zmconv_parcel_pbl, zmconv_tau, &
351
+ zmconv_capelmt, zmconv_dmpdz,zmconv_parcel_pbl, zmconv_parcel_hscale, zmconv_tau, &
349
352
masterproc, iulog, errmsg, errflg)
350
353
351
354
if (errflg /= 0 ) then
0 commit comments