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

Diff of /trunk/Sources/phylmd/CV30_routines/cv3_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/cv3_uncompress.f revision 184 by guez, Wed Mar 16 14:50:46 2016 UTC
# Line 12  contains Line 12  contains
12      USE cv3_param_m, ONLY: nl      USE cv3_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      !-------------------------------------------------------------------      !-------------------------------------------------------------------
Legend:
Removed from v.103  
changed lines
  Added in v.184
  ViewVC Help
Powered by ViewVC 1.1.21