lfiuto.F90

Go to the documentation of this file.

! Jan-2011 P. Marguinaud Thread-safe LFI
SUBROUTINE lfiuto_fort    (LFI, KNUMER)
USE lfimod, ONLY : lficom
USE parkind1, ONLY : jprb
USE yomhook , ONLY : lhook, dr_hook
USE lfi_precision
USE sdl_mod, ONLY : sdl_srlabort
IMPLICIT NONE
!****
!        Sous-programme de recherche d'une unite libre.
!
!**
!     ARGUMENTS : 
!                 KNUMER (Sortie) ==> Unite logique libre
!
!
TYPE(lficom) :: LFI
INTEGER (KIND=JPLIKB) KNUMER
LOGICAL               LLOPEN

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('LFIUTO_FORT',0,zhook_handle)

IF (all(lfi%NUMERO.NE.lfi%JPNIL)) THEN
  CALL sdl_srlabort
ENDIF

knumer=-1000

DO

  CALL lfipro_mt64 (lfi, knumer, llopen)

  IF (.NOT. llopen) EXIT

  knumer=knumer-1

ENDDO

IF (lhook) CALL dr_hook('LFIUTO_FORT',1,zhook_handle)

END SUBROUTINE lfiuto_fort