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

Go to the documentation of this file.
00001 SUBROUTINE GOTO_WRAPPER_ISBA(KFROM,KTO, LKFROM)
00002 USE MODD_CH_ISBA_n
00003 USE MODD_DIAG_EVAP_ISBA_n
00004 USE MODD_DIAG_ISBA_n
00005 USE MODD_DIAG_MISC_ISBA_n
00006 USE MODD_GR_BIOG_n
00007 USE MODD_ISBA_GRID_n
00008 USE MODD_ISBA_n
00009 USE MODD_DATA_ISBA_n
00010 USE MODD_DATA_TSZ0_n
00011 USE MODD_DST_n
00012 USE MODD_SLT_n
00013 USE MODD_AGRI_n
00014 USE MODD_ISBA_CANOPY_n
00015 !
00016 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00017 USE PARKIND1  ,ONLY : JPRB
00018 !
00019 IMPLICIT NONE 
00020 LOGICAL, INTENT(IN) :: LKFROM
00021 INTEGER,INTENT(IN) :: KFROM,KTO
00022 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00023 !
00024 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_ISBA',0,ZHOOK_HANDLE)
00025  CALL CH_ISBA_GOTO_MODEL(KFROM, KTO, LKFROM)
00026  CALL DIAG_EVAP_ISBA_GOTO_MODEL(KFROM, KTO, LKFROM)
00027  CALL DIAG_ISBA_GOTO_MODEL(KFROM, KTO, LKFROM)
00028  CALL DIAG_MISC_ISBA_GOTO_MODEL(KFROM, KTO, LKFROM)
00029  CALL GR_BIOG_GOTO_MODEL(KFROM, KTO, LKFROM)
00030  CALL ISBA_GRID_GOTO_MODEL(KFROM, KTO, LKFROM)
00031  CALL ISBA_GOTO_MODEL(KFROM, KTO, LKFROM)
00032  CALL DATA_ISBA_GOTO_MODEL(KFROM, KTO, LKFROM)
00033  CALL DATA_TSZ0_GOTO_MODEL(KFROM, KTO, LKFROM)
00034  CALL DST_GOTO_MODEL(KFROM, KTO, LKFROM)
00035  CALL SLT_GOTO_MODEL(KFROM, KTO, LKFROM)
00036  CALL AGRI_GOTO_MODEL(KFROM, KTO, LKFROM)
00037  CALL ISBA_CANOPY_GOTO_MODEL(KFROM, KTO, LKFROM)
00038 
00039 
00040 IF (LHOOK) CALL DR_HOOK('GOTO_WRAPPER_ISBA',1,ZHOOK_HANDLE)
00041 !
00042 END SUBROUTINE GOTO_WRAPPER_ISBA