/[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

trunk/phylmd/CV3_routines/cv3_uncompress.f revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC trunk/Sources/phylmd/CV30_routines/cv30_uncompress.f revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC
# Line 1  Line 1 
1  module cv3_uncompress_m  module cv30_uncompress_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_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 cv3_param_m, ONLY: nl      USE cv30_param_m, ONLY: nl
13      use dimphy, only: klon, klev      use dimphy, only: klon, klev
14    
     ! inputs:  
15      integer, intent(in):: idcum(:) ! (ncum)      integer, intent(in):: idcum(:) ! (ncum)
16      integer, intent(in):: iflag(klon)      integer, intent(in):: iflag(klon)
17      real, intent(in):: precip(klon)      real, intent(in):: precip(klon)
# Line 23  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 36  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    
42      ! local variables:      ! Local:
43      integer ncum, i, k, j      integer ncum, i, k, j
44    
45      !-------------------------------------------------------------------      !-------------------------------------------------------------------
# Line 50  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
# Line 86  contains Line 84  contains
84         end do         end do
85      end do      end do
86    
87    end SUBROUTINE cv3_uncompress    end SUBROUTINE cv30_uncompress
88    
89  end module cv3_uncompress_m  end module cv30_uncompress_m
Legend:
Removed from v.103  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21