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