/[lmdze]/trunk/Sources/phylmd/cv_driver.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/cv_driver.f

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

revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC
# Line 82  contains Line 82  contains
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
# Line 389  contains Line 389  contains
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         !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^         !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
# Line 541  contains Line 539  contains
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
Legend:
Removed from v.97  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.21