/[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 189 by guez, Tue Mar 29 15:20:23 2016 UTC revision 196 by guez, Mon May 23 13:50:39 2016 UTC
# Line 9  contains Line 9  contains
9         precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, upwd1, &         precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, upwd1, &
10         dnwd1, dnwd01, qcondc1, cape1, da1, phi1, mp1)         dnwd1, dnwd01, qcondc1, cape1, da1, phi1, mp1)
11    
12        ! UNCOMPRESS THE FIELDS
13    
14      USE cv30_param_m, ONLY: nl      USE cv30_param_m, ONLY: nl
15      use dimphy, only: klon, klev      use dimphy, only: klon, klev
16    
17      integer, intent(in):: idcum(:) ! (ncum)      integer, intent(in):: idcum(:) ! (ncum)
18      integer, intent(in):: iflag(klon)      integer, intent(in):: iflag(:) ! (ncum)
19      real, intent(in):: precip(klon)      real, intent(in):: precip(klon)
20      real, intent(in):: VPrecip(klon, klev+1)      real, intent(in):: VPrecip(klon, klev+1)
21      real, intent(in):: sig(klon, klev), w0(klon, klev)      real, intent(in):: sig(klon, klev), w0(klon, klev)
# Line 26  contains Line 28  contains
28      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)
29    
30      ! outputs:      ! outputs:
31      integer iflag1(klon)      integer, intent(out):: iflag1(:) ! (klon)
32      real precip1(klon)      real precip1(klon)
33      real VPrecip1(klon, klev+1)      real VPrecip1(klon, klev+1)
34      real sig1(klon, klev), w01(klon, klev)      real sig1(klon, klev), w01(klon, klev)
# Line 45  contains Line 47  contains
47      !-------------------------------------------------------------------      !-------------------------------------------------------------------
48    
49      ncum = size(idcum)      ncum = size(idcum)
50        iflag1 = 42 ! for non convective points
51    
52      do  i=1, ncum      do  i=1, ncum
53         precip1(idcum(i))=precip(i)         precip1(idcum(i))=precip(i)
Legend:
Removed from v.189  
changed lines
  Added in v.196
  ViewVC Help
Powered by ViewVC 1.1.21