/[lmdze]/trunk/phylmd/phytrac.f
ViewVC logotype

Diff of /trunk/phylmd/phytrac.f

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

revision 227 by guez, Thu Nov 2 15:47:03 2017 UTC revision 230 by guez, Mon Nov 6 17:47:03 2017 UTC
# Line 77  contains Line 77  contains
77    
78      REAL pde_u(klon, llm) ! flux detraine dans le panache montant      REAL pde_u(klon, llm) ! flux detraine dans le panache montant
79      REAL pen_d(klon, llm) ! flux entraine dans le panache descendant      REAL pen_d(klon, llm) ! flux entraine dans le panache descendant
80      REAL coefh(klon, llm) ! coeff melange couche limite      REAL coefh(:, :) ! (klon, llm) coeff melange couche limite
81      real fm_therm(klon, llm+1), entr_therm(klon, llm) ! thermiques      real fm_therm(klon, llm+1), entr_therm(klon, llm) ! thermiques
82      REAL, intent(in):: yu1(:), yv1(:) ! (klon) vent au premier niveau      REAL, intent(in):: yu1(:), yv1(:) ! (klon) vent au premier niveau
83    
# Line 297  contains Line 297  contains
297               source(i) = 0. ! pas de source, pour l'instant               source(i) = 0. ! pas de source, pour l'instant
298            ENDDO            ENDDO
299    
300            CALL cltrac(pdtphys, coefh, t_seri, tr_seri(:, :, it), source, &            CALL cltrac(pdtphys, coefh(:, 2:llm), t_seri, tr_seri(:, :, it), source, &
301                 paprs, pplay, delp, d_tr_cl(1, 1, it))                 paprs, pplay, delp, d_tr_cl(1, 1, it))
302            DO k = 1, llm            DO k = 1, llm
303               DO i = 1, klon               DO i = 1, klon
Legend:
Removed from v.227  
changed lines
  Added in v.230
  ViewVC Help
Powered by ViewVC 1.1.21