/[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/CV30_routines/cv30_compress.f revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC
# Line 1  Line 1 
1  module cv3_compress_m  module cv30_compress_m
2    
3    implicit none    implicit none
4    
5  contains  contains
6    
7    SUBROUTINE cv3_compress(len, nloc, ncum, nd, iflag1, nk1, icb1, icbs1, &    SUBROUTINE cv30_compress(len, nloc, ncum, nd, iflag1, nk1, icb1, icbs1, &
8         plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, v1, gz1, &         plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, v1, gz1, &
9         th1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, sig1, w01, iflag, &         th1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, sig1, w01, iflag, &
10         nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, v, &         nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, v, &
11         gz, th, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)         gz, th, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)
12    
13      use cv3_param_m      use cv30_param_m
14    
15    
16      ! inputs:      ! inputs:
# 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
# Line 91  contains Line 91  contains
91         endif         endif
92      end do      end do
93    
94    end SUBROUTINE cv3_compress    end SUBROUTINE cv30_compress
95    
96  end module cv3_compress_m  end module cv30_compress_m
Legend:
Removed from v.97  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21