Parent Directory | Revision Log
Module pressure_var is now only used in gcm. Created local variables pls and p3d in etat0, added argument p3d to regr_pr_o3. In leapfrog, moved computation of p3d and exner function immediately after integrd, for clarity (does not change the execution). Removed unused arguments: ntra, tra1 and tra of cv3_compress; ntra, tra and traent of cv3_mixing; ntra, ftra, ftra1 of cv3_uncompress; ntra, tra, trap of cv3_unsat; ntra, tra, trap, traent, ftra of cv3_yield; tra, tvp, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt, dplcldr, ntra of concvl; ndp1, ntra, tra1 of cv_driver Removed argument d_tra and computation of d_tra in concvl. Removed argument ftra1 and computation of ftra1 in cv_driver. ftra1 was just set to 0 in cv_driver, associated to d_tra in concvl, and set again to zero in concvl.
1 | module cv_uncompress_m |
2 | |
3 | implicit none |
4 | |
5 | contains |
6 | |
7 | SUBROUTINE cv_uncompress(nloc,len,ncum,nd,idcum & |
8 | ,iflag & |
9 | ,precip,cbmf & |
10 | ,ft,fq,fu,fv & |
11 | ,Ma,qcondc & |
12 | ,iflag1 & |
13 | ,precip1,cbmf1 & |
14 | ,ft1,fq1,fu1,fv1 & |
15 | ,Ma1,qcondc1 & |
16 | ) |
17 | use cvparam |
18 | |
19 | ! inputs: |
20 | integer, intent(in):: len, ncum, nd, nloc |
21 | integer idcum(nloc) |
22 | integer iflag(nloc) |
23 | real precip(nloc), cbmf(nloc) |
24 | real ft(nloc,nd), fq(nloc,nd), fu(nloc,nd), fv(nloc,nd) |
25 | real Ma(nloc,nd) |
26 | real qcondc(nloc,nd) !cld |
27 | |
28 | ! outputs: |
29 | integer iflag1(len) |
30 | real precip1(len), cbmf1(len) |
31 | real ft1(len,nd), fq1(len,nd), fu1(len,nd), fv1(len,nd) |
32 | real Ma1(len,nd) |
33 | real qcondc1(len,nd) !cld |
34 | |
35 | ! local variables: |
36 | integer i,k |
37 | |
38 | do i=1,ncum |
39 | precip1(idcum(i))=precip(i) |
40 | cbmf1(idcum(i))=cbmf(i) |
41 | iflag1(idcum(i))=iflag(i) |
42 | end do |
43 | |
44 | do k=1,nl |
45 | do i=1,ncum |
46 | ft1(idcum(i),k)=ft(i,k) |
47 | fq1(idcum(i),k)=fq(i,k) |
48 | fu1(idcum(i),k)=fu(i,k) |
49 | fv1(idcum(i),k)=fv(i,k) |
50 | Ma1(idcum(i),k)=Ma(i,k) |
51 | qcondc1(idcum(i),k)=qcondc(i,k) |
52 | end do |
53 | end do |
54 | |
55 | end SUBROUTINE cv_uncompress |
56 | |
57 | end module cv_uncompress_m |
ViewVC Help | |
Powered by ViewVC 1.1.21 |