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

Go to the documentation of this file.

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