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
Line | |
---|
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.