source: flexpart.git/src/conv_mod.f90 @ 02095e3

FPv9.3.1FPv9.3.1b_testingFPv9.3.2NetCDFdepositiondevflexpart-noresmfp9.3.1-20161214-nc4grib2nc4_repairinputlistlaptoprelease-10svn-petrasvn-trunkunivie
Last change on this file since 02095e3 was e200b7a, checked in by Matthias Langer <matthias.langer@…>, 7 years ago

git-svn-id: http://flexpart.flexpart.eu:8088/svn/FlexPart90/trunk@4 ef8cc7e1-21b7-489e-abab-c1baa636049d

  • Property mode set to 100644
File size: 1.0 KB
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
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