--- trunk/phylmd/clvent.f 2018/02/05 10:39:38 254 +++ trunk/phylmd/clvent.f 2018/07/24 15:22:48 286 @@ -11,8 +11,9 @@ ! Date: 1993/08/18 ! Objet : diffusion verticale de la vitesse - USE dimphy, ONLY: klev use nr_util, only: assert + + USE dimphy, ONLY: klev USE suphec_m, ONLY: rd, rg REAL, intent(in):: dtime ! intervalle de temps (en s)