10.4.1_peseiFPv9.3.1FPv9.3.1b_testingFPv9.3.2GFS_025NetCDFbugfixes+enhancementsdepositiondevflexpart-noresmfp9.3.1-20161214-nc4grib2nc4_repairinputlistlaptoprelease-10release-10.4.1scaling-bugsvn-petrasvn-trunkunivie
Rev | Line | |
---|
[e200b7a] | 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 | |
---|
| 24 | real :: ft(nconvlevmax), fq(nconvlevmax) |
---|
| 25 | real :: fmass(nconvlevmax,nconvlevmax),sub(nconvlevmax) |
---|
| 26 | real :: fmassfrac(nconvlevmax,nconvlevmax) |
---|
| 27 | real :: cbaseflux(0:nxmax-1,0:nymax-1) |
---|
| 28 | real :: cbasefluxn(0:nxmaxn-1,0:nymaxn-1,maxnests) |
---|
| 29 | real :: tconv(na),qconv(na),qsconv(na) |
---|
| 30 | real :: psconv,tt2conv,td2conv |
---|
| 31 | |
---|
| 32 | integer :: nconvlev,nconvtop |
---|
| 33 | |
---|
| 34 | end module conv_mod |
---|
Note: See
TracBrowser
for help on using the repository browser.