SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/OFFLIN/oi

Go to the documentation of this file.

00001 PROGRAM OI_MAIN
00002 !
00003 USE MODI_OI_CONTROL
00004 !
00005 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00006 USE PARKIND1  ,ONLY : JPRB
00007 !
00008 IMPLICIT NONE
00009 !
00010 REAL (KIND=JPRB) :: ZHOOK_HANDLE
00011 
00012 IF (LHOOK) CALL DR_HOOK('OI_MAIN',0,ZHOOK_HANDLE)
00013 
00014  CALL OI_CONTROL (LDINLINE = .FALSE.)
00015 
00016 IF (LHOOK) CALL DR_HOOK('OI_MAIN',1,ZHOOK_HANDLE)
00017 
00018 END PROGRAM OI_MAIN