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

Go to the documentation of this file.

00001 SUBROUTINE GOTO_WRAPPER_FLAKE(KFROM,KTO, LKFROM)
00002 USE MODD_DIAG_MISC_FLAKE_n
00003 USE MODD_DIAG_FLAKE_n
00004 USE MODD_FLAKE_GRID_n
00005 USE MODD_FLAKE_n
00006 USE MODD_FLAKE_SBL_n
00007 !
00008 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00009 USE PARKIND1  ,ONLY : JPRB
00010 !
00011 IMPLICIT NONE 
00012 INTEGER,INTENT(IN) :: KFROM,KTO
00013 LOGICAL, INTENT(IN) :: LKFROM
00014 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00015 !
00016 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_FLAKE',0,ZHOOK_HANDLE)
00017  CALL DIAG_MISC_FLAKE_GOTO_MODEL(KFROM, KTO, LKFROM)
00018  CALL DIAG_FLAKE_GOTO_MODEL(KFROM, KTO, LKFROM)
00019  CALL FLAKE_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00020  CALL FLAKE_GOTO_MODEL(KFROM, KTO, LKFROM)
00021  CALL FLAKE_SBL_GOTO_MODEL(KFROM, KTO, LKFROM)
00022 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_FLAKE',1,ZHOOK_HANDLE)
00023 !
00024 END SUBROUTINE GOTO_WRAPPER_FLAKE