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

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_compress.f

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

trunk/phylmd/CV3_routines/cv3_compress.f revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC trunk/Sources/phylmd/CV3_routines/cv3_compress.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 21  contains Line 21  contains
21      real, intent(in):: t1(len, nd)      real, intent(in):: t1(len, nd)
22      real, intent(in):: q1(len, nd), qs1(len, nd), u1(len, nd), v1(len, nd)      real, intent(in):: q1(len, nd), qs1(len, nd), u1(len, nd), v1(len, nd)
23      real gz1(len, nd), h1(len, nd), lv1(len, nd), cpn1(len, nd)      real gz1(len, nd), h1(len, nd), lv1(len, nd), cpn1(len, nd)
24      real p1(len, nd), ph1(len, nd+1), tv1(len, nd), tp1(len, nd)      real, intent(in):: p1(len, nd), ph1(len, nd+1), tv1(len, nd), tp1(len, nd)
25      real tvp1(len, nd), clw1(len, nd)      real tvp1(len, nd), clw1(len, nd)
26      real th1(len, nd)      real th1(len, nd)
27      real sig1(len, nd), w01(len, nd)      real sig1(len, nd), w01(len, nd)
# Line 39  contains Line 39  contains
39      real sig(nloc, nd), w0(nloc, nd)      real sig(nloc, nd), w0(nloc, nd)
40    
41      ! local variables:      ! local variables:
42      integer i, k, nn, j      integer i, k, nn
43    
44    
45      do  k=1, nl+1      do  k=1, nl+1
Legend:
Removed from v.97  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21