| [5346] | 1 | MODULE lmdz_cv_ini |
|---|
| 2 | |
|---|
| 3 | !------------------------------------------------------------ |
|---|
| 4 | ! Parameters for convectL, iflag_con=3: |
|---|
| 5 | ! (includes - microphysical parameters, |
|---|
| 6 | ! - parameters that control the rate of approach |
|---|
| 7 | ! to quasi-equilibrium) |
|---|
| 8 | ! - noff & minorig (previously in input of convect1) |
|---|
| 9 | !------------------------------------------------------------ |
|---|
| 10 | IMPLICIT NONE; PRIVATE |
|---|
| 11 | PUBLIC sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, & |
|---|
| 12 | dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, & |
|---|
| 13 | delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, & |
|---|
| 14 | nl, nlp, nlm |
|---|
| 15 | PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & |
|---|
| 16 | , clmci, eps, epsi, epsim1, ginv, hrd, grav |
|---|
| 17 | |
|---|
| 18 | |
|---|
| 19 | ! provenant de cvparam |
|---|
| 20 | PUBLIC entp, sigs,sigd, omtsnow,coeffr, coeffs, dtmax, cu, damp |
|---|
| 21 | |
|---|
| 22 | |
|---|
| 23 | INTEGER flag_epKEorig |
|---|
| 24 | REAL flag_wb |
|---|
| 25 | INTEGER cv_flag_feed |
|---|
| 26 | INTEGER noff, minorig, nl, nlp, nlm |
|---|
| 27 | REAL sigdz, spfac |
|---|
| 28 | REAL pbcrit, ptcrit |
|---|
| 29 | REAL elcrit, tlcrit |
|---|
| 30 | REAL coef_peel |
|---|
| 31 | REAL omtrain |
|---|
| 32 | REAL dtovsh, dpbase, dttrig |
|---|
| 33 | REAL dtcrit, tau, beta, alpha, alpha1 |
|---|
| 34 | REAL T_top_max |
|---|
| 35 | REAL tau_stop, noconv_stop |
|---|
| 36 | REAL wbmax |
|---|
| 37 | REAL delta |
|---|
| 38 | REAL betad |
|---|
| 39 | REAL ejectliq |
|---|
| 40 | REAL ejectice |
|---|
| 41 | |
|---|
| 42 | !$OMP THREADPRIVATE(sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, & |
|---|
| 43 | !$OMP dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, & |
|---|
| 44 | !$OMP delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, & |
|---|
| 45 | !$OMP nl, nlp, nlm) |
|---|
| 46 | |
|---|
| 47 | ! Thermodynamical constants for convectL: |
|---|
| 48 | REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0 |
|---|
| 49 | REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci |
|---|
| 50 | REAL eps, epsi, epsim1 |
|---|
| 51 | REAL ginv, hrd |
|---|
| 52 | REAL grav |
|---|
| 53 | |
|---|
| 54 | !$OMP THREADPRIVATE(cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl & |
|---|
| 55 | !$OMP , clmci, eps, epsi, epsim1, ginv, hrd, grav) |
|---|
| 56 | |
|---|
| 57 | ! provenant de cvparam |
|---|
| 58 | real entp |
|---|
| 59 | real sigs, sigd |
|---|
| 60 | real omtsnow, coeffr, coeffs |
|---|
| 61 | real dtmax |
|---|
| 62 | real cu |
|---|
| 63 | real damp |
|---|
| 64 | |
|---|
| 65 | ! provenant de cvparam |
|---|
| [5347] | 66 | !$OMP THREADPRIVATE( entp & |
|---|
| [5348] | 67 | !$OMP , sigs, sigd & |
|---|
| [5346] | 68 | !$OMP , omtsnow, coeffr, coeffs & |
|---|
| 69 | !$OMP , dtmax, cu, damp) |
|---|
| 70 | |
|---|
| 71 | END MODULE lmdz_cv_ini |
|---|
