--- trunk/libf/phylmd/phytrac.f90 2012/07/26 14:37:37 62 +++ trunk/libf/phylmd/phytrac.f90 2013/07/23 13:00:07 72 @@ -84,8 +84,12 @@ REAL prfl(klon, llm+1), psfl(klon, llm+1) !--lessivage large-scale ! convection: + REAL, intent(in):: pmfu(klon, llm) ! flux de masse dans le panache montant - REAL pmfd(klon, llm) ! flux de masse dans le panache descendant + + REAL, intent(in):: pmfd(klon, llm) + ! flux de masse dans le panache descendant + REAL pen_u(klon, llm) ! flux entraine dans le panache montant ! thermiques: