source: branches/flexpart91_hasod/src_parallel/conv_mod.f90 @ 8

Last change on this file since 8 was 8, checked in by hasod, 9 years ago

Added parallel version of Flexpart91

File size: 1.2 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  real :: tconv(na),qconv(na),qsconv(na)
24  real :: psconv,tt2conv,td2conv
25
26  real :: ft(nconvlevmax), fq(nconvlevmax)
27  real :: fmass(nconvlevmax,nconvlevmax),sub(nconvlevmax)
28  real :: fmassfrac(nconvlevmax,nconvlevmax)
29
30  real :: uvzlev(nconvlevmax)
31
32  real :: cbaseflux(0:nxmax-1,0:nymax-1)
33  real :: cbasefluxn(0:nxmaxn-1,0:nymaxn-1,maxnests)
34
35  integer :: nconvlev,nconvtop
36
37!$OMP THREADPRIVATE (pconv, phconv, dpr, pconv_hpa, phconv_hpa, tconv, qconv, qsconv, &
38!$OMP      psconv, tt2conv, td2conv, ft, fq, fmass, sub, fmassfrac, uvzlev, nconvtop)
39
40end module conv_mod
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG