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

Go to the documentation of this file.

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