7 odata_bldtype, odata_bld_age, odata_usetype, &
8 kdesc_roof_layer, kdesc_road_layer, kdesc_wall_layer, &
9 kdesc_floor_layer, kdesc_code, kdesc_use, kdesc_age, kdesc_bld)
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
62 LOGICAL,
INTENT(OUT) :: odata_bldtype
63 LOGICAL,
INTENT(OUT) :: odata_bld_age
64 LOGICAL,
INTENT(OUT) :: odata_usetype
65 INTEGER,
INTENT(OUT) :: kdesc_roof_layer
66 INTEGER,
INTENT(OUT) :: kdesc_road_layer
67 INTEGER,
INTENT(OUT) :: kdesc_wall_layer
68 INTEGER,
INTENT(OUT) :: kdesc_floor_layer
69 INTEGER,
INTENT(OUT) :: kdesc_code
70 INTEGER,
INTENT(OUT) :: kdesc_use
71 INTEGER,
INTENT(OUT) :: kdesc_age
72 INTEGER,
INTENT(OUT) :: kdesc_bld
73 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'GET_BLD_CONF_N',0,zhook_handle)
82 odata_bldtype = dtt%LDATA_BLDTYPE
83 odata_bld_age = dtt%LDATA_BLD_AGE
84 odata_usetype = dtt%LDATA_USETYPE
85 kdesc_roof_layer = bdd%NDESC_ROOF_LAYER
86 kdesc_road_layer = bdd%NDESC_ROAD_LAYER
87 kdesc_wall_layer = bdd%NDESC_WALL_LAYER
88 kdesc_floor_layer = bdd%NDESC_FLOOR_LAYER
89 kdesc_code = bdd%NDESC_CODE
90 kdesc_use = bdd%NDESC_USE
91 kdesc_age = bdd%NDESC_AGE
92 kdesc_bld = bdd%NDESC_BLD
93 IF (lhook) CALL dr_hook(
'GET_BLD_CONF_N',1,zhook_handle)
subroutine get_bld_conf_n(BDD, DTT, ODATA_BLDTYPE, ODATA_BLD_AGE, ODATA_USETYPE, KDESC_ROOF_LAYER, KDESC_ROAD_LAYER, KDESC_WALL_LAYER, KDESC_FLOOR_LAYER, KDESC_CODE, KDESC_USE, KDESC_AGE, KDESC_BLD)