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 |