/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_uncompress.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_uncompress.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 188 by guez, Wed Mar 16 15:04:46 2016 UTC revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC
# Line 5  module cv30_uncompress_m Line 5  module cv30_uncompress_m
5  contains  contains
6    
7    SUBROUTINE cv30_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, cape, da, phi, mp, iflag1, &
9         iflag1, precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, &         precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, upwd1, &
10         upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, da1, phi1, mp1)         dnwd1, dnwd01, qcondc1, cape1, da1, phi1, mp1)
11    
12      USE cv30_param_m, ONLY: nl      USE cv30_param_m, ONLY: nl
13      use dimphy, only: klon, klev      use dimphy, only: klon, klev
# Line 22  contains Line 22  contains
22      real, intent(in):: Ma(klon, klev)      real, intent(in):: Ma(klon, klev)
23      real, intent(in):: upwd(klon, klev), dnwd(klon, klev), dnwd0(klon, klev)      real, intent(in):: upwd(klon, klev), dnwd(klon, klev), dnwd0(klon, klev)
24      real, intent(in):: qcondc(klon, klev)      real, intent(in):: qcondc(klon, klev)
25      real, intent(in):: wd(klon), cape(klon)      real, intent(in):: cape(klon)
26      real, intent(in):: da(klon, klev), phi(klon, klev, klev), mp(klon, klev)      real, intent(in):: da(klon, klev), phi(klon, klev, klev), mp(klon, klev)
27    
28      ! outputs:      ! outputs:
# Line 35  contains Line 35  contains
35      real Ma1(klon, klev)      real Ma1(klon, klev)
36      real upwd1(klon, klev), dnwd1(klon, klev), dnwd01(klon, klev)      real upwd1(klon, klev), dnwd1(klon, klev), dnwd01(klon, klev)
37      real qcondc1(klon, klev)      real qcondc1(klon, klev)
38      real wd1(klon), cape1(klon)      real cape1(klon)
39      real, intent(inout):: da1(klon, klev), phi1(klon, klev, klev)      real, intent(inout):: da1(klon, klev), phi1(klon, klev, klev)
40      real, intent(inout):: mp1(klon, klev)      real, intent(inout):: mp1(klon, klev)
41    
# Line 49  contains Line 49  contains
49      do  i=1, ncum      do  i=1, ncum
50         precip1(idcum(i))=precip(i)         precip1(idcum(i))=precip(i)
51         iflag1(idcum(i))=iflag(i)         iflag1(idcum(i))=iflag(i)
        wd1(idcum(i))=wd(i)  
52         inb1(idcum(i))=inb(i)         inb1(idcum(i))=inb(i)
53         cape1(idcum(i))=cape(i)         cape1(idcum(i))=cape(i)
54      end do      end do
Legend:
Removed from v.188  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21