1 !------------------------------------------------------------
3 ! (includes - microphysical parameters,
4 ! - parameters that control the rate of approach
5 ! to quasi-equilibrium)
7 !------------------------------------------------------------
21 COMMON /cv3param/
sigdz, spfac &
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real nlevSTD8!$OMP THREADPRIVATE(rlevstd) CHARACTER *4
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dttrig real alpha1 real wbmax real delta real betad COMMON cv3param spfac ptcrit tlcrit omtrain dttrig alpha1 wbmax betad flag_epKEorig flag_wb noff
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dttrig real tau
!$Id!Parameters for nlm real spfac!IM cf ptcrit
!Parameters for nlm real spfac integer flag_epKEorig
!$Header!CDK comgeom COMMON comgeom && alpha1
!$Id!Parameters for parameters that control the rate of approach!to quasi equilibrium noff nlm real tlcrit real entp real sigd real omtrain
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dttrig real alpha
!$Id!Parameters for parameters that control the rate of approach!to quasi equilibrium noff nlm real tlcrit real entp real sigd real coeffs real dtmax real cu real betad real damp real delta COMMON cvparam nlm tlcrit sigd coeffs betad
!Parameters for nlm real sigdz
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dttrig real dtcrit
subroutine convect1(len, nd, ndp1, noff, minorig, t, q, qs, u, v, p, ph, iflag, ft, fq, fu, fv, precip, cbmf, delt, ma)
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dpbase
!Parameters for nlm real spfac integer flag_wb real ptcrit real elcrit
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dttrig real alpha1 real wbmax real delta real betad COMMON cv3param spfac ptcrit tlcrit omtrain dttrig alpha1 wbmax delta
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz integer
!Parameters for iflag_con
!Parameters for nlm real spfac integer flag_wb real pbcrit
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dttrig real beta
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real nlevSTD8 real
!Parameters for nlm real spfac integer flag_wb real ptcrit real tlcrit real omtrain real dtovsh