!*******************************************************
      
      program cepamlaunch
!     Version: 09-jan-2009
      
      use mod_data_lim
      
      implicit none
      include './cepam.inc'
      integer interact,ierr
      include './Communs/modelp.inc'

  
!----------------------------------------------------------------------
      write(*,101)
 101  format(30('*'),' C E P A M ',30('*'),//,                          &
     &     'Indiquer le nom de vos modeles (ex: jup)',/,                &
     &     '(" "-> programme en mode interactif')
      read(*,'(a)')modele

      if (modele(:1).eq.' ') then 
       interact=0
      else
       interact=1
      endif
      call init_mod_data_lim
      call cepam(interact,ierr)
      if (ierr.ne.0) write(*,*)'Attention: ierr=',ierr

      end