/[lmdze]/trunk/phylmd/CV30_routines/cv30_uncompress.f90
ViewVC logotype

Diff of /trunk/phylmd/CV30_routines/cv30_uncompress.f90

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

revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC revision 201 by guez, Mon Jun 6 17:42:15 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)
22      real, intent(in), dimension(klon, klev):: ft, fq, fu, fv      real, intent(in), dimension(klon, klev):: ft, fq, fu, fv
23      integer, intent(in):: inb(klon)      integer, intent(in):: inb(:) ! (ncum)
24      real, intent(in):: Ma(klon, klev)      real, intent(in):: Ma(klon, klev)
25      real, intent(in):: upwd(klon, klev), dnwd(klon, klev), dnwd0(klon, klev)      real, intent(in):: upwd(klon, klev), dnwd(klon, klev), dnwd0(klon, klev)
26      real, intent(in):: qcondc(klon, klev)      real, intent(in):: qcondc(klon, klev)
27      real, intent(in):: cape(klon)      real, intent(in):: cape(klon)
28      real, intent(in):: da(klon, klev), phi(klon, klev, klev), mp(klon, klev)      real, intent(in):: da(:, :) ! (klon, klev)
29        real, intent(in):: phi(:, :, :) ! (klon, klev, klev)
30        real, intent(in):: mp(:, :) ! (ncum, nl)
31    
32      ! outputs:      ! outputs:
33      integer iflag1(klon)      integer, intent(out):: iflag1(:) ! (klon)
34      real precip1(klon)      real precip1(klon)
35      real VPrecip1(klon, klev+1)      real VPrecip1(klon, klev+1)
36      real sig1(klon, klev), w01(klon, klev)      real sig1(klon, klev), w01(klon, klev)
# Line 45  contains Line 49  contains
49      !-------------------------------------------------------------------      !-------------------------------------------------------------------
50    
51      ncum = size(idcum)      ncum = size(idcum)
52        iflag1 = 42 ! for non convective points
53    
54      do  i=1, ncum      do  i=1, ncum
55         precip1(idcum(i))=precip(i)         precip1(idcum(i))=precip(i)
Legend:
Removed from v.189  
changed lines
  Added in v.201
  ViewVC Help
Powered by ViewVC 1.1.21