source: trunk/src/conv_mod.f90 @ 4

Last change on this file since 4 was 4, checked in by mlanger, 10 years ago
File size: 1.0 KB
RevLine 
[4]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
11module 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
34end module conv_mod
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG