! Replaces cv3param.h MODULE cv3param_mod_h !------------------------------------------------------------ ! 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) !------------------------------------------------------------ IMPLICIT NONE; PRIVATE PUBLIC sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, & dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, & delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, & nl, nlp, nlm INTEGER flag_epKEorig REAL flag_wb INTEGER cv_flag_feed INTEGER noff, minorig, nl, nlp, nlm REAL sigdz, spfac REAL pbcrit, ptcrit REAL elcrit, tlcrit REAL coef_peel REAL omtrain REAL dtovsh, dpbase, dttrig REAL dtcrit, tau, beta, alpha, alpha1 REAL T_top_max REAL tau_stop, noconv_stop REAL wbmax REAL delta REAL betad REAL ejectliq REAL ejectice !$OMP THREADPRIVATE(sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, & !$OMP dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, & !$OMP delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, & !$OMP nl, nlp, nlm) END MODULE cv3param_mod_h