/[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/Sources/phylmd/CV3_routines/cv3_uncompress.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/Sources/phylmd/CV30_routines/cv30_uncompress.f revision 185 by guez, Wed Mar 16 15:04:46 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, wd, cape, da, phi, mp, &
9         iflag1, precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, &         iflag1, precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, &
10         upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, da1, phi1, mp1)         upwd1, dnwd1, dnwd01, qcondc1, wd1, 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 40  contains Line 39  contains
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 86  contains Line 85  contains
85         end do         end do
86      end do      end do
87    
88    end SUBROUTINE cv3_uncompress    end SUBROUTINE cv30_uncompress
89    
90  end module cv3_uncompress_m  end module cv30_uncompress_m
Legend:
Removed from v.134  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21