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

Diff of /trunk/Sources/phylmd/CV3_routines/cv3_uncompress.f

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

revision 179 by guez, Wed Apr 29 15:47:56 2015 UTC revision 180 by guez, Tue Mar 15 17:07:47 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.179  
changed lines
  Added in v.180
  ViewVC Help
Powered by ViewVC 1.1.21