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

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

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC
# Line 1  Line 1 
1  SUBROUTINE cv3_uncompress(nloc, len, ncum, nd, ntra, idcum, iflag, precip, &  module cv3_uncompress_m
      VPrecip, sig, w0, ft, fq, fu, fv, ftra, inb, Ma, upwd, dnwd, dnwd0, &  
      qcondc, wd, cape, da, phi, mp, iflag1, precip1, VPrecip1, sig1, w01, &  
      ft1, fq1, fu1, fv1, ftra1, inb1, Ma1, upwd1, dnwd1, dnwd01, qcondc1, &  
      wd1, cape1, da1, phi1, mp1)  
   
   use cv3_param_m  
2    
3    implicit none    implicit none
4    
5    ! inputs:  contains
6    integer, intent(in):: len, ncum, nd, ntra, nloc  
7    integer idcum(nloc)    SUBROUTINE cv3_uncompress(nloc, len, ncum, nd, idcum, iflag, precip, &
8    integer iflag(nloc)         VPrecip, sig, w0, ft, fq, fu, fv, inb, Ma, upwd, dnwd, dnwd0, qcondc, &
9    integer inb(nloc)         wd, cape, da, phi, mp, iflag1, precip1, VPrecip1, sig1, w01, ft1, fq1, &
10    real precip(nloc)         fu1, fv1, inb1, Ma1, upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1, da1, &
11    real VPrecip(nloc, nd+1)         phi1, mp1)
12    real sig(nloc, nd), w0(nloc, nd)  
13    real ft(nloc, nd), fq(nloc, nd), fu(nloc, nd), fv(nloc, nd)      USE cv3_param_m, ONLY: nl
14    real ftra(nloc, nd, ntra)  
15    real Ma(nloc, nd)      ! inputs:
16    real upwd(nloc, nd), dnwd(nloc, nd), dnwd0(nloc, nd)      integer, intent(in):: nloc, len, ncum, nd
17    real qcondc(nloc, nd)      integer, intent(in):: idcum(nloc)
18    real wd(nloc), cape(nloc)      integer, intent(in):: iflag(nloc)
19    real da(nloc, nd), phi(nloc, nd, nd), mp(nloc, nd)      real, intent(in):: precip(nloc)
20        real, intent(in):: VPrecip(nloc, nd+1)
21    ! outputs:      real, intent(in):: sig(nloc, nd), w0(nloc, nd)
22    integer iflag1(len)      real, intent(in):: ft(nloc, nd), fq(nloc, nd), fu(nloc, nd), fv(nloc, nd)
23    integer inb1(len)      integer, intent(in):: inb(nloc)
24    real precip1(len)      real, intent(in):: Ma(nloc, nd)
25    real VPrecip1(len, nd+1)      real, intent(in):: upwd(nloc, nd), dnwd(nloc, nd), dnwd0(nloc, nd)
26    real sig1(len, nd), w01(len, nd)      real, intent(in):: qcondc(nloc, nd)
27    real ft1(len, nd), fq1(len, nd), fu1(len, nd), fv1(len, nd)      real, intent(in):: wd(nloc), cape(nloc)
28    real ftra1(len, nd, ntra)      real, intent(in):: da(nloc, nd), phi(nloc, nd, nd), mp(nloc, nd)
29    real Ma1(len, nd)  
30    real upwd1(len, nd), dnwd1(len, nd), dnwd01(len, nd)      ! outputs:
31    real qcondc1(nloc, nd)      integer iflag1(len)
32    real wd1(nloc), cape1(nloc)      real precip1(len)
33    real da1(nloc, nd), phi1(nloc, nd, nd), mp1(nloc, nd)      real VPrecip1(len, nd+1)
34        real sig1(len, nd), w01(len, nd)
35    ! local variables:      real ft1(len, nd), fq1(len, nd), fu1(len, nd), fv1(len, nd)
36    integer i, k, j      integer inb1(len)
37        real Ma1(len, nd)
38    !-------------------------------------------------------------------      real upwd1(len, nd), dnwd1(len, nd), dnwd01(len, nd)
39        real qcondc1(nloc, nd)
40    do  i=1, ncum      real wd1(nloc), cape1(nloc)
41       precip1(idcum(i))=precip(i)      real da1(nloc, nd), phi1(nloc, nd, nd), mp1(nloc, nd)
42       iflag1(idcum(i))=iflag(i)  
43       wd1(idcum(i))=wd(i)      ! local variables:
44       inb1(idcum(i))=inb(i)      integer i, k, j
45       cape1(idcum(i))=cape(i)  
46    end do      !-------------------------------------------------------------------
47    
48    do  k=1, nl      do  i=1, ncum
49       do  i=1, ncum         precip1(idcum(i))=precip(i)
50          VPrecip1(idcum(i), k)=VPrecip(i, k)         iflag1(idcum(i))=iflag(i)
51          sig1(idcum(i), k)=sig(i, k)         wd1(idcum(i))=wd(i)
52          w01(idcum(i), k)=w0(i, k)         inb1(idcum(i))=inb(i)
53          ft1(idcum(i), k)=ft(i, k)         cape1(idcum(i))=cape(i)
54          fq1(idcum(i), k)=fq(i, k)      end do
55          fu1(idcum(i), k)=fu(i, k)  
56          fv1(idcum(i), k)=fv(i, k)      do  k=1, nl
57          Ma1(idcum(i), k)=Ma(i, k)         do  i=1, ncum
58          upwd1(idcum(i), k)=upwd(i, k)            VPrecip1(idcum(i), k)=VPrecip(i, k)
59          dnwd1(idcum(i), k)=dnwd(i, k)            sig1(idcum(i), k)=sig(i, k)
60          dnwd01(idcum(i), k)=dnwd0(i, k)            w01(idcum(i), k)=w0(i, k)
61          qcondc1(idcum(i), k)=qcondc(i, k)            ft1(idcum(i), k)=ft(i, k)
62          da1(idcum(i), k)=da(i, k)            fq1(idcum(i), k)=fq(i, k)
63          mp1(idcum(i), k)=mp(i, k)            fu1(idcum(i), k)=fu(i, k)
64       end do            fv1(idcum(i), k)=fv(i, k)
65    end do            Ma1(idcum(i), k)=Ma(i, k)
66              upwd1(idcum(i), k)=upwd(i, k)
67    do  i=1, ncum            dnwd1(idcum(i), k)=dnwd(i, k)
68       sig1(idcum(i), nd)=sig(i, nd)            dnwd01(idcum(i), k)=dnwd0(i, k)
69    end do            qcondc1(idcum(i), k)=qcondc(i, k)
70              da1(idcum(i), k)=da(i, k)
71    do j=1, nd            mp1(idcum(i), k)=mp(i, k)
72       do k=1, nd         end do
73          do i=1, ncum      end do
74             phi1(idcum(i), k, j)=phi(i, k, j)  
75          end do      do  i=1, ncum
76       end do         sig1(idcum(i), nd)=sig(i, nd)
77    end do      end do
78    
79        do j=1, nd
80           do k=1, nd
81              do i=1, ncum
82                 phi1(idcum(i), k, j)=phi(i, k, j)
83              end do
84           end do
85        end do
86    
87      end SUBROUTINE cv3_uncompress
88    
89  end SUBROUTINE cv3_uncompress  end module cv3_uncompress_m
Legend:
Removed from v.82  
changed lines
  Added in v.97
  ViewVC Help
Powered by ViewVC 1.1.21