--- trunk/bibio/writehist.f90	2013/11/15 18:45:49	76
+++ trunk/Sources/dyn3d/writehist.f	2016/03/11 18:47:26	178
@@ -4,17 +4,16 @@
 
 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
     ! Appels successifs des routines histwrite
     ! L. Fairhead, LMD, 03/99
 
-    use dimens_m, only: nqmx, llm, jjm
-    USE iniadvtrac_m, ONLY: ttext
+    use dimens_m, only: llm
     use com_io_dyn, only: histid, histvid, histuid
-    use paramet_m, only: ip1jm, ip1jmp1, iip1, jjp1
+    use paramet_m, only: ip1jm, ip1jmp1
     use temps, only: itau_dyn
     use histwrite_m, only: histwrite
     use histsync_m, only: histsync
@@ -26,7 +25,6 @@
     ! ucov: vents u covariants
     ! teta: temperature potentielle
     ! phi : geopotentiel instantane
-    ! q : traceurs
     ! masse: masse
     ! ps :pression au sol
 
@@ -34,15 +32,12 @@
 
     REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) 
     REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm) 
-    REAL ps(ip1jmp1), masse(ip1jmp1, llm) 
-    REAL q(ip1jmp1, llm, nqmx)
+    REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm) 
     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
     REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)
@@ -51,9 +46,6 @@
 
     ! Initialisations
 
-    ndexu = 0
-    ndexv = 0
-    ndex2d = 0
     ok_sync =.TRUE.
     itau_w = itau_dyn + time
     ! Passage aux composantes naturelles du vent
@@ -77,13 +69,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)