!------------------------------------------------------------ ! Parameters for convectL, iflag_con=3: ! (includes - microphysical parameters, ! - parameters that control the rate of approach ! to quasi-equilibrium) ! - noff & minorig (previously in input of convect1) !------------------------------------------------------------ integer noff, minorig, nl, nlp, nlm real sigdz, spfac integer flag_epKEorig,flag_wb real pbcrit, ptcrit real elcrit, tlcrit real omtrain real dtovsh, dpbase, dttrig real dtcrit, tau, beta, alpha, alpha1 real wbmax real delta real betad COMMON /cv3param/ noff, minorig, nl, nlp, nlm & , sigdz, spfac & ,flag_epKEorig & ,pbcrit, ptcrit & ,elcrit, tlcrit & ,omtrain & ,dtovsh, dpbase, dttrig & ,dtcrit, tau, beta, alpha, alpha1 & ,flag_wb,wbmax & ,delta, betad !$OMP THREADPRIVATE(/cv3param/)