phylmd/CV_routines/cv_uncompress.f

module cv_uncompress_m

  implicit none

contains

  SUBROUTINE cv_uncompress(idcum, iflag, precip, cbmf, ft, fq, fu, fv, Ma, &
       qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, Ma1, qcondc1)

    use cv_param, ONLY: nl
    USE dimphy, ONLY: klev, klon

    integer, intent(in):: idcum(:) ! (ncum)
    integer, intent(in):: iflag(klon)
    real, intent(in):: precip(klon), cbmf(klon)
    real, intent(in):: ft(klon, klev), fq(klon, klev), fu(klon, klev)
    real, intent(in):: fv(klon, klev)
    real, intent(in):: Ma(klon, klev)
    real, intent(in):: qcondc(klon, klev) !cld

    integer, intent(inout):: iflag1(klon)
    real, intent(inout):: precip1(klon), cbmf1(klon)
    real, intent(inout), dimension(klon, klev):: ft1, fq1, fu1, fv1
    real, intent(inout):: Ma1(klon, klev)
    real, intent(inout):: qcondc1(klon, klev) !cld

    ! Local:
    integer ncum, i, k

    !------------------------------------------------------------------

    ncum = size(idcum)

    do i=1, ncum
       precip1(idcum(i))=precip(i)
       cbmf1(idcum(i))=cbmf(i)
       iflag1(idcum(i))=iflag(i)
    end do

    do k=1, nl
       do i=1, ncum
          ft1(idcum(i), k)=ft(i, k)
          fq1(idcum(i), k)=fq(i, k)
          fu1(idcum(i), k)=fu(i, k)
          fv1(idcum(i), k)=fv(i, k)
          Ma1(idcum(i), k)=Ma(i, k)
          qcondc1(idcum(i), k)=qcondc(i, k)
       end do
    end do

  end SUBROUTINE cv_uncompress

end module cv_uncompress_m
1	guez	97	module cv_uncompress_m
2	guez	52
3	guez	97	implicit none
4	guez	52
5	guez	97	contains
6	guez	52
7	guez	103	SUBROUTINE cv_uncompress(idcum, iflag, precip, cbmf, ft, fq, fu, fv, Ma, &
8			qcondc, iflag1, precip1, cbmf1, ft1, fq1, fu1, fv1, Ma1, qcondc1)
9	guez	52
10	guez	103	use cv_param, ONLY: nl
11			USE dimphy, ONLY: klev, klon
12	guez	52
13	guez	103	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	guez	52
21	guez	103	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	guez	52
27	guez	103	! Local:
28			integer ncum, i, k
29
30			!------------------------------------------------------------------
31
32			ncum = size(idcum)
33
34			do i=1, ncum
35	guez	97	precip1(idcum(i))=precip(i)
36			cbmf1(idcum(i))=cbmf(i)
37			iflag1(idcum(i))=iflag(i)
38			end do
39	guez	52
40	guez	103	do k=1, nl
41			do i=1, ncum
42			ft1(idcum(i), k)=ft(i, k)
43			fq1(idcum(i), k)=fq(i, k)
44			fu1(idcum(i), k)=fu(i, k)
45			fv1(idcum(i), k)=fv(i, k)
46			Ma1(idcum(i), k)=Ma(i, k)
47			qcondc1(idcum(i), k)=qcondc(i, k)
48	guez	97	end do
49			end do
50
51			end SUBROUTINE cv_uncompress
52
53			end module cv_uncompress_m