6 SUBROUTINE zoom_pgd_town (B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, &
7 bop, bdd, dtb, dtco, dtt, ug, u, tgdo, tgdp, tg, &
9 hprogram,hinifile,hinifiletype,hfile,hfiletype,oecoclimap,ogarden)
69 USE yomhook
,ONLY : lhook, dr_hook
70 USE parkind1
,ONLY : jprb
80 TYPE(bem_t),
INTENT(INOUT) :: b
83 TYPE(teb_t),
INTENT(INOUT) :: t
101 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
102 CHARACTER(LEN=28),
INTENT(IN) :: hinifile
103 CHARACTER(LEN=6),
INTENT(IN) :: hinifiletype
104 CHARACTER(LEN=28),
INTENT(IN) :: hfile
105 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
106 LOGICAL,
INTENT(IN) :: oecoclimap
107 LOGICAL,
INTENT(IN) :: ogarden
108 REAL(KIND=JPRB) :: zhook_handle
115 IF (lhook) CALL dr_hook(
'ZOOM_PGD_TOWN',0,zhook_handle)
116 IF (u%CTOWN==
'NONE ')
THEN
117 IF (lhook) CALL dr_hook(
'ZOOM_PGD_TOWN',1,zhook_handle)
119 ELSE IF (u%CTOWN==
'FLUX ')
THEN
120 IF (lhook) CALL dr_hook(
'ZOOM_PGD_TOWN',1,zhook_handle)
122 ELSE IF (u%CTOWN==
'TEB ')
THEN
123 CALL
zoom_pgd_teb(b, dgct, dgmt, t, tgd, tgdpe, tgr, tgrpe, &
124 bop, bdd, dtb, dtco, dtt, ug, u, tgdo, tgdp, tg, &
126 hprogram,hinifile,hinifiletype,oecoclimap,ogarden)
128 IF (lhook) CALL dr_hook(
'ZOOM_PGD_TOWN',1,zhook_handle)
subroutine zoom_pgd_teb(B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, BOP, BDD, DTB, DTCO, DTT, UG, U, TGDO, TGDP, TG, TOP, TVG, HPROGRAM, HINIFILE, HINIFILETYPE, OECOCLIMAP, OGARDEN)
subroutine zoom_pgd_town(B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, BOP, BDD, DTB, DTCO, DTT, UG, U, TGDO, TGDP, TG, TOP, TVG, HPROGRAM, HINIFILE, HINIFILETYPE, HFILE, HFILETYPE, OECOCLIMAP, OGARDEN)