1 |
module cv3_feed_m |
module cv30_feed_m |
2 |
|
|
3 |
implicit none |
implicit none |
4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE cv3_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, & |
SUBROUTINE cv30_feed(len, nd, t, q, qs, p, ph, gz, nk, icb, icbmax, iflag, & |
8 |
tnk, qnk, gznk, plcl) |
tnk, qnk, gznk, plcl) |
9 |
|
|
10 |
! Purpose: convective feed |
! Purpose: convective feed |
14 |
! - here, nk(i) = minorig |
! - here, nk(i) = minorig |
15 |
! - icb defined differently (plcl compared with ph instead of p) |
! - icb defined differently (plcl compared with ph instead of p) |
16 |
|
|
17 |
use cv3_param_m, only: minorig, nl, nlm |
use cv30_param_m, only: minorig, nl, nlm |
18 |
|
|
19 |
integer, intent(in):: len, nd |
integer, intent(in):: len, nd |
20 |
real, intent(in):: t(len, nd) |
real, intent(in):: t(len, nd) |
100 |
if (iflag(i) < 7) icbmax = max(icbmax, icb(i)) |
if (iflag(i) < 7) icbmax = max(icbmax, icb(i)) |
101 |
end do |
end do |
102 |
|
|
103 |
end SUBROUTINE cv3_feed |
end SUBROUTINE cv30_feed |
104 |
|
|
105 |
end module cv3_feed_m |
end module cv30_feed_m |