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 | guez | 97 | module cv_uncompress_m |
| 2 | guez | 52 | |
| 3 | guez | 97 | implicit none |
| 4 | guez | 52 | |
| 5 | guez | 97 | contains |
| 6 | guez | 52 | |
| 7 | guez | 97 | 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 | guez | 52 | |
| 19 | guez | 97 | ! 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 | guez | 52 | |
| 28 | guez | 97 | ! 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 | guez | 52 | |
| 35 | guez | 97 | ! local variables: |
| 36 | integer i,k | ||
| 37 | guez | 52 | |
| 38 | guez | 97 | 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 | guez | 52 | |
| 44 | guez | 97 | 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 |