SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/second

Go to the documentation of this file.

00001 SUBROUTINE SECOND_SFX(KT)
00002 !
00003 !
00004 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00005 USE PARKIND1  ,ONLY : JPRB
00006 !
00007 IMPLICIT NONE
00008 INTEGER :: KT
00009 INTEGER :: IT
00010 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00011 IF (LHOOK) CALL DR_HOOK('SECOND_SFX',0,ZHOOK_HANDLE)
00012  CALL system('date +%s > tempo')
00013 OPEN(UNIT=99,FILE='tempo')
00014 READ(99,*)IT
00015 CLOSE(99)
00016 KT=IT
00017 IF (LHOOK) CALL DR_HOOK('SECOND_SFX',1,ZHOOK_HANDLE)
00018 END