/[lmdze]/trunk/phylmd/CV_routines/cv_uncompress.f
ViewVC logotype

Diff of /trunk/phylmd/CV_routines/cv_uncompress.f

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

revision 102 by guez, Fri Apr 25 14:58:31 2014 UTC revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 4  module cv_uncompress_m Line 4  module cv_uncompress_m
4    
5  contains  contains
6    
7    SUBROUTINE cv_uncompress(nloc,len,ncum,nd,idcum &    SUBROUTINE cv_uncompress(idcum, iflag, precip, cbmf, ft, fq, fu, fv, Ma, &
8         ,iflag &         qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, Ma1, qcondc1)
        ,precip,cbmf &  
        ,ft,fq,fu,fv &  
        ,Ma,qcondc             &  
        ,iflag1 &  
        ,precip1,cbmf1 &  
        ,ft1,fq1,fu1,fv1 &  
        ,Ma1,qcondc1             &  
        )  
     use cvparam  
   
     ! inputs:  
     integer, intent(in):: len, ncum, nd, nloc  
     integer idcum(nloc)  
     integer iflag(nloc)  
     real precip(nloc), cbmf(nloc)  
     real ft(nloc,nd), fq(nloc,nd), fu(nloc,nd), fv(nloc,nd)  
     real Ma(nloc,nd)  
     real qcondc(nloc,nd) !cld  
   
     ! outputs:  
     integer iflag1(len)  
     real precip1(len), cbmf1(len)  
     real ft1(len,nd), fq1(len,nd), fu1(len,nd), fv1(len,nd)  
     real Ma1(len,nd)  
     real qcondc1(len,nd) !cld  
9    
10      ! local variables:      use cv_param, ONLY: nl
11      integer i,k      USE dimphy, ONLY: klev, klon
12    
13      do  i=1,ncum      integer, intent(in):: idcum(:) ! (ncum)
14        integer, intent(in):: iflag(klon)
15        real, intent(in):: precip(klon), cbmf(klon)
16        real, intent(in):: ft(klon, klev), fq(klon, klev), fu(klon, klev)
17        real, intent(in):: fv(klon, klev)
18        real, intent(in):: Ma(klon, klev)
19        real, intent(in):: qcondc(klon, klev) !cld
20    
21        integer, intent(inout):: iflag1(klon)
22        real, intent(inout):: precip1(klon), cbmf1(klon)
23        real, intent(inout), dimension(klon, klev):: ft1, fq1, fu1, fv1
24        real, intent(inout):: Ma1(klon, klev)
25        real, intent(inout):: qcondc1(klon, klev) !cld
26    
27        ! Local:
28        integer ncum, i, k
29    
30        !------------------------------------------------------------------
31    
32        ncum = size(idcum)
33    
34        do i=1, ncum
35         precip1(idcum(i))=precip(i)         precip1(idcum(i))=precip(i)
36         cbmf1(idcum(i))=cbmf(i)         cbmf1(idcum(i))=cbmf(i)
37         iflag1(idcum(i))=iflag(i)         iflag1(idcum(i))=iflag(i)
38      end do      end do
39    
40      do  k=1,nl      do k=1, nl
41         do  i=1,ncum         do i=1, ncum
42            ft1(idcum(i),k)=ft(i,k)            ft1(idcum(i), k)=ft(i, k)
43            fq1(idcum(i),k)=fq(i,k)            fq1(idcum(i), k)=fq(i, k)
44            fu1(idcum(i),k)=fu(i,k)            fu1(idcum(i), k)=fu(i, k)
45            fv1(idcum(i),k)=fv(i,k)            fv1(idcum(i), k)=fv(i, k)
46            Ma1(idcum(i),k)=Ma(i,k)            Ma1(idcum(i), k)=Ma(i, k)
47            qcondc1(idcum(i),k)=qcondc(i,k)            qcondc1(idcum(i), k)=qcondc(i, k)
48         end do         end do
49      end do      end do
50    
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21