surfex_alloc.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 surfex_alloc(YDSURFEX)
!
USE modd_teb_par, ONLY : nteb_patch_max
!
USE modd_surfex_n, ONLY : surfex_t
!
USE modd_agri_n, ONLY : agri_init
USE modd_bem_option_n, ONLY : bem_options_init
USE modd_bld_description_n, ONLY : bld_desc_init
USE modd_ch_emis_field_n, ONLY : ch_emis_field_init
USE modd_ch_flake_n, ONLY : ch_flake_init
USE modd_ch_isba_n, ONLY : ch_isba_init
USE modd_ch_seaflux_n, ONLY : ch_seaflux_init
USE modd_ch_snap_n, ONLY : ch_emis_snap_init
USE modd_ch_surf_n, ONLY : ch_surf_init
USE modd_ch_teb_n, ONLY : ch_teb_init
USE modd_ch_watflux_n, ONLY : ch_watflux_init
USE modd_data_bem_n, ONLY : data_bem_init
USE modd_data_cover_n, ONLY : data_cover_init
USE modd_data_isba_n, ONLY : data_isba_init
USE modd_data_seaflux_n, ONLY : data_seaflux_init
USE modd_data_teb_garden_n, ONLY : data_teb_garden_init
USE modd_data_teb_greenroof_n, ONLY : data_teb_greenroof_init
USE modd_data_teb_n, ONLY : data_teb_init
USE modd_data_tsz0_n, ONLY : data_tsz0_init
USE modd_diag_evap_isba_n, ONLY : diag_evap_isba_init
USE modd_diag_flake_n, ONLY : diag_flake_init
USE modd_diag_ideal_n, ONLY : diag_ideal_init
USE modd_diag_isba_n, ONLY : diag_isba_init
USE modd_diag_misc_flake_n, ONLY : diag_misc_flake_init
USE modd_diag_misc_isba_n, ONLY : diag_misc_isba_init
USE modd_diag_misc_teb_option_n, ONLY : diag_misc_teb_options_init
USE modd_diag_ocean_n, ONLY : diag_ocean_init
USE modd_diag_seaflux_n, ONLY : diag_seaflux_init
USE modd_diag_seaice_n, ONLY : diag_seaice_init
USE modd_diag_surf_atm_n, ONLY : diag_surf_atm_init
USE modd_diag_teb_garden_n, ONLY : diag_teb_garden_init
USE modd_diag_teb_greenroof_n, ONLY : diag_teb_greenroof_init
USE modd_diag_teb_n, ONLY : diag_teb_init
USE modd_diag_utci_teb_n, ONLY : diag_utci_teb_init
USE modd_diag_watflux_n, ONLY : diag_watflux_init
USE modd_dst_n, ONLY : dst_init
USE modd_dummy_surf_fields_n, ONLY : dummy_surf_fields_init
USE modd_emis_gr_field_n, ONLY : emis_gr_field_init
USE modd_flake_grid_n, ONLY : flake_grid_init
USE modd_flake_n, ONLY : flake_init
USE modd_flake_sbl_n, ONLY : flake_sbl_init
USE modd_gr_biog_garden_n, ONLY : gr_biog_garden_init
USE modd_gr_biog_greenroof_n, ONLY : gr_biog_greenroof_init
USE modd_gr_biog_n, ONLY : gr_biog_init
USE modd_ideal_n, ONLY : ideal_init
USE modd_isba_canopy_n, ONLY : isba_canopy_init
USE modd_isba_grid_n, ONLY : isba_grid_init
USE modd_isba_n, ONLY : isba_init
USE modd_ocean_n, ONLY : ocean_init
USE modd_ocean_rel_n, ONLY : ocean_rel_init
USE modd_pack_ch_isba, ONLY : pack_ch_isba_init
USE modd_pack_diag_isba, ONLY : pack_diag_isba_init
USE modd_pack_isba, ONLY : pack_isba_init
USE modd_seaflux_grid_n, ONLY : seaflux_grid_init
USE modd_seaflux_n, ONLY : seaflux_init
USE modd_seaflux_sbl_n, ONLY : seaflux_sbl_init
USE modd_slt_n, ONLY : slt_init
USE modd_sso_canopy_n, ONLY : sso_canopy_init
USE modd_surf_atm_grid_n, ONLY : surf_atm_grid_init
USE modd_surf_atm_n, ONLY : surf_atm_init
USE modd_surf_atm_sso_n, ONLY : surf_atm_sso_init
USE modd_sv_n, ONLY : sv_init
USE modd_teb_canopy_n, ONLY : teb_canopy_init
USE modd_teb_garden_option_n, ONLY : teb_garden_options_init
USE modd_teb_garden_pgd_n, ONLY : teb_garden_pgd_init
USE modd_teb_greenroof_option_n, ONLY : teb_greenroof_options_init
USE modd_teb_greenroof_pgd_n, ONLY : teb_greenroof_pgd_init
USE modd_teb_grid_n, ONLY : teb_grid_init
USE modd_teb_irrig_n, ONLY : teb_irrig_init
USE modd_teb_option_n, ONLY : teb_options_init
USE modd_teb_panel_n, ONLY : teb_panel_init
USE modd_teb_veg_n, ONLY : teb_veg_options_init
USE modd_watflux_grid_n, ONLY : watflux_grid_init
USE modd_watflux_n, ONLY : watflux_init
USE modd_watflux_sbl_n, ONLY : watflux_sbl_init
!
USE modd_bem_n, ONLY : bem_init
USE modd_diag_cumul_teb_n, ONLY : diag_cumul_teb_init
USE modd_diag_misc_teb_n, ONLY : diag_misc_teb_init
USE modd_teb_garden_n, ONLY : teb_garden_init
USE modd_teb_garden_pgd_evol_n, ONLY : teb_garden_pgd_evol_init
USE modd_teb_greenroof_n, ONLY : teb_greenroof_init
USE modd_teb_greenroof_pgd_evol_n, ONLY : teb_greenroof_pgd_evol_init
USE modd_teb_n, ONLY : teb_init
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE (surfex_t), INTENT (INOUT) :: ydsurfex
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("SURFEX_ALLOC",0,zhook_handle)
!
  CALL ch_flake_init(ydsurfex%FM%CHF)
  CALL diag_flake_init(ydsurfex%FM%DGF)
  CALL diag_misc_flake_init(ydsurfex%FM%DGMF)
  CALL flake_grid_init(ydsurfex%FM%FG)
  CALL flake_init(ydsurfex%FM%F)
  CALL flake_sbl_init(ydsurfex%FM%FSB)
  !  
  CALL ch_watflux_init(ydsurfex%WM%CHW)
  CALL diag_watflux_init(ydsurfex%WM%DGW)
  CALL watflux_grid_init(ydsurfex%WM%WG)
  CALL watflux_init(ydsurfex%WM%W)
  CALL watflux_sbl_init(ydsurfex%WM%WSB)
  !
  CALL ch_seaflux_init(ydsurfex%SM%CHS)
  CALL data_seaflux_init(ydsurfex%SM%DTS)
  CALL diag_ocean_init(ydsurfex%SM%DGO)
  CALL diag_seaflux_init(ydsurfex%SM%DGS)
  CALL diag_seaice_init(ydsurfex%SM%DGSI)
  CALL ocean_init(ydsurfex%SM%O)
  CALL ocean_rel_init(ydsurfex%SM%OR)
  CALL seaflux_grid_init(ydsurfex%SM%SG)
  CALL seaflux_init(ydsurfex%SM%S)
  CALL seaflux_sbl_init(ydsurfex%SM%SSB)
  !
  CALL agri_init(ydsurfex%IM%AG)
  CALL ch_isba_init(ydsurfex%IM%CHI)
  CALL data_isba_init(ydsurfex%IM%DTI)
  CALL diag_evap_isba_init(ydsurfex%IM%DGEI)
  CALL diag_isba_init(ydsurfex%IM%DGI)
  CALL diag_misc_isba_init(ydsurfex%IM%DGMI)
  CALL gr_biog_init(ydsurfex%IM%GB)
  CALL isba_canopy_init(ydsurfex%IM%ICP)
  CALL isba_grid_init(ydsurfex%IM%IG)
  CALL isba_init(ydsurfex%IM%I)
  CALL pack_ch_isba_init(ydsurfex%IM%PKCI)
  CALL pack_diag_isba_init(ydsurfex%IM%PKDI)
  CALL pack_isba_init(ydsurfex%IM%PKI)
  !
  CALL teb_veg_options_init(ydsurfex%GDM%TVG)    
  CALL data_teb_garden_init(ydsurfex%GDM%DTGD)
  CALL diag_teb_garden_init(ydsurfex%GDM%DGTGD)
  CALL gr_biog_garden_init(ydsurfex%GDM%GBGD)
  CALL teb_garden_options_init(ydsurfex%GDM%TGDO)
  CALL teb_garden_pgd_init(ydsurfex%GDM%TGDP)
  CALL teb_garden_init(ydsurfex%GDM%TGD,nteb_patch_max)
  CALL teb_garden_pgd_evol_init(ydsurfex%GDM%TGDPE,nteb_patch_max) 
  CALL teb_irrig_init(ydsurfex%GDM%TIR)    
  !
  CALL data_teb_greenroof_init(ydsurfex%GRM%DTGR)
  CALL diag_teb_greenroof_init(ydsurfex%GRM%DGTGR)
  CALL gr_biog_greenroof_init(ydsurfex%GRM%GBGR)  
  CALL teb_greenroof_options_init(ydsurfex%GRM%TGRO)
  CALL teb_greenroof_pgd_init(ydsurfex%GRM%TGRP)
  CALL teb_greenroof_init(ydsurfex%GRM%TGR,nteb_patch_max)
  CALL teb_greenroof_pgd_evol_init(ydsurfex%GRM%TGRPE,nteb_patch_max)
  !
  CALL ch_teb_init(ydsurfex%TM%CHT)
  CALL data_teb_init(ydsurfex%TM%DTT)
  CALL diag_misc_teb_options_init(ydsurfex%TM%DGMTO)
  CALL diag_teb_init(ydsurfex%TM%DGT)
  CALL diag_utci_teb_init(ydsurfex%TM%DGUT)
  CALL teb_canopy_init(ydsurfex%TM%TCP)
  CALL teb_grid_init(ydsurfex%TM%TG)
  CALL teb_options_init(ydsurfex%TM%TOP)
  CALL teb_panel_init(ydsurfex%TM%TPN)
  CALL diag_cumul_teb_init(ydsurfex%TM%DGCT,nteb_patch_max)
  CALL diag_misc_teb_init(ydsurfex%TM%DGMT,nteb_patch_max)
  CALL teb_init(ydsurfex%TM%T,nteb_patch_max)  
  !
  CALL bld_desc_init(ydsurfex%TM%BDD)
  CALL bem_options_init(ydsurfex%TM%BOP)
  CALL data_bem_init(ydsurfex%TM%DTB)  
  CALL bem_init(ydsurfex%TM%B,nteb_patch_max)  
  !
  CALL data_cover_init(ydsurfex%DTCO)
  CALL data_tsz0_init(ydsurfex%DTZ)
  CALL dummy_surf_fields_init(ydsurfex%DUU)
  !
  CALL surf_atm_grid_init(ydsurfex%UG)
  CALL surf_atm_init(ydsurfex%U)
  CALL diag_surf_atm_init(ydsurfex%DGU)  
  CALL surf_atm_sso_init(ydsurfex%USS)
  CALL sso_canopy_init(ydsurfex%SSCP)
  !
  CALL diag_ideal_init(ydsurfex%DGL)
  CALL ideal_init(ydsurfex%L)
  !
  CALL sv_init(ydsurfex%SV)
  CALL ch_surf_init(ydsurfex%CHU)  
  CALL ch_emis_field_init(ydsurfex%CHE)
  CALL ch_emis_snap_init(ydsurfex%CHN)
  CALL emis_gr_field_init(ydsurfex%EGF)  
  CALL dst_init(ydsurfex%DST)
  CALL slt_init(ydsurfex%SLT)
  !
IF (lhook) CALL dr_hook("SURFEX_ALLOC",1,zhook_handle)
!
END SUBROUTINE surfex_alloc