SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/LFI/mt/lfidah

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIDAH_MT (LFI, KDATE, KHEURE )
00003       USE LFIMOD, ONLY : LFICOM
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 C****
00007 C     SOUS-PROGRAMME CHARGE DE DONNER LA DATE ET L'HEURE MACHINE
00008 C     SOUS LA FORME D'ENTIERS .
00009 C**
00010 C     ARGUMENTS (SORTIE) KDATE  ==> DATE SOUS LA FORME AAMMJJ;
00011 C                        KHEURE ==> HEURE SOUS LA FORME HHMMSS .
00012 C
00013       TYPE(LFICOM) :: LFI
00014       CHARACTER CLAUXI*8
00015 C
00016 #ifndef f77
00017 #include "precision.h"
00018       INTEGER (KIND=JPDBLE) KDATE, KHEURE
00019       CHARACTER CLAUXIT*10
00020       CHARACTER CLDIFF*5
00021       INTEGER KTIME(8)
00022 #else
00023       INTEGER KDATE, KHEURE
00024 #endif
00025       INTEGER IMOIS, IJOUR, IANNEE, IHEURE, IMINUT, ISECON
00026 C
00027 #include "lficom_mt.h"
00028       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00029       IF (LHOOK) CALL DR_HOOK('LFIDAH_MT',0,ZHOOK_HANDLE)
00030 #ifndef f77
00031       CALL DATE_AND_TIME (CLAUXI,CLAUXIT,CLDIFF,KTIME)
00032       IANNEE=KTIME(1)
00033       IMOIS=KTIME(2)
00034       IJOUR=KTIME(3)
00035       IHEURE=KTIME(5)
00036       IMINUT=KTIME(6)
00037       ISECON=KTIME(7)
00038 #else
00039 #ifdef HPPA
00040       CALL IDATE (IMOIS,IJOUR,IANNEE)
00041       CALL TIME (CLAUXI)
00042 #else
00043       CALL DATE (CLAUXI)
00044       READ (UNIT=CLAUXI,FMT='(I2,2(TR1,I2))') IMOIS,IJOUR,IANNEE
00045       CALL CLOCK (CLAUXI)
00046 #endif
00047       READ (UNIT=CLAUXI,FMT='(I2,2(TR1,I2))') IHEURE,IMINUT,ISECON
00048 #endif
00049 C
00050       KDATE=100*(100*IANNEE+IMOIS)+IJOUR
00051       KHEURE=100*(100*IHEURE+IMINUT)+ISECON
00052 C
00053       IF (LHOOK) CALL DR_HOOK('LFIDAH_MT',1,ZHOOK_HANDLE)
00054       END
00055