c
c $Header$
c
      PROGRAM create_etat0
C
C   Programme d'appel a etat0, creation des etats initiaux
C   
C
      LOGICAL interbar
      PARAMETER ( interbar = .TRUE. )
      CALL etat0_netcdf ( interbar )
      STOP
      END