--- trunk/Sources/bibio/writehist.f	2015/05/22 23:13:19	138
+++ trunk/Sources/dyn3d/writehist.f	2017/01/12 12:31:31	212
@@ -6,39 +6,26 @@
 
   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
+    ! From writehist.F , revision 1403, 2010-07-01 09:02:53Z
+    ! Écriture du fichier histoire
     ! L. Fairhead, LMD, 03/99
 
-    use dimens_m, only: nqmx, llm, jjm
-    use com_io_dyn, only: histid, histvid, histuid
-    use paramet_m, only: ip1jm, ip1jmp1, iip1, jjp1
-    use temps, only: itau_dyn
-    use histwrite_m, only: histwrite
-    use histsync_m, only: histsync
     use covnat_m, only: covnat
+    use dimens_m, only: llm
+    use histsync_m, only: histsync
+    use histwrite_m, only: histwrite
+    use inithist_m, only: histid, histvid, histuid
+    use paramet_m, only: ip1jm, ip1jmp1
+    use temps, only: itau_dyn
 
-    ! Entree:
-    ! time: temps de l'ecriture
-    ! vcov: vents v covariants
-    ! ucov: vents u covariants
-    ! teta: temperature potentielle
-    ! phi : geopotentiel instantane
-    ! masse: masse
-    ! ps :pression au sol
-
-    ! Arguments
-
-    REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) 
-    REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm) 
-    REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm) 
-    integer time
-
-    ! This routine needs IOIPSL to work
-    ! Variables locales
+    integer, intent(in):: time ! temps de l'ecriture
+    REAL, intent(in):: vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vent covariant
+    REAL, intent(in):: teta(ip1jmp1, llm) ! temperature potentielle
+    REAL, intent(in):: phi(ip1jmp1, llm) ! geopotentiel instantane
+    REAL, intent(in):: masse(ip1jmp1, llm)
+    REAL, intent(in):: ps(ip1jmp1) ! pression au sol
 
-    integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1)
+    ! Local:
     logical ok_sync
     integer itau_w
     REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)
@@ -47,9 +34,6 @@
 
     ! Initialisations
 
-    ndexu = 0
-    ndexv = 0
-    ndex2d = 0
     ok_sync =.TRUE.
     itau_w = itau_dyn + time
     ! Passage aux composantes naturelles du vent