| 1 | !******************************************************************************* |
|---|
| 2 | ! Include file for convection |
|---|
| 3 | ! This file contains a global common block used by convect |
|---|
| 4 | ! and other subroutines |
|---|
| 5 | ! Author: P. Ferstl |
|---|
| 6 | ! |
|---|
| 7 | ! Feb 2001 |
|---|
| 8 | ! |
|---|
| 9 | !******************************************************************************* |
|---|
| 10 | |
|---|
| 11 | module conv_mod |
|---|
| 12 | |
|---|
| 13 | use par_mod, only: nconvlevmax, na, nxmax, nymax, nxmaxn, nymaxn, maxnests |
|---|
| 14 | |
|---|
| 15 | implicit none |
|---|
| 16 | |
|---|
| 17 | !integer,parameter :: nconvlevmax = nuvzmax-1, & |
|---|
| 18 | ! na = nconvlevmax+1 |
|---|
| 19 | !these parameters are defined in par_mod now! |
|---|
| 20 | |
|---|
| 21 | real :: pconv(nconvlevmax),phconv(na),dpr(nconvlevmax) |
|---|
| 22 | real :: pconv_hpa(nconvlevmax),phconv_hpa(na) |
|---|
| 23 | real :: tconv(na),qconv(na),qsconv(na) |
|---|
| 24 | real :: psconv,tt2conv,td2conv |
|---|
| 25 | |
|---|
| 26 | real :: ft(nconvlevmax), fq(nconvlevmax) |
|---|
| 27 | real :: fmass(nconvlevmax,nconvlevmax),sub(nconvlevmax) |
|---|
| 28 | real :: fmassfrac(nconvlevmax,nconvlevmax) |
|---|
| 29 | |
|---|
| 30 | real :: uvzlev(nconvlevmax) |
|---|
| 31 | |
|---|
| 32 | real :: cbaseflux(0:nxmax-1,0:nymax-1) |
|---|
| 33 | real :: cbasefluxn(0:nxmaxn-1,0:nymaxn-1,maxnests) |
|---|
| 34 | |
|---|
| 35 | integer :: nconvlev,nconvtop |
|---|
| 36 | |
|---|
| 37 | !$OMP THREADPRIVATE (pconv, phconv, dpr, pconv_hpa, phconv_hpa, tconv, qconv, qsconv, & |
|---|
| 38 | !$OMP psconv, tt2conv, td2conv, ft, fq, fmass, sub, fmassfrac, uvzlev, nconvtop) |
|---|
| 39 | |
|---|
| 40 | end module conv_mod |
|---|
