--- trunk/libf/dyn3d/iniadvtrac.f90	2009/12/14 15:25:16	23
+++ trunk/libf/dyn3d/iniadvtrac.f90	2011/01/06 17:52:19	38
@@ -26,8 +26,10 @@
     ! Modification spéciale traceur F. Forget 05/94
     ! Modification M.-A. Filiberti 02/02 lecture de "traceur.def"
     ! Modification de l'intégration de "q" (26/04/94)
+    ! Pour Van-Leer plus vapeur d'eau saturée : iadv(1)=4
+    ! Pour Van-Leer : iadv=10
 
-    use numer_rec, only: assert
+    use nr_util, only: assert
 
     ! Variables local to the procedure:
 
@@ -91,7 +93,7 @@
        endif
        tnom(iq)=str1
        tname(iq)=tnom(iq) 
-       str2=tnom(iq) 
+       str2=tnom(iq)
        ttext(iq) = trim(str2) // descrq(iadv(iq))
     end do