modd_surfexn.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.
MODULE modd_surfex_n
!
USE modd_agri_n, ONLY : agri_np_t
USE modd_bem_option_n, ONLY : bem_options_t
USE modd_bld_description_n, ONLY : bld_desc_t
USE modd_ch_emis_field_n, ONLY : ch_emis_field_t
USE modd_ch_flake_n, ONLY : ch_flake_t
USE modd_ch_isba_n, ONLY : ch_isba_t, ch_isba_np_t
USE modd_ch_seaflux_n, ONLY : ch_seaflux_t
USE modd_ch_snap_n, ONLY : ch_emis_snap_t
USE modd_ch_surf_n, ONLY : ch_surf_t
USE modd_ch_teb_n, ONLY : ch_teb_t
USE modd_ch_watflux_n, ONLY : ch_watflux_t
USE modd_data_bem_n, ONLY : data_bem_t
USE modd_data_cover_n, ONLY : data_cover_t
USE modd_data_isba_n, ONLY : data_isba_t
USE modd_data_seaflux_n, ONLY : data_seaflux_t
USE modd_data_teb_n, ONLY : data_teb_t
USE modd_data_tsz0_n, ONLY : data_tsz0_t
USE modd_diag_evap_isba_n, ONLY : diag_evap_isba_t, diag_evap_isba_np_t
USE modd_diag_n, ONLY : diag_t, diag_np_t, diag_options_t
USE modd_diag_misc_flake_n, ONLY : diag_misc_flake_t
USE modd_diag_misc_isba_n, ONLY : diag_misc_isba_t, diag_misc_isba_np_t
USE modd_diag_misc_teb_options_n, ONLY : diag_misc_teb_options_t
USE modd_diag_ocean_n, ONLY : diag_ocean_t
USE modd_diag_misc_seaice_n, ONLY : diag_misc_seaice_t
USE modd_diag_utci_teb_n, ONLY : diag_utci_teb_t
USE modd_dst_n, ONLY : dst_np_t
USE modd_dummy_surf_fields_n, ONLY : dummy_surf_fields_t
USE modd_emis_gr_field_n, ONLY : emis_gr_field_t
USE modd_sfx_grid_n, ONLY : grid_t, grid_np_t
USE modd_grid_conf_proj_n, ONLY : grid_conf_proj_t
USE modd_flake_n, ONLY : flake_t
USE modd_gr_biog_n, ONLY : gr_biog_t, gr_biog_np_t
USE modd_ideal_n, ONLY : ideal_t
USE modd_canopy_n, ONLY : canopy_t
USE modd_isba_options_n, ONLY : isba_options_t
USE modd_isba_n, ONLY : isba_s_t, isba_k_t, isba_nk_t, isba_p_t, isba_np_t, &
                        isba_pe_t, isba_npe_t
