82 |
real cape1(len) |
real cape1(len) |
83 |
! cape1 Real Output CAPE |
! cape1 Real Output CAPE |
84 |
|
|
85 |
real da1(len, nd), phi1(len, nd, nd), mp1(len, nd) |
real, intent(inout):: da1(len, nd), phi1(len, nd, nd), mp1(len, nd) |
86 |
|
|
87 |
!------------------------------------------------------------------- |
!------------------------------------------------------------------- |
88 |
! --- ARGUMENTS |
! --- ARGUMENTS |
389 |
endif |
endif |
390 |
end do |
end do |
391 |
|
|
|
! print*, 'klon, ncum = ', len, ncum |
|
|
|
|
392 |
IF (ncum.gt.0) THEN |
IF (ncum.gt.0) THEN |
393 |
|
|
394 |
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
539 |
end do |
end do |
540 |
|
|
541 |
if (iflag_con.eq.3) then |
if (iflag_con.eq.3) then |
542 |
CALL cv3_uncompress(nloc, len, ncum, nd, idcum & |
CALL cv3_uncompress(nloc, len, ncum, nd, idcum, iflag, precip, & |
543 |
, iflag & |
VPrecip, sig, w0, ft, fq, fu, fv, inb, Ma, upwd, dnwd, dnwd0, & |
544 |
, precip, VPrecip, sig, w0 & |
qcondc, wd, cape, da, phi, mp, iflag1, precip1, VPrecip1, & |
545 |
, ft, fq, fu, fv & |
sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, upwd1, dnwd1, & |
546 |
, inb & |
dnwd01, qcondc1, wd1, cape1, da1, phi1, mp1) |
|
, Ma, upwd, dnwd, dnwd0, qcondc, wd, cape & |
|
|
, da, phi, mp & |
|
|
, iflag1 & |
|
|
, precip1, VPrecip1, sig1, w01 & |
|
|
, ft1, fq1, fu1, fv1 & |
|
|
, inb1 & |
|
|
, Ma1, upwd1, dnwd1, dnwd01, qcondc1, wd1, cape1 & |
|
|
, da1, phi1, mp1) |
|
547 |
endif |
endif |
548 |
|
|
549 |
if (iflag_con.eq.4) then |
if (iflag_con.eq.4) then |