SUBROUTINE LGLIVED(filename,year)
       
  USE LGLIVED_MOD
  USE MOD_INCA_PARA
  USE print_inca

  IMPLICIT NONE

  CHARACTER(11), INTENT(IN)   ::   filename
  INTEGER, INTENT(IN)         ::   year

  CHARACTER(300)              ::   line
  INTEGER                     ::   i,j,opn_stat,annee, io 
  LOGICAL                     ::  find=.false. 

!$OMP MASTER
  IF (is_mpi_root) THEN
     OPEN(10,STATUS = 'old',FILE=filename,IOSTAT = opn_stat)
     IF( opn_stat /= 0 ) THEN
        CALL print_err(3, ' lglived','Failed to open lglived.dat file', '', '')
     ENDIF
  ENDIF
!$OMP END MASTER
    
!$OMP MASTER
  IF (is_mpi_root) THEN 
     READ(10,*) line
     DO 

        READ(10,*, iostat=io) annee,(conc_cfc(j),j=1,15)
        IF (annee.EQ.year) exit
        IF (io < 0) CALL check_err(io, 'LGLIVED', ' problem we cannot find year in file lglived.nc - we stop the simulation  ')

     ENDDO
  ENDIF
!$OMP END MASTER
  CALL bcast(conc_cfc) 
  

END SUBROUTINE LGLIVED