--- trunk/bibio/writehist.f	2014/03/06 15:12:00	83
+++ trunk/Sources/bibio/writehist.f	2015/05/22 23:13:19	138
@@ -4,7 +4,7 @@
 
 contains
 
-  subroutine writehist(time, vcov, ucov, teta, phi, q, masse, ps)
+  subroutine writehist(time, vcov, ucov, teta, phi, masse, ps)
 
     ! From writehist.F 1403 2010-07-01 09:02:53Z
     ! Écriture du fichier histoire au format IOIPSL
@@ -12,7 +12,6 @@
     ! L. Fairhead, LMD, 03/99
 
     use dimens_m, only: nqmx, llm, jjm
-    USE iniadvtrac_m, ONLY: ttext
     use com_io_dyn, only: histid, histvid, histuid
     use paramet_m, only: ip1jm, ip1jmp1, iip1, jjp1
     use temps, only: itau_dyn
@@ -26,7 +25,6 @@
     ! ucov: vents u covariants
     ! teta: temperature potentielle
     ! phi : geopotentiel instantane
-    ! q : traceurs
     ! masse: masse
     ! ps :pression au sol
 
@@ -35,13 +33,11 @@
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) 
     REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm) 
     REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm) 
-    REAL q(ip1jmp1, llm, nqmx)
     integer time
 
     ! This routine needs IOIPSL to work
     ! Variables locales
 
-    integer iq, ii, ll
     integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1)
     logical ok_sync
     integer itau_w
@@ -77,13 +73,6 @@
 
     call histwrite(histid, 'phi', itau_w, phi)
 
-    ! Traceurs
-
-    ! DO iq=1, nqmx
-    ! call histwrite(histid, ttext(iq), itau_w, q(:, :, iq), 
-    ! . iip1*jjp1*llm, ndexu)
-    ! enddo
-    !C
     ! Masse
 
     call histwrite(histid, 'masse', itau_w, masse)