1 |
guez |
52 |
|
2 |
|
|
SUBROUTINE cv_uncompress(nloc,len,ncum,nd,idcum & |
3 |
|
|
,iflag & |
4 |
|
|
,precip,cbmf & |
5 |
|
|
,ft,fq,fu,fv & |
6 |
|
|
,Ma,qcondc & |
7 |
|
|
,iflag1 & |
8 |
|
|
,precip1,cbmf1 & |
9 |
|
|
,ft1,fq1,fu1,fv1 & |
10 |
|
|
,Ma1,qcondc1 & |
11 |
|
|
) |
12 |
|
|
use cvparam |
13 |
|
|
implicit none |
14 |
|
|
|
15 |
|
|
|
16 |
|
|
! inputs: |
17 |
|
|
integer len, ncum, nd, nloc |
18 |
|
|
integer idcum(nloc) |
19 |
|
|
integer iflag(nloc) |
20 |
|
|
real precip(nloc), cbmf(nloc) |
21 |
|
|
real ft(nloc,nd), fq(nloc,nd), fu(nloc,nd), fv(nloc,nd) |
22 |
|
|
real Ma(nloc,nd) |
23 |
|
|
real qcondc(nloc,nd) !cld |
24 |
|
|
|
25 |
|
|
! outputs: |
26 |
|
|
integer iflag1(len) |
27 |
|
|
real precip1(len), cbmf1(len) |
28 |
|
|
real ft1(len,nd), fq1(len,nd), fu1(len,nd), fv1(len,nd) |
29 |
|
|
real Ma1(len,nd) |
30 |
|
|
real qcondc1(len,nd) !cld |
31 |
|
|
|
32 |
|
|
! local variables: |
33 |
|
|
integer i,k |
34 |
|
|
|
35 |
|
|
do 2000 i=1,ncum |
36 |
|
|
precip1(idcum(i))=precip(i) |
37 |
|
|
cbmf1(idcum(i))=cbmf(i) |
38 |
|
|
iflag1(idcum(i))=iflag(i) |
39 |
|
|
2000 continue |
40 |
|
|
|
41 |
|
|
do 2020 k=1,nl |
42 |
|
|
do 2010 i=1,ncum |
43 |
|
|
ft1(idcum(i),k)=ft(i,k) |
44 |
|
|
fq1(idcum(i),k)=fq(i,k) |
45 |
|
|
fu1(idcum(i),k)=fu(i,k) |
46 |
|
|
fv1(idcum(i),k)=fv(i,k) |
47 |
|
|
Ma1(idcum(i),k)=Ma(i,k) |
48 |
|
|
qcondc1(idcum(i),k)=qcondc(i,k) |
49 |
|
|
2010 continue |
50 |
|
|
2020 continue |
51 |
|
|
|
52 |
|
|
return |
53 |
|
|
end |