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

Go to the documentation of this file.
00001 SUBROUTINE GOTO_WRAPPER_TEB(KFROM,KTO, LKFROM, KTO_PATCH)
00002 USE MODD_CH_TEB_n
00003 USE MODD_DIAG_MISC_TEB_n
00004 USE MODD_DIAG_UTCI_TEB_n
00005 USE MODD_DIAG_TEB_n
00006 USE MODD_TEB_GRID_n
00007 USE MODD_TEB_n
00008 USE MODD_TEB_VEG_n
00009 USE MODD_BEM_n
00010 USE MODD_DATA_BEM_n
00011 USE MODD_DATA_TEB_n
00012 USE MODD_BLD_DESCRIPTION
00013 USE MODD_DATA_TEB_GARDEN_n
00014 USE MODD_DATA_TEB_GREENROOF_n
00015 USE MODD_TEB_CANOPY_n
00016 USE MODD_TEB_GARDEN_n
00017 USE MODD_TEB_GREENROOF_n
00018 USE MODD_GR_BIOG_GARDEN_n
00019 !
00020 USE MODE_MODELN_TEB_HANDLER, ONLY : GET_CURRENT_PATCH_INDEX_TEB, &
00021                                     PUT_CURRENT_PATCH_INDEX_TEB
00022 !
00023 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00024 USE PARKIND1  ,ONLY : JPRB
00025 !
00026 IMPLICIT NONE 
00027 LOGICAL, INTENT(IN) :: LKFROM
00028 INTEGER,INTENT(IN) :: KFROM,KTO
00029 INTEGER,INTENT(IN) :: KTO_PATCH
00030 !
00031 INTEGER            :: ICURRENT_PATCH
00032 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00033 !
00034 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_TEB',0,ZHOOK_HANDLE)
00035 ICURRENT_PATCH = GET_CURRENT_PATCH_INDEX_TEB()
00036 
00037  CALL TEB_OPTIONS_GOTO_MODEL(KFROM, KTO, LKFROM)
00038  CALL TEB_VEG_OPTIONS_GOTO_MODEL(KFROM, KTO, LKFROM)
00039  CALL BEM_OPTIONS_GOTO_MODEL(KFROM, KTO, LKFROM)
00040  CALL TEB_GARDEN_OPTIONS_GOTO_MODEL(KFROM, KTO, LKFROM)
00041  CALL DIAG_MISC_TEB_OPTIONS_GOTO_MODEL(KFROM, KTO, LKFROM)
00042  CALL DIAG_UTCI_TEB_GOTO_MODEL(KFROM, KTO, LKFROM)
00043  CALL TEB_GREENROOF_OPTIONS_GOTO_MODEL(KFROM, KTO, LKFROM)
00044 !
00045  CALL CH_TEB_GOTO_MODEL(KFROM, KTO, LKFROM)
00046  CALL DIAG_MISC_TEB_GOTO_MODEL(KFROM, KTO, LKFROM, ICURRENT_PATCH, KTO_PATCH)
00047  CALL DIAG_TEB_GOTO_MODEL(KFROM, KTO, LKFROM)
00048  CALL TEB_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00049  CALL TEB_GOTO_MODEL(KFROM, KTO, LKFROM, ICURRENT_PATCH, KTO_PATCH)
00050  CALL BEM_GOTO_MODEL(KFROM, KTO, LKFROM, ICURRENT_PATCH, KTO_PATCH)
00051  CALL BLD_DESC_GOTO_MODEL(KFROM, KTO, LKFROM)
00052  CALL DATA_BEM_GOTO_MODEL(KFROM, KTO, LKFROM)
00053  CALL DATA_TEB_GOTO_MODEL(KFROM, KTO, LKFROM)
00054  CALL DATA_TEB_GARDEN_GOTO_MODEL(KFROM, KTO, LKFROM)
00055  CALL TEB_GARDEN_PGD_EVOL_GOTO_MODEL(KFROM, KTO, LKFROM, ICURRENT_PATCH, KTO_PATCH)
00056  CALL DATA_TEB_GREENROOF_GOTO_MODEL(KFROM, KTO, LKFROM)
00057  CALL TEB_GREENROOF_PGD_EVOL_GOTO_MODEL(KFROM, KTO, LKFROM, ICURRENT_PATCH, KTO_PATCH)
00058  CALL TEB_CANOPY_GOTO_MODEL(KFROM, KTO, LKFROM)
00059  CALL TEB_GARDEN_GOTO_MODEL(KFROM, KTO, LKFROM, ICURRENT_PATCH, KTO_PATCH)
00060  CALL TEB_GARDEN_PGD_GOTO_MODEL(KFROM, KTO, LKFROM)
00061  CALL TEB_GREENROOF_GOTO_MODEL(KFROM, KTO, LKFROM, ICURRENT_PATCH, KTO_PATCH)
00062  CALL TEB_GREENROOF_PGD_GOTO_MODEL(KFROM, KTO, LKFROM)
00063  CALL GR_BIOG_GARDEN_GOTO_MODEL(KFROM, KTO, LKFROM)
00064 !
00065  CALL PUT_CURRENT_PATCH_INDEX_TEB(KTO_PATCH)
00066 !
00067 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_TEB',1,ZHOOK_HANDLE)
00068 !
00069 END SUBROUTINE GOTO_WRAPPER_TEB