| 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 |
Parent Directory
| 
Revision Log
| 
Patch