4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE cv_driver(len, nd, ndp1, ntra, iflag_con, t1, q1, qs1, u1, v1, & |
SUBROUTINE cv_driver(len, nd, ndp1, ntra, t1, q1, qs1, u1, v1, tra1, p1, & |
8 |
tra1, p1, ph1, iflag1, ft1, fq1, fu1, fv1, ftra1, precip1, VPrecip1, & |
ph1, iflag1, ft1, fq1, fu1, fv1, ftra1, precip1, VPrecip1, cbmf1, & |
9 |
cbmf1, sig1, w01, icb1, inb1, delt, Ma1, upwd1, dnwd1, dnwd01, & |
sig1, w01, icb1, inb1, delt, Ma1, upwd1, dnwd1, dnwd01, qcondc1, wd1, & |
10 |
qcondc1, wd1, cape1, da1, phi1, mp1) |
cape1, da1, phi1, mp1) |
11 |
|
|
12 |
! From LMDZ4/libf/phylmd/cv_driver.F, version 1.3 2005/04/15 12:36:17 |
! From LMDZ4/libf/phylmd/cv_driver.F, version 1.3 2005/04/15 12:36:17 |
13 |
|
|
14 |
|
! Main driver for convection |
15 |
|
|
16 |
|
use clesphys2, only: iflag_con |
17 |
|
use cv3_param_m, only: cv3_param |
18 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
19 |
|
|
20 |
! PARAMETERS: |
! PARAMETERS: |
25 |
! nd Integer Input vertical (k) dimension |
! nd Integer Input vertical (k) dimension |
26 |
! ndp1 Integer Input nd + 1 |
! ndp1 Integer Input nd + 1 |
27 |
! ntra Integer Input number of tracors |
! ntra Integer Input number of tracors |
|
! iflag_con Integer Input version of convect (3/4) |
|
28 |
! t1 Real Input temperature |
! t1 Real Input temperature |
29 |
! q1 Real Input specific hum |
! q1 Real Input specific hum |
30 |
! qs1 Real Input sat specific hum |
! qs1 Real Input sat specific hum |
63 |
integer nd |
integer nd |
64 |
integer ndp1 |
integer ndp1 |
65 |
integer noff |
integer noff |
66 |
integer, intent(in):: iflag_con |
integer, intent(in):: ntra |
|
integer ntra |
|
67 |
real, intent(in):: t1(len, nd) |
real, intent(in):: t1(len, nd) |
68 |
real q1(len, nd) |
real q1(len, nd) |
69 |
real qs1(len, nd) |
real qs1(len, nd) |
292 |
! -- set thermodynamical constants: |
! -- set thermodynamical constants: |
293 |
! (common cvthermo) |
! (common cvthermo) |
294 |
|
|
295 |
CALL cv_thermo(iflag_con) |
CALL cv_thermo |
296 |
|
|
297 |
! -- set convect parameters |
! -- set convect parameters |
298 |
|
|