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

Go to the documentation of this file.

00001 SUBROUTINE GOTO_WRAPPER_TRIP(KFROM,KTO, LKFROM)
00002 USE MODD_TRIP_n
00003 USE MODD_DIAG_TRIP_n
00004 USE MODD_TRIP_GRID_n
00005 !
00006 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00007 USE PARKIND1  ,ONLY : JPRB
00008 !
00009 IMPLICIT NONE 
00010 INTEGER,INTENT(IN) :: KFROM,KTO
00011 LOGICAL, INTENT(IN) :: LKFROM
00012 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00013 !
00014 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_TRIP',0,ZHOOK_HANDLE)
00015  CALL TRIP_GOTO_MODEL(KFROM, KTO, LKFROM)
00016  CALL DIAG_TRIP_GOTO_MODEL(KFROM, KTO, LKFROM)
00017  CALL TRIP_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00018 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_TRIP',1,ZHOOK_HANDLE)
00019 !
00020 END SUBROUTINE GOTO_WRAPPER_TRIP