4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE cv3_feed(len, nd, t, q, qs, p, ph, hm, gz, nk, icb, icbmax, & |
SUBROUTINE cv3_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, & |
8 |
iflag, tnk, qnk, gznk, plcl) |
tnk, qnk, gznk, plcl) |
9 |
|
|
10 |
! Purpose: CONVECTIVE FEED |
! Purpose: CONVECTIVE FEED |
11 |
|
|
25 |
integer, intent(in):: len, nd |
integer, intent(in):: len, nd |
26 |
real, intent(in):: t(len, nd) |
real, intent(in):: t(len, nd) |
27 |
real, intent(in):: q(len, nd), qs(len, nd), p(len, nd) |
real, intent(in):: q(len, nd), qs(len, nd), p(len, nd) |
28 |
real hm(len, nd), gz(len, nd) |
real gz(len, nd) |
29 |
real, intent(in):: ph(len, nd+1) |
real, intent(in):: ph(len, nd+1) |
30 |
|
|
31 |
! outputs: |
! outputs: |
35 |
|
|
36 |
! local variables: |
! local variables: |
37 |
integer i, k |
integer i, k |
|
integer ihmin(len) |
|
|
real work(len) |
|
38 |
real pnk(len), qsnk(len), rh(len), chi(len) |
real pnk(len), qsnk(len), rh(len), chi(len) |
39 |
real A, B ! convect3 |
real A, B ! convect3 |
40 |
|
|