lfisee.F90

Go to the documentation of this file.

SUBROUTINE lfisee (LFI, KFPDESC, KOFFSET, KFACTM, KREC, KREP)
USE parkind1, ONLY : jprb, jpib, jpim, jpia
USE yomhook, ONLY : lhook, dr_hook
USE lfimod, ONLY : lficom
USE lfi_precision
IMPLICIT NONE

type(lficom) :: lfi
INTEGER (KIND=JPLIKB) KFACTM, KREC, KREP
INTEGER (KIND=JPIA)   KFPDESC
INTEGER (KIND=JPIB)   KOFFSET

INTEGER (KIND=JPIB)   IOFFSET
INTEGER (KIND=JPLIKB) ILOREC
INTEGER (KIND=JPIM)   IREP4
REAL (KIND=JPRB) :: ZHOOK_HANDLE

IF (lhook) CALL dr_hook('LFISEE',0,zhook_handle)

ilorec=lfi%JPRECL*kfactm

ioffset=int(ilorec*(krec-1), jpib)

IF (ioffset /= koffset) THEN

  CALL fi_fseek (irep4, kfpdesc, ioffset, 0_jpib)
  krep = int(irep4, jplikb)
  IF (krep /= 0) RETURN

  koffset = ioffset

ENDIF

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

END SUBROUTINE lfisee