96 USE yomhook
,ONLY : lhook, dr_hook
97 USE parkind1
,ONLY : jprb
101 TYPE (surfex_t),
INTENT (INOUT) :: ydsurfex
102 REAL(KIND=JPRB) :: zhook_handle
103 IF (lhook) CALL dr_hook(
"SURFEX_ALLOC",0,zhook_handle)
172 CALL
teb_init(ydsurfex%TM%T,nteb_patch_max)
177 CALL
bem_init(ydsurfex%TM%B,nteb_patch_max)
200 IF (lhook) CALL dr_hook(
"SURFEX_ALLOC",1,zhook_handle)
subroutine diag_ocean_init(YDIAG_OCEAN)
subroutine surfex_alloc(YDSURFEX)
subroutine pack_ch_isba_init(YPACK_CH_ISBA)
subroutine data_isba_init(YDATA_ISBA)
subroutine diag_isba_init(YDIAG_ISBA)
subroutine diag_evap_isba_init(YDIAG_EVAP_ISBA)
subroutine bem_options_init(YBEM_OPTIONS)
subroutine surf_atm_init(YSURF_ATM)
subroutine isba_init(YISBA)
subroutine ch_watflux_init(YCH_WATFLUX)
subroutine diag_surf_atm_init(YDIAG_SURF_ATM)
subroutine teb_garden_init(YTEB_GARDEN, KPATCH)
subroutine watflux_init(YWATFLUX)
subroutine bem_init(YBEM, KPATCH)
subroutine data_teb_init(YDATA_TEB)
subroutine teb_veg_options_init(YTEB_VEG_OPTIONS)
subroutine data_teb_greenroof_init(YDATA_TEB_GREENROOF)
subroutine teb_garden_pgd_init(YTEB_GARDEN_PGD)
subroutine diag_misc_flake_init(YDIAG_MISC_FLAKE)
subroutine flake_init(YFLAKE)
subroutine diag_flake_init(YDIAG_FLAKE)
subroutine seaflux_grid_init(YSEAFLUX_GRID)
subroutine data_cover_init(YDATA_COVER)
subroutine isba_grid_init(YISBA_GRID)
subroutine gr_biog_greenroof_init(YGR_BIOG_GREENROOF)
subroutine seaflux_sbl_init(YSEAFLUX_SBL)
subroutine teb_greenroof_options_init(YTEB_GREENROOF_OPTIONS)
subroutine data_tsz0_init(YDATA_TSZ0)
subroutine teb_panel_init(YTEB_PANEL)
subroutine teb_grid_init(YTEB_GRID)
subroutine ocean_rel_init(YOCEAN_REL)
subroutine data_teb_garden_init(YDATA_TEB_GARDEN)
subroutine diag_teb_garden_init(YDIAG_TEB_GARDEN)
subroutine dummy_surf_fields_init(YDUMMY_SURF_FIELDS)
subroutine surf_atm_grid_init(YSURF_ATM_GRID)
subroutine teb_irrig_init(YTEB_IRRIG)
subroutine diag_teb_greenroof_init(YDIAG_TEB_GREENROOF)
subroutine emis_gr_field_init(YEMIS_GR_FIELD)
subroutine sso_canopy_init(YSSO_CANOPY)
subroutine diag_cumul_teb_init(YDIAG_CUMUL_TEB, KPATCH)
subroutine teb_init(YTEB, KPATCH)
subroutine gr_biog_init(YGR_BIOG)
subroutine teb_greenroof_pgd_evol_init(YTEB_GREENROOF_PGD_EVOL, KPATCH)
subroutine flake_sbl_init(YFLAKE_SBL)
subroutine ch_teb_init(YCH_TEB)
subroutine teb_garden_options_init(YTEB_GARDEN_OPTIONS)
subroutine diag_misc_teb_options_init(YDIAG_MISC_TEB_OPTIONS)
subroutine ocean_init(YOCEAN)
subroutine watflux_sbl_init(YWATFLUX_SBL)
subroutine teb_greenroof_pgd_init(YTEB_GREENROOF_PGD)
subroutine surf_atm_sso_init(YSURF_ATM_SSO)
subroutine pack_isba_init(YPACK_ISBA)
subroutine slt_init(YSLT)
subroutine isba_canopy_init(YISBA_CANOPY)
subroutine gr_biog_garden_init(YGR_BIOG_GARDEN)
subroutine dst_init(YDST)
subroutine bld_desc_init(YBLD_DESC)
subroutine diag_utci_teb_init(YDIAG_UTCI_TEB)
subroutine diag_watflux_init(YDIAG_WATFLUX)
subroutine ch_flake_init(YCH_FLAKE)
subroutine diag_misc_teb_init(YDIAG_MISC_TEB, KPATCH)
subroutine flake_grid_init(YFLAKE_GRID)
subroutine teb_options_init(YTEB_OPTIONS)
subroutine ch_emis_snap_init(YCH_EMIS_SNAP)
subroutine pack_diag_isba_init(YPACK_DIAG_ISBA)
subroutine ch_emis_field_init(YCH_EMIS_FIELD)
subroutine diag_seaflux_init(YDIAG_SEAFLUX)
subroutine teb_greenroof_init(YTEB_GREENROOF, KPATCH)
subroutine diag_misc_isba_init(YDIAG_MISC_ISBA)
subroutine teb_canopy_init(YTEB_CANOPY)
subroutine teb_garden_pgd_evol_init(YTEB_GARDEN_PGD_EVOL, KPATCH)
subroutine data_seaflux_init(YDATA_SEAFLUX)
subroutine watflux_grid_init(YWATFLUX_GRID)
subroutine agri_init(YAGRI)
subroutine ch_isba_init(YCH_ISBA)
subroutine seaflux_init(YSEAFLUX)
subroutine ideal_init(YIDEAL)
subroutine data_bem_init(YDATA_BEM)
subroutine ch_surf_init(YCH_SURF)
subroutine diag_seaice_init(YDIAG_SEAICE)
subroutine diag_teb_init(YDIAG_TEB)
subroutine ch_seaflux_init(YCH_SEAFLUX)
subroutine diag_ideal_init(YDIAG_IDEAL)