*=*=*=*= iniav.html =*=*=*=*
SUBROUTINE iniav

SUBROUTINE iniav


      SUBROUTINE iniav(kunit,pday0,pfrac0,pperiod,phis)
      IMPLICIT NONE

c=======================================================================
c
c   pday0    jour de reference pour le stockage
c   pfrac0   decalage du debut du stockage par rapport a pday0 (en jour)
c   pperiod  period de stockage en secondes
c   phis     geopotentiel au sol
c
c   initialisation de l'ecriture des moyennes temporelles.
c
c=======================================================================

#include "dimensions.h"
#include "paramet.h"
#include "comav.h"

      REAL pperiod

      INTEGER*4 pday0
      REAL pfrac0
      INTEGER kunit
      REAL phis(ip1jmp1)

      period_av=pperiod
      time0_av=pfrac0
      unitav=kunit

c     OPEN(unitav,file='histmoy',form='unformatted',status='new')

      CALL iniwrite(unitav,.true.,pday0,phis)

      PRINT*,'le fichier hist.moy stoke les variables toutes'
      PRINT*,'les ',period_av,'s'
      PRINT*,'A partir du jour de reference day0'
      RETURN
      END