SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/TRIP/goto

Go to the documentation of this file.

00001 SUBROUTINE GOTO_TRIP(KMI, LKFROM)
00002 !
00003 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00004 USE PARKIND1  ,ONLY : JPRB
00005 !
00006 USE MODE_MODELN_TRIP_HANDLER
00007 !
00008 IMPLICIT NONE
00009 !
00010 INTEGER, INTENT(IN) :: KMI
00011 LOGICAL, INTENT(IN) :: LKFROM
00012 !
00013 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00014 !!
00015 IF (LHOOK) CALL DR_HOOK('GOTO_TRIP',0,ZHOOK_HANDLE)
00016  CALL GOTO_MODEL_TRIP(KMI, LKFROM)
00017 IF (LHOOK) CALL DR_HOOK('GOTO_TRIP',1,ZHOOK_HANDLE)
00018 !!
00019 END SUBROUTINE GOTO_TRIP