/[lmdze]/trunk/phylmd/Conflx/conflx.f
ViewVC logotype

Diff of /trunk/phylmd/Conflx/conflx.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 252 by guez, Mon Jan 22 15:02:56 2018 UTC
# Line 4  module conflx_m Line 4  module conflx_m
4    
5  contains  contains
6    
7    SUBROUTINE conflx(dtime, pres_h, pres_f, t, q, con_t, con_q, qhfl, w, &    SUBROUTINE conflx(dtime, pres_h, pres_f, t, q, con_t, con_q, qhfl, omega, &
8         d_t, d_q, rain, snow, mfu, mfd, pen_u, pde_u, pen_d, pde_d, kcbot, &         d_t, d_q, rain, snow, mfu, mfd, pen_u, pde_u, pen_d, pde_d, kcbot, &
9         kctop, kdtop, pmflxr, pmflxs)         kctop, kdtop, pmflxr, pmflxs)
10    
# Line 39  contains Line 39  contains
39      ! (klon, klev) convergence de l'eau vapeur (g/g/s)      ! (klon, klev) convergence de l'eau vapeur (g/g/s)
40    
41      REAL, intent(in):: qhfl(:) ! (klon) evaporation (negative vers haut) mm/s      REAL, intent(in):: qhfl(:) ! (klon) evaporation (negative vers haut) mm/s
42      REAL, intent(in):: w(:, :) ! (klon, klev) vitesse verticale (Pa/s)      REAL, intent(in):: omega(:, :) ! (klon, klev) vitesse verticale (Pa/s)
43    
44      REAL, intent(out):: d_t(:, :) ! (klon, klev) incrementation de temperature      REAL, intent(out):: d_t(:, :) ! (klon, klev) incrementation de temperature
45      REAL, intent(out):: d_q(:, :) ! (klon, klev) incrementation d'humidite      REAL, intent(out):: d_q(:, :) ! (klon, klev) incrementation d'humidite
# Line 113  contains Line 113  contains
113         DO i = 1, klon         DO i = 1, klon
114            paprsf(i, k) = pres_f(i, klev-k + 1)            paprsf(i, k) = pres_f(i, klev-k + 1)
115            paprs(i, k) = pres_h(i, klev + 1-k + 1)            paprs(i, k) = pres_h(i, klev + 1-k + 1)
116            pvervel(i, k) = w(i, klev + 1-k)            pvervel(i, k) = omega(i, klev + 1-k)
117            zcvgt(i, k) = con_t(i, klev-k + 1)            zcvgt(i, k) = con_t(i, klev-k + 1)
118            zcvgq(i, k) = con_q(i, klev-k + 1)            zcvgq(i, k) = con_q(i, klev-k + 1)
119    
Legend:
Removed from v.134  
changed lines
  Added in v.252
  ViewVC Help
Powered by ViewVC 1.1.21