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

Go to the documentation of this file.

00001 SUBROUTINE GOTO_TEB(KPATCH)
00002 !
00003 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00004 USE PARKIND1  ,ONLY : JPRB
00005 !
00006 USE MODE_MODELN_TEB_HANDLER
00007 !
00008 IMPLICIT NONE
00009 !
00010 INTEGER, INTENT(IN) :: KPATCH
00011 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00012 !!
00013 IF (LHOOK) CALL DR_HOOK('GOTO_TEB',0,ZHOOK_HANDLE)
00014  CALL GOTO_PATCH_TEB(KPATCH)
00015 IF (LHOOK) CALL DR_HOOK('GOTO_TEB',1,ZHOOK_HANDLE)
00016 !!
00017 END SUBROUTINE GOTO_TEB