7 pdata_bld, pdata_wall_o_hor )
44 USE modi_arrange_cover
46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
54 REAL,
DIMENSION(:),
INTENT(IN) :: pdata_nature
55 REAL,
DIMENSION(:),
INTENT(IN) :: pdata_town
56 REAL,
DIMENSION(:),
INTENT(IN) :: pdata_garden
57 LOGICAL,
INTENT(IN) :: ogarden
58 REAL,
DIMENSION(:),
INTENT(IN) :: pdata_bld
59 REAL,
DIMENSION(:),
INTENT(IN) :: pdata_wall_o_hor
65 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'UPDATE_DATA_FRAC_n',0,zhook_handle)
70 IF (lhook) CALL dr_hook(
'UPDATE_DATA_FRAC_n',1,zhook_handle)
subroutine update_data_frac_n(PDATA_NATURE, PDATA_TOWN, PDATA_GARDEN, OGARDEN, PDATA_BLD, PDATA_WALL_O_HOR)