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. )
#include "dimensions.h"
#include "paramet.h"
#include "indicesol.h"
#include "dimphy.h"
      REAL :: masque(iip1,jjp1)
      REAL :: pctsrf(klon, nbsrf)

      CALL etat0_netcdf( interbar, masque, pctsrf )
      STOP
      END