/[lmdze]/trunk/phylmd/cv_driver.f90
ViewVC logotype

Diff of /trunk/phylmd/cv_driver.f90

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

revision 266 by guez, Thu Apr 19 17:54:55 2018 UTC revision 326 by guez, Mon Jun 10 00:29:10 2019 UTC
# Line 5  module cv_driver_m Line 5  module cv_driver_m
5  contains  contains
6    
7    SUBROUTINE cv_driver(t1, q1, qs1, u1, v1, p1, ph1, iflag1, ft1, fq1, fu1, &    SUBROUTINE cv_driver(t1, q1, qs1, u1, v1, p1, ph1, iflag1, ft1, fq1, fu1, &
8         fv1, precip1, VPrecip1, sig1, w01, icb1, inb1, Ma1, upwd1, dnwd1, &         fv1, rain, VPrecip1, sig1, w01, icb1, inb1, Ma1, upwd1, dnwd1, &
9         qcondc1, cape1, da1, phi1, mp1)         qcondc1, cape1, da1, phi1, mp1)
10    
11      ! From LMDZ4/libf/phylmd/cv_driver.F, version 1.3, 2005/04/15 12:36:17      ! From LMDZ4/libf/phylmd/cv_driver.F, version 1.3, 2005/04/15 12:36:17
# Line 76  contains Line 76  contains
76      real, intent(out):: fu1(klon, klev), fv1(klon, klev)      real, intent(out):: fu1(klon, klev), fv1(klon, klev)
77      ! forcing (tendency) of zonal and meridional velocity (m/s^2)      ! forcing (tendency) of zonal and meridional velocity (m/s^2)
78    
79      real, intent(out):: precip1(klon) ! convective precipitation rate (mm/day)      real, intent(out):: rain(klon) ! convective precipitation rate (mm/day)
80    
81      real, intent(out):: VPrecip1(klon, klev + 1)      real, intent(out):: VPrecip1(klon, klev + 1)
82      ! vertical profile of convective precipitation (kg/m2/s)      ! vertical profile of convective precipitation (kg/m2/s)
# Line 218  contains Line 218  contains
218         end do         end do
219      end do      end do
220    
221      precip1 = 0.      rain = 0.
222      cape1 = 0.      cape1 = 0.
223      VPrecip1(:, klev + 1) = 0.      VPrecip1(:, klev + 1) = 0.
224    
# Line 270  contains Line 270  contains
270         CALL cv30_tracer(klon, ncum, klev, ment, sij, da, phi)         CALL cv30_tracer(klon, ncum, klev, ment, sij, da, phi)
271         CALL cv30_uncompress(idcum, iflag, precip, VPrecip, sig, w0, ft, fq, &         CALL cv30_uncompress(idcum, iflag, precip, VPrecip, sig, w0, ft, fq, &
272              fu, fv, inb, Ma, upwd, dnwd, qcondc, cape, da, phi, mp, iflag1, &              fu, fv, inb, Ma, upwd, dnwd, qcondc, cape, da, phi, mp, iflag1, &
273              precip1, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, &              rain, VPrecip1, sig1, w01, ft1, fq1, fu1, fv1, inb1, Ma1, &
274              upwd1, dnwd1, qcondc1, cape1, da1, phi1, mp1)              upwd1, dnwd1, qcondc1, cape1, da1, phi1, mp1)
275      ENDIF      ENDIF
276    
Legend:
Removed from v.266  
changed lines
  Added in v.326
  ViewVC Help
Powered by ViewVC 1.1.21