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

Go to the documentation of this file.
00001 SUBROUTINE GOTO_WRAPPER_SEAFLUX(KFROM,KTO, LKFROM)
00002 USE MODD_CH_SEAFLUX_n
00003 USE MODD_DIAG_SEAFLUX_n
00004 USE MODD_SEAFLUX_GRID_n
00005 USE MODD_SEAFLUX_n
00006 USE MODD_DATA_SEAFLUX_n
00007 USE MODD_SEAFLUX_SBL_n
00008 !
00009 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00010 USE PARKIND1  ,ONLY : JPRB
00011 !
00012 IMPLICIT NONE 
00013 LOGICAL, INTENT(IN) :: LKFROM
00014 INTEGER,INTENT(IN) :: KFROM,KTO
00015 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00016 !
00017 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_SEAFLUX',0,ZHOOK_HANDLE)
00018  CALL CH_SEAFLUX_GOTO_MODEL(KFROM, KTO, LKFROM)
00019  CALL DIAG_SEAFLUX_GOTO_MODEL(KFROM, KTO, LKFROM)
00020  CALL SEAFLUX_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00021  CALL SEAFLUX_GOTO_MODEL(KFROM, KTO, LKFROM)
00022  CALL DATA_SEAFLUX_GOTO_MODEL(KFROM, KTO, LKFROM)
00023  CALL SEAFLUX_SBL_GOTO_MODEL(KFROM, KTO, LKFROM)
00024 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_SEAFLUX',1,ZHOOK_HANDLE)
00025 !
00026 END SUBROUTINE GOTO_WRAPPER_SEAFLUX