lfidah.F90

Go to the documentation of this file.

! Oct-2012 P. Marguinaud 64b LFI
! Jan-2011 P. Marguinaud Thread-safe LFI

SUBROUTINE lfidah_fort                      &
&                     (lfi, kdate, kheure )
USE lfimod, ONLY : lficom
USE parkind1, ONLY : jprb
USE yomhook , ONLY : lhook, dr_hook
USE lfi_precision
IMPLICIT NONE
!****
!     SOUS-PROGRAMME CHARGE DE DONNER LA DATE ET L'HEURE MACHINE
!     SOUS LA FORME D'ENTIERS .
!**
!     ARGUMENTS (SORTIE) KDATE  ==> DATE SOUS LA FORME AAMMJJ;
!                        KHEURE ==> HEURE SOUS LA FORME HHMMSS .
!
TYPE(lficom) :: LFI
CHARACTER (LEN=8) CLAUXI
!
INTEGER (KIND=JPLIKB) KDATE, KHEURE
CHARACTER (LEN=10) CLAUXIT
CHARACTER (LEN=5)  CLDIFF
INTEGER (KIND=JPLIKB) KTIME(8)
INTEGER (KIND=JPLIKB) IMOIS, IJOUR, IANNEE
INTEGER (KIND=JPLIKB) IHEURE, IMINUT, ISECON
INTEGER (KIND=JPLIKM) ITIME(8)
!

REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('LFIDAH_FORT',0,zhook_handle)
CALL date_and_time (clauxi,clauxit,cldiff,itime)
ktime(1:8)=int(itime(1:8), jplikb)
iannee=ktime(1)
imois=ktime(2)
ijour=ktime(3)
iheure=ktime(5)
iminut=ktime(6)
isecon=ktime(7)
!
kdate=100*(100*iannee+imois)+ijour
kheure=100*(100*iheure+iminut)+isecon
!
IF (lhook) CALL dr_hook('LFIDAH_FORT',1,zhook_handle)
END SUBROUTINE lfidah_fort



! Oct-2012 P. Marguinaud 64b LFI
SUBROUTINE lfidah64           &
&           (kdate, kheure)
USE lfimod, ONLY : lfi => lficom_default, &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments
INTEGER (KIND=JPLIKB)  KDATE                                  !   OUT
INTEGER (KIND=JPLIKB)  KHEURE                                 !   OUT

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfidah_fort               &
&           (lfi, kdate, kheure)

END SUBROUTINE lfidah64

SUBROUTINE lfidah             &
&           (kdate, kheure)
USE lfimod, ONLY : lfi => lficom_default, &
&                   lficom_default_init,   &
&                   new_lfi_default
USE lfi_precision
IMPLICIT NONE
! Arguments
INTEGER (KIND=JPLIKM)  KDATE                                  !   OUT
INTEGER (KIND=JPLIKM)  KHEURE                                 !   OUT

IF (.NOT. lficom_default_init) CALL new_lfi_default ()

CALL lfidah_mt                 &
&           (lfi, kdate, kheure)

END SUBROUTINE lfidah

SUBROUTINE lfidah_mt             &
&           (lfi, kdate, kheure)
USE lfimod, ONLY : lficom
USE lfi_precision
IMPLICIT NONE
! Arguments
type(lficom)          lfi                                    ! INOUT
INTEGER (KIND=JPLIKM)  KDATE                                  !   OUT
INTEGER (KIND=JPLIKM)  KHEURE                                 !   OUT
! Local integers
INTEGER (KIND=JPLIKB)  IDATE                                  !   OUT
INTEGER (KIND=JPLIKB)  IHEURE                                 !   OUT
! Convert arguments


CALL lfidah_fort               &
&           (lfi, idate, iheure)

kdate      = int(     idate, jplikm)
kheure     = int(    iheure, jplikm)

END SUBROUTINE lfidah_mt

!INTF KDATE           OUT 
!INTF KHEURE          OUT