goto_wrapper_teb_patch.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
SUBROUTINE goto_wrapper_teb_patch(B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, KTO_PATCH)
!
USE modd_diag_cumul_teb_n, ONLY : diag_cumul_teb_t, diag_cumul_teb_goto_patch
USE modd_diag_misc_teb_n, ONLY : diag_misc_teb_t, diag_misc_teb_goto_patch
USE modd_teb_n, ONLY : teb_t, teb_goto_patch
USE modd_bem_n, ONLY : bem_t, bem_goto_patch
USE modd_teb_garden_n, ONLY : teb_garden_t, teb_garden_goto_patch
USE modd_teb_garden_pgd_evol_n, ONLY : teb_garden_pgd_evol_t, teb_garden_pgd_evol_goto_patch
USE modd_teb_greenroof_n, ONLY : teb_greenroof_t, teb_greenroof_goto_patch
USE modd_teb_greenroof_pgd_evol_n, ONLY : teb_greenroof_pgd_evol_t, teb_greenroof_pgd_evol_goto_patch
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE 
!
TYPE(bem_t), INTENT(INOUT) :: b
TYPE(diag_cumul_teb_t), INTENT(INOUT) :: dgct
TYPE(diag_misc_teb_t), INTENT(INOUT) :: dgmt
TYPE(teb_t), INTENT(INOUT) :: t
TYPE(teb_garden_t), INTENT(INOUT) :: tgd
TYPE(teb_garden_pgd_evol_t), INTENT(INOUT) :: tgdpe
TYPE(teb_greenroof_t), INTENT(INOUT) :: tgr
TYPE(teb_greenroof_pgd_evol_t), INTENT(INOUT) :: tgrpe
INTEGER,INTENT(IN) :: kto_patch
!
INTEGER            :: icurrent_patch
REAL(KIND=JPRB) :: zhook_handle
!
IF (lhook) CALL dr_hook('GOTO_WRAPPER_TEB_PATCH',0,zhook_handle)
!
 CALL diag_cumul_teb_goto_patch(dgct,kto_patch)
 CALL diag_misc_teb_goto_patch(dgmt,kto_patch)
 CALL teb_goto_patch(t,kto_patch)
 CALL bem_goto_patch(b,kto_patch)
 CALL teb_garden_pgd_evol_goto_patch(tgdpe,kto_patch)
 CALL teb_greenroof_pgd_evol_goto_patch(tgrpe,kto_patch)
 CALL teb_garden_goto_patch(tgd,kto_patch)
 CALL teb_greenroof_goto_patch(tgr,kto_patch)
!
IF (lhook) CALL dr_hook('GOTO_WRAPPER_TEB_PATCH',1,zhook_handle)
!
END SUBROUTINE goto_wrapper_teb_patch