USE modd_ocean_n, ONLY : ocean_t
USE modd_ocean_rel_n, ONLY : ocean_rel_t
USE modd_seaflux_n, ONLY : seaflux_t
USE modd_slt_n, ONLY : slt_t
USE modd_surf_atm_grid_n, ONLY : surf_atm_grid_t
USE modd_surf_atm_n, ONLY : surf_atm_t
USE modd_sso_n, ONLY : sso_t, sso_np_t
USE modd_sv_n, ONLY : sv_t
USE modd_teb_irrig_n, ONLY : teb_irrig_t
USE modd_teb_option_n, ONLY : teb_options_t
USE modd_teb_panel_n, ONLY : teb_panel_t
USE modd_watflux_n, ONLY : watflux_t
!
USE modd_bem_n, ONLY : bem_np_t
USE modd_diag_misc_teb_n, ONLY : diag_misc_teb_np_t
USE modd_teb_n, ONLY : teb_np_t
!
!
!---------------------------------------------------------------------------
!
TYPE flake_model_t
!
TYPE(diag_options_t) :: dfo
TYPE(diag_t) :: df
TYPE(diag_t) :: dfc
TYPE(diag_misc_flake_t) :: dmf
!
TYPE(grid_t) :: g
TYPE(canopy_t) :: sb
TYPE(ch_flake_t) :: chf
TYPE(flake_t) :: f
!
END TYPE flake_model_t
!
!
TYPE watflux_model_t
!
TYPE(diag_options_t) :: dwo
TYPE(diag_t) :: dw 
TYPE(diag_t) :: dwc
!
TYPE(grid_t) :: g
TYPE(canopy_t) :: sb
TYPE(ch_watflux_t) :: chw
TYPE(watflux_t) :: w 
!
END TYPE watflux_model_t
!
!------------------------------------------------------
!
TYPE seaflux_diag_t
!
TYPE(diag_options_t) :: o
TYPE(diag_t) :: d
TYPE(diag_t) :: dc
TYPE(diag_t) :: di
TYPE(diag_t) :: dic
TYPE(diag_ocean_t) :: go
TYPE(diag_misc_seaice_t) :: dmi 
!
END TYPE seaflux_diag_t
!
!
TYPE seaflux_model_t
!
TYPE(seaflux_diag_t) :: sd
!
TYPE(data_seaflux_t) :: dts
TYPE(grid_t) :: g
TYPE(canopy_t) :: sb
TYPE(ch_seaflux_t) :: chs
TYPE(seaflux_t) :: s 
!
TYPE(ocean_t) :: o
TYPE(ocean_rel_t) :: or
!
END TYPE seaflux_model_t
!
!--------------------------------------------------
!
TYPE ISba_diag_t
!
TYPE(diag_options_t) :: o
TYPE(diag_t) :: d
TYPE(diag_t) :: dc
TYPE(diag_np_t) :: nd
TYPE(diag_np_t) :: ndc
TYPE(diag_evap_isba_t) :: de
TYPE(diag_evap_isba_t) :: dec
TYPE(diag_evap_isba_np_t) :: nde
TYPE(diag_evap_isba_np_t) :: ndec
TYPE(diag_misc_isba_t) :: dm
TYPE(diag_misc_isba_np_t) :: ndm
!
END TYPE isba_diag_t
!
TYPE ISba_model_t
!
TYPE(isba_diag_t) :: id
TYPE(data_isba_t) :: dtv
TYPE(canopy_t) :: sb
TYPE(isba_options_t) :: o
TYPE(isba_s_t) :: s
TYPE(ch_isba_t) :: chi
TYPE(ch_isba_np_t) :: nchi
TYPE(gr_biog_t) :: gb
TYPE(gr_biog_np_t) :: ngb
TYPE(sso_t) :: iss 
TYPE(sso_np_t) :: niss
TYPE(grid_t) :: g
TYPE(grid_np_t) :: ng
TYPE(isba_k_t) :: k
TYPE(isba_nk_t) :: nk
TYPE(isba_np_t) :: np
TYPE(isba_npe_t) :: npe
TYPE(agri_np_t) :: nag
!
END TYPE isba_model_t
!
!---------------------------------------
!
TYPE teb_veg_diag_t
!
TYPE(diag_np_t) :: nd
TYPE(diag_evap_isba_np_t) :: nde
TYPE(diag_evap_isba_np_t) :: ndec
TYPE(diag_misc_isba_np_t) :: ndm
!
END TYPE teb_veg_diag_t
!
TYPE teb_garden_model_t
!
TYPE(teb_veg_diag_t) :: vd
TYPE(data_isba_t) :: dtv
TYPE(isba_options_t) :: o
TYPE(isba_s_t) :: s
TYPE(gr_biog_t) :: gb
TYPE(isba_k_t) :: k
TYPE(isba_p_t) :: p
TYPE(isba_npe_t) :: npe
!
END TYPE teb_garden_model_t
!
TYPE teb_greenroof_model_t
!
TYPE(teb_veg_diag_t) :: vd
TYPE(data_isba_t) :: dtv
TYPE(isba_options_t) :: o
TYPE(isba_s_t) :: s
TYPE(gr_biog_t) :: gb
TYPE(isba_k_t) :: k
TYPE(isba_p_t) :: p
TYPE(isba_npe_t) :: npe
!
END TYPE teb_greenroof_model_t
!
TYPE teb_diag_t
!
TYPE(diag_options_t) :: o
TYPE(diag_t) :: d 
TYPE(diag_misc_teb_options_t) :: mto
TYPE(diag_misc_teb_np_t) :: ndmt
TYPE(diag_misc_teb_np_t) :: ndmtc
TYPE(diag_utci_teb_t) :: dut
!
END TYPE teb_diag_t
!
TYPE teb_model_t
!
TYPE(data_teb_t) :: dtt
TYPE(teb_options_t) :: top
TYPE(canopy_t) :: sb
TYPE(grid_t) :: g
TYPE(ch_teb_t) :: cht 
TYPE(teb_panel_t) :: tpn
TYPE(teb_irrig_t) :: tir
TYPE(teb_np_t) :: nt
!
TYPE(teb_diag_t) :: td
!
TYPE(data_bem_t) :: dtb
TYPE(bem_options_t) :: bop 
TYPE(bld_desc_t) :: bdd
TYPE(bem_np_t) :: nb
!
END TYPE teb_model_t
!
!----------------------------------------------------------
!
TYPE surfex_t 
!
TYPE(data_cover_t) :: dtco
TYPE(data_tsz0_t) :: dtz
TYPE(dummy_surf_fields_t) :: duu
!
TYPE(grid_conf_proj_t) :: gcp
TYPE(surf_atm_grid_t) :: ug 
TYPE(surf_atm_t) :: u
TYPE(diag_options_t) :: duo
TYPE(diag_t) :: du 
TYPE(diag_t) :: duc
TYPE(diag_np_t) :: dup
TYPE(diag_np_t) :: dupc
TYPE(sso_t) :: uss 
TYPE(canopy_t) :: sb
!
TYPE(diag_options_t) :: dlo
TYPE(diag_t) :: dl
TYPE(diag_t) :: dlc
TYPE(ideal_t) :: l
!
TYPE(sv_t) :: sv 
TYPE(ch_surf_t) :: chu
TYPE(ch_emis_field_t) :: che
TYPE(ch_emis_snap_t) :: chn
TYPE(emis_gr_field_t) :: egf
TYPE(dst_np_t) :: ndst
TYPE(slt_t) :: slt 
!
TYPE(flake_model_t) :: fm
TYPE(watflux_model_t) :: wm
TYPE(seaflux_model_t) :: sm
TYPE(isba_model_t) :: im
TYPE(teb_model_t) :: tm
TYPE(teb_garden_model_t) :: gdm
TYPE(teb_greenroof_model_t) :: grm
!
END TYPE surfex_t
!
END MODULE modd_surfex_n