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

Go to the documentation of this file.

00001 SUBROUTINE GOTO_WRAPPER_WATFLUX(KFROM,KTO, LKFROM)
00002 USE MODD_CH_WATFLUX_n
00003 USE MODD_DIAG_WATFLUX_n
00004 USE MODD_WATFLUX_GRID_n
00005 USE MODD_WATFLUX_n
00006 USE MODD_WATFLUX_SBL_n
00007 !
00008 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00009 USE PARKIND1  ,ONLY : JPRB
00010 !
00011 IMPLICIT NONE 
00012 LOGICAL, INTENT(IN) :: LKFROM
00013 INTEGER,INTENT(IN) :: KFROM,KTO
00014 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00015 !
00016 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_WATFLUX',0,ZHOOK_HANDLE)
00017  CALL CH_WATFLUX_GOTO_MODEL(KFROM, KTO, LKFROM)
00018  CALL DIAG_WATFLUX_GOTO_MODEL(KFROM, KTO, LKFROM)
00019  CALL WATFLUX_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00020  CALL WATFLUX_GOTO_MODEL(KFROM, KTO, LKFROM)
00021  CALL WATFLUX_SBL_GOTO_MODEL(KFROM, KTO, LKFROM)
00022 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_WATFLUX',1,ZHOOK_HANDLE)
00023 !
00024 END SUBROUTINE GOTO_WRAPPER_WATFLUX