1 |
module cv3_uncompress_m |
module cv30_uncompress_m |
2 |
|
|
3 |
implicit none |
implicit none |
4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE cv3_uncompress(idcum, iflag, precip, VPrecip, sig, w0, ft, fq, & |
SUBROUTINE cv30_uncompress(idcum, iflag, precip, VPrecip, sig, w0, ft, fq, & |
8 |
fu, fv, inb, Ma, upwd, dnwd, dnwd0, qcondc, wd, cape, da, phi, mp, & |
fu, fv, inb, Ma, upwd, dnwd, dnwd0, qcondc, wd, cape, da, phi, mp, & |
9 |
iflag1, precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, & |
iflag1, precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, & |
10 |
upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, da1, phi1, mp1) |
upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, da1, phi1, mp1) |
11 |
|
|
12 |
USE cv3_param_m, ONLY: nl |
USE cv30_param_m, ONLY: nl |
13 |
use dimphy, only: klon, klev |
use dimphy, only: klon, klev |
14 |
|
|
15 |
integer, intent(in):: idcum(:) ! (ncum) |
integer, intent(in):: idcum(:) ! (ncum) |
85 |
end do |
end do |
86 |
end do |
end do |
87 |
|
|
88 |
end SUBROUTINE cv3_uncompress |
end SUBROUTINE cv30_uncompress |
89 |
|
|
90 |
end module cv3_uncompress_m |
end module cv30_uncompress_m |