@@ -70,7 +70,7 @@ module zm_conv_intr
7070 integer :: zmconv_num_cin ! Number of negative buoyancy regions that are allowed
7171 ! before the convection top and CAPE calculations are completed.
7272 real (r8 ) :: zmconv_dmpdz = unset_r8 ! Parcel fractional mass entrainment rate
73- real (r8 ) :: zmconv_tiedke_add = unset_r8 ! Convective parcel temperature perturbation
73+ real (r8 ) :: zmconv_tiedtke_add = unset_r8 ! Convective parcel temperature perturbation
7474 real (r8 ) :: zmconv_capelmt = unset_r8 ! Triggering thereshold for ZM convection
7575 logical :: zmconv_parcel_pbl = .false. ! switch for parcel pbl calculation
7676 real (r8 ) :: zmconv_parcel_hscale = unset_r8 ! Fraction of PBL depth over which to mix initial parcel
@@ -161,7 +161,7 @@ subroutine zm_conv_readnl(nlfile)
161161 namelist / zmconv_nl/ zmconv_c0_lnd, zmconv_c0_ocn, zmconv_num_cin, &
162162 zmconv_ke, zmconv_ke_lnd, &
163163 zmconv_momcu, zmconv_momcd, &
164- zmconv_dmpdz, zmconv_tiedke_add , zmconv_capelmt, &
164+ zmconv_dmpdz, zmconv_tiedtke_add , zmconv_capelmt, &
165165 zmconv_parcel_pbl, zmconv_parcel_hscale, zmconv_tau
166166 !- ----------------------------------------------------------------------------
167167
@@ -195,8 +195,8 @@ subroutine zm_conv_readnl(nlfile)
195195 if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_momcd" )
196196 call mpi_bcast(zmconv_dmpdz, 1 , mpi_real8, masterprocid, mpicom, ierr)
197197 if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_dmpdz" )
198- call mpi_bcast(zmconv_tiedke_add , 1 , mpi_real8, masterprocid, mpicom, ierr)
199- if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_tiedke_add " )
198+ call mpi_bcast(zmconv_tiedtke_add , 1 , mpi_real8, masterprocid, mpicom, ierr)
199+ if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_tiedtke_add " )
200200 call mpi_bcast(zmconv_capelmt, 1 , mpi_real8, masterprocid, mpicom, ierr)
201201 if (ierr /= 0 ) call endrun(" zm_conv_readnl: FATAL: mpi_bcast: zmconv_capelmt" )
202202 call mpi_bcast(zmconv_parcel_pbl, 1 , mpi_logical, masterprocid, mpicom, ierr)
@@ -345,7 +345,7 @@ subroutine zm_conv_init(pref_edge)
345345 call zm_convr_init(plev, plevp, cpair, epsilo, gravit, latvap, tmelt, rair, &
346346 pref_edge,zmconv_c0_lnd, zmconv_c0_ocn, zmconv_ke, zmconv_ke_lnd, &
347347 zmconv_momcu, zmconv_momcd, zmconv_num_cin, &
348- no_deep_pbl, zmconv_tiedke_add , &
348+ no_deep_pbl, zmconv_tiedtke_add , &
349349 zmconv_capelmt, zmconv_dmpdz,zmconv_parcel_pbl, zmconv_parcel_hscale, zmconv_tau, &
350350 masterproc, iulog, errmsg, errflg)
351351
0 commit comments