6 SUBROUTINE pgd_town (DTCO, DGU, UG, U, USS, DTI, TM, GDM, GRM, &
7 hprogram,oecoclimap,ogarden)
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
75 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
76 LOGICAL,
INTENT(IN) :: oecoclimap
78 LOGICAL,
INTENT(IN) :: ogarden
79 REAL(KIND=JPRB) :: zhook_handle
90 IF (lhook) CALL dr_hook(
'PGD_TOWN',0,zhook_handle)
91 IF (u%CTOWN==
'NONE ')
THEN
92 IF (lhook) CALL dr_hook(
'PGD_TOWN',1,zhook_handle)
94 ELSE IF (u%CTOWN==
'FLUX ')
THEN
95 IF (lhook) CALL dr_hook(
'PGD_TOWN',1,zhook_handle)
97 ELSE IF (u%CTOWN==
'TEB ')
THEN
98 CALL
pgd_teb(dtco, dgu, ug, u, uss, dti, tm, gdm, grm, &
99 hprogram,oecoclimap,ogarden)
101 IF (lhook) CALL dr_hook(
'PGD_TOWN',1,zhook_handle)
subroutine pgd_town(DTCO, DGU, UG, U, USS, DTI, TM, GDM, GRM, HPROGRAM, OECOCLIMAP, OGARDEN)
subroutine pgd_teb(DTCO, DGU, UG, U, USS, DTI, TM, GDM, GRM, HPROGRAM, OECOCLIMAP, OGARDEN)