/[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 91 by guez, Wed Mar 26 17:18:58 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, ntra, iflag1, nk1, icb1, &    SUBROUTINE cv30_compress(len, nloc, ncum, nd, iflag1, nk1, icb1, icbs1, &
8         icbs1, plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, &         plcl1, tnk1, qnk1, gznk1, pbase1, buoybase1, t1, q1, qs1, u1, v1, gz1, &
9         v1, gz1, th1, tra1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, &         th1, h1, lv1, cpn1, p1, ph1, tv1, tp1, tvp1, clw1, sig1, w01, iflag, &
10         sig1, w01, iflag, nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, &         nk, icb, icbs, plcl, tnk, qnk, gznk, pbase, buoybase, t, q, qs, u, v, &
11         buoybase, t, q, qs, u, v, gz, th, tra, h, lv, cpn, p, ph, tv, tp, tvp, &         gz, th, h, lv, cpn, p, ph, tv, tp, tvp, clw, sig, w0)
        clw, sig, w0)  
12    
13      use cv3_param_m      use cv30_param_m
14    
15    
16      ! inputs:      ! inputs:
17      integer, intent(in):: len, ncum, nd, ntra, nloc      integer, intent(in):: len, ncum, nd, nloc
18      integer iflag1(len), nk1(len), icb1(len), icbs1(len)      integer iflag1(len), nk1(len), icb1(len), icbs1(len)
19      real plcl1(len), tnk1(len), qnk1(len), gznk1(len)      real plcl1(len), tnk1(len), qnk1(len), gznk1(len)
20      real pbase1(len), buoybase1(len)      real pbase1(len), buoybase1(len)
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)
     real, intent(in):: tra1(len, nd, ntra)  
28    
29      ! outputs:      ! outputs:
30      ! en fait, on a nloc=len pour l'instant (cf cv_driver)      ! en fait, on a nloc=len pour l'instant (cf cv_driver)
# Line 39  contains Line 37  contains
37      real tvp(nloc, nd), clw(nloc, nd)      real tvp(nloc, nd), clw(nloc, nd)
38      real th(nloc, nd)      real th(nloc, nd)
39      real sig(nloc, nd), w0(nloc, nd)      real sig(nloc, nd), w0(nloc, nd)
     real tra(nloc, nd, ntra)  
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 94  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.91  
changed lines
  Added in v.185
  ViewVC Help
Powered by ViewVC 1.1.